R语言select()报错：无法选取不存在的列问题排查

错误原因拆解 #

1. 聚合操作丢失非分组列
   使用group_by(quarter)后执行summarise，只会保留分组列（quarter）和聚合生成的新列，monthly_dates、monthly_val、cat这些非分组列会被直接丢弃，导致后续select时触发列不存在的报错。
2. 不必要的pivot_longer操作
   原始数据中mont_vals就是对应monthly_val的列，mont_dates对应monthly_dates，直接重命名即可，不需要用pivot_longer做宽转长操作，反而增加了复杂度。
3. 未按需求保留cat列
   期望输出包含Cat列，但当前代码没有将cat纳入分组逻辑，无法保留分类维度的聚合结果。

修正后的代码 #

首先是原始数据定义（无需修改）：

mont_dates <- c("201401", "201402", "201403", "201404", "201405", 
"201406", "201407", "201408", "201409", "201410", "201411", "201412")
cat <- c("new", "old", "undefined", "new", "old", "undefined", "undefined", "new", "old", "undefined", "new", "old")
mont_vals <- c(221, 433, 878, 455, 998, 797, 77, 3435, 868, 686, 868, 434)
ID <- c(1,2,3,4,5,6,7,8,9,10,11,12)
df <- data.frame(mont_dates, mont_vals, cat, ID)

修正后的函数与调用：

library(dplyr)
library(lubridate)

Monthly_Qrt_vals <- function(df1) {
  df1 %>%
    # 重命名列以匹配需求
    rename(monthly_dates = mont_dates,
           monthly_val = mont_vals,
           Cat = cat) %>%
    # 转换日期格式并计算季度
    mutate(monthly_dates = ymd(paste0(monthly_dates, "01")),
           quarter = paste0(year(monthly_dates), " Q", quarter(monthly_dates))) %>%
    # 按Cat和季度分组，保留分类维度
    group_by(Cat, quarter) %>%
    mutate(quarterly_values = sum(monthly_val, na.rm = TRUE),
           quarterly_months = n()) %>%
    ungroup() %>%
    # 选择需求的列并排序
    select(Cat, monthly_dates, monthly_val, quarter, quarterly_months, quarterly_values) %>%
    arrange(monthly_dates)
}

result <- df %>% Monthly_Qrt_vals()
print(result)

说明 #

这里用mutate替代summarise，可以在保留所有原始明细列的同时，添加分组聚合后的季度统计值，完美匹配你需要的输出列结构。

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