r - 将一个整数散布在多行中，次数与它除以一个常数的次数相同

Question

我有一个数据框

       Date      repair     
 <date>           <dbl>        
 2018-07-01        4420    
 2018-07-02          NA   
 2018-07-03          NA
 2018-07-04          NA
 2018-07-05          NA

其中 4420 是以分钟为单位的时间。我试图得到这个:

       Date      repair     
 <date>           <dbl>        
 2018-07-01        1440    
 2018-07-02        1440   
 2018-07-03        1440
 2018-07-04         100
 2018-07-05          NA

其中 1440 - 一天之内的分钟数和剩下的 100 分钟。我是用循环做的。这可以以更优雅的方式实现吗？

Answer 1

您可以为该任务编写一个小函数

f <- function(x, y, length_out) {
  remainder <- x %% y 
  if(remainder == 0) {
    `length<-`(rep(y, x %/% y), length_out)
  } else {
    `length<-`(c(rep(y, x %/% y), remainder), length_out)
  }
}

输入

x <- 4420
y <- 24 * 60

结果

f(x, y, length_out = 10)
# [1] 1440 1440 1440  100   NA   NA   NA   NA   NA   NA

length_out应该可能等于 nrow(your_data)