r - tsibble::fill_gaps 并引用变量中的数字列名

Question

这是我的代码：

library(fpp3)
library(dplyr)
my_df <- data.frame("dates" = as.Date(c("2020-03-01", "2020-03-02", "2020-03-05")), 
                    "col_1" = c(1,2,23))
colnames(my_df) <- c("dates", "1")

i <- 1

test <- my_df %>% as_tsibble(., index=dates) %>% 
  fill_gaps(., as.character(i) = 1)

它会产生错误：

Error: unexpected '=' in:
"test <- my_df %>% as_tsibble(., index=dates) %>% 
  fill_gaps(., as.character(i) ="

我也试过

test <- my_df %>% as_tsibble(., index=dates) %>% 
  fill_gaps(., !!as.character(i) = 1)

test <- my_df %>% as_tsibble(., index=dates) %>% 
  fill_gaps(., !!quo_name(i) = 1)

但得到了同样的错误。有简单的解决方法吗？我需要让它按规定工作，我不能将数据框列名更改为非数字。

Answer 1

我们可以使用setNames

my_df %>%
      as_tsibble(., index=dates) %>% 
      fill_gaps(!!! setNames(1, i))
# A tsibble: 5 x 2 [1D]
#  dates        `1`
#  <date>     <dbl>
#1 2020-03-01     1
#2 2020-03-02     2
#3 2020-03-03     1
#4 2020-03-04     1
#5 2020-03-05    23

Answer 2

一般来说，列名不应该是数字，但如果有必要，你可以在这里使用反引号：

test <- my_df %>% as_tsibble(., index=dates) %>% 
    fill_gaps(., `1` = 1)

（你甚至不需要定义i。）

结果是：

# A tsibble: 5 x 2 [1D]
  dates        `1`
  <date>     <dbl>
1 2020-03-01     1
2 2020-03-02     2
3 2020-03-03     1
4 2020-03-04     1
5 2020-03-05    23