R语言：通过变量传递列名调用select()函数报错求助

核心原因 #

你生成的Time_Period是Date类对象，但data.frame的日期列名是字符串类型，dplyr::any_of()要求匹配的列名必须和变量类型一致，类型不匹配导致无法找到对应列，进而报错。

验证问题 #

运行你的代码时，Time_Period的输出是类似这样的Date向量：

[1] "2022-09-01" "2022-10-01" "2022-11-01"

但查看colnames(Book1)会发现日期列名是字符串（如"2022-11-01"），两者类型不同，any_of()无法完成匹配。

修正方案 #

只需要把生成的Date向量转为字符串，和列名格式统一即可：

Book1 <- read_excel("C:/X/X/X/Book1.xlsx")
View(Book1)

Time <- '2022-08-01'
# 将生成的日期转为字符型，和列名格式保持一致
Time_Period <- as.character(add_months(max(ymd(Time)), 1:3))
Time_Period

Book1 %>%
  select(`Row Labels`, any_of(Time_Period))

额外适配 #

如果你的Excel文件中日期列名格式有差异（比如带时分秒），可以用format()强制统一格式：

Time_Period <- format(add_months(max(ymd(Time)), 1:3), "%Y-%m-%d")

测试验证 #

用你提供的data.frame结构测试修正后的代码：

# 你的示例数据
df <- structure(list(`Row Labels` = c("X1", "X2", "X3"), `2022-11-01` = c(1, 2, 3), `2022-12-01` = c(2, 3, 4), `2023-01-01` = c(2, 2, 3), `2023-02-01` = c(3, 3, 4), `2023-03-01` = c(3, 2, 3), `2023-04-01` = c(4, 3, 4), `2023-05-01` = c(4, 2, 3), `2023-06-01` = c(5, 3, 4), `2023-07-01` = c(5, 2, 3)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -3L)) 

Time <- '2022-08-01'
Time_Period <- as.character(add_months(max(ymd(Time)), 1:3))
df %>% select(`Row Labels`, any_of(Time_Period))

输出会保留Row Labels和2022-11-01列，符合预期。

内容的提问来源于stack exchange，提问作者user20203146