通过padr中的_函数传递无引号列列表以填充_
我在数据帧上使用填充(从通过padr中的_函数传递无引号列列表以填充_,r,parameter-passing,padr,R,Parameter Passing,Padr,我在数据帧上使用填充(从padrpackage)来填充时间间隔。现在,为了填充一组指定列的间隙值,我使用了fill\u by\u函数。通常,fill\u by_函数将不带引号的列名作为参数。然而,在我的例子中,我得到了一个列名列表 我的问题是,如何在fill\u by\u函数中传递列列表。请注意,列列表不是预定义的,因此我无法在fill\u by\u函数中对列名进行硬编码 下面是我尝试过的一个示例,但出现了一个错误 x <- seq(as.Date('2016-01-01'), by =
padr
package)来填充时间间隔。现在,为了填充一组指定列的间隙值,我使用了fill\u by\u函数
。通常,fill\u by_函数
将不带引号的列名作为参数。然而,在我的例子中,我得到了一个列名列表
我的问题是,如何在fill\u by\u函数中传递列列表。请注意,列列表不是预定义的,因此我无法在fill\u by\u函数
中对列名进行硬编码
下面是我尝试过的一个示例,但出现了一个错误
x <- seq(as.Date('2016-01-01'), by = 'day', length.out = 366)
x <- x[sample(1:366, 200)] %>% sort
x.df <- data.frame(x = x,
y1 = runif(200, 10, 20) %>% round,
y2 = runif(200, 1, 50) %>% round,
y3 = runif(200, 20, 40) %>% round)
c.list <- c("y1","y2")
x.df %>% pad %>% fill_by_function(as.name(c.list),fun=mean)
x%轮,
y3=runif(200,20,40)%>%轮)
c、 列表%pad%>%fill\u by_函数(as.name(c.list),fun=mean)
下面是我收到的错误消息
Error in inds[i] <- which(colnames_x == as.character(cols[[i]])) : replacement has length zero
inds[i]中的错误这对我很有效:
x.df %>% pad %>% fill_by_function(.cols=c.list,fun=mean) %>% tail(.)
x y1 y2 y3
361 2016-12-26 14.725 24.31 30.09
362 2016-12-27 14.000 28.00 21.00
363 2016-12-28 14.725 24.31 30.09
364 2016-12-29 15.000 47.00 22.00
365 2016-12-30 14.000 43.00 34.00
366 2016-12-31 17.000 14.00 21.00
与之相比:
x.df %>% pad %>% fill_by_function(y1,fun=mean) %>% tail(.)
x y1 y2 y3
361 2016-12-26 14.725 NA NA
362 2016-12-27 14.000 28 21
363 2016-12-28 14.725 NA NA
364 2016-12-29 15.000 47 22
365 2016-12-30 14.000 43 34
366 2016-12-31 17.000 14 21
检查输出是否确实是您想要的。这实际上给了我cols[[i]]中的错误:下标越界错误。此外,从您的输出来看,解决方案已将mean
函数应用于您的所有列,并且没有明显的错误。尝试更新您的软件包padr
和dplyr
???(不确定)关于你的第二条评论,你的帖子没有满足你的期望……我只是按照你的要求传递了多个列名。我知道它应该有用。但是,我仍然得到cols[[I]]中的错误错误:下标超出范围;即使在更新包之后,我唯一的猜测是%%>%
在传递更新的数据时遇到了问题。也就是说,pad
比原始data.frame增加nrow
。尝试在没有管道的情况下单独运行每个命令,看看这是否是您的问题。。。