Передача списка столбцов без кавычек в функцию fill_by_ в падре

Question

Я использовал padding (от padr пакет) на фрейме данных, чтобы заполнить промежуток времени. Теперь, чтобы заполнить значения пропусков для указанного набора столбцов, я использую fill_by_function, В общем, fill_by_function принимает имена столбцов без кавычек в качестве аргументов. Однако в моем случае мне был предоставлен список имен столбцов.

У меня вопрос, как я смогу передать список столбцов в fill_by_function функция. Обратите внимание, что список столбцов не задан заранее, поэтому я не могу жестко закодировать имена столбцов внутри fill_by_function,

Ниже приведен пример, который я пробовал, но получил ошибку.

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)

Ниже приводится сообщение об ошибке, которое я получил

Error in inds[i] <- which(colnames_x == as.character(cols[[i]])) : replacement has length zero

Есть ли другая альтернативная функция, которую я могу использовать

Answer 1

Это сработало для меня:

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

Проверьте, что вывод на самом деле то, что вы хотите.