R语言循环分组汇总报错：group_by_不适用于character类对象

错误原因分析 #

你遇到的报错Error in UseMethod("group_by_") : no applicable method for 'group_by_' applied to an object of class "character"，核心问题是你在循环里用paste()生成的是字符串（比如"fiv0_education"），而不是对应的数据集对象。group_by()需要处理的是数据框，而不是字符串，所以自然会触发这个错误。

最优解决方案：无需拆分数据集，直接分组汇总 #

其实你完全不需要手动把每个年份拆成单独的数据集，用dplyr的分组功能就能一步完成所有年份的汇总，代码更简洁高效：

library(dplyr)

# 先统一转换数值型字段，再按年份+Kod分组汇总
education_summary <- sf_education %>%
  mutate(
    Kod = as.numeric(as.character(Kod)),
    Count = as.numeric(as.character(Count))
  ) %>%
  group_by(Year, Kod) %>%
  summarise(Count = sum(Count), .groups = "drop")

这样得到的education_summary会包含所有年份的分组汇总结果，比手动拆分再循环要高效得多，也更符合R的编程习惯。

如果坚持用循环处理：把数据集存入列表 #

如果你一定要用循环的方式处理，正确的做法是先把各个年份的数据集存入一个列表，而不是用字符串来指代对象名。修改后的代码如下：

library(dplyr)

# 方式1：直接按Year拆分原数据集为列表
year_list <- split(sf_education, sf_education$Year)

# 方式2：按你指定的年份命名手动构建列表（和你之前的命名逻辑匹配）
target_years <- c('2005','2006','2007','2008','2009','2010','2011','2012','2013','2014','2015','2016','2017','2018','2019')
name_prefixes <- c('fiv0', 'six0', 'sev0', 'eig0', 'nin0', 'ten', 'one', 'two', 'thr', 'for', 'fiv', 'six', 'sev', 'eig', 'nin')

year_list <- lapply(target_years, function(y) subset(sf_education, Year == y))
names(year_list) <- name_prefixes

# 用lapply循环处理列表中的每个数据集
test <- lapply(year_list, function(df) {
  df %>%
    mutate(
      Kod = as.numeric(as.character(Kod)),
      Count = as.numeric(as.character(Count))
    ) %>%
    group_by(Kod) %>%
    summarise(Count = sum(Count), .groups = "drop")
})

这样test就是一个包含每个年份汇总结果的列表，每个元素对应一个年份的汇总数据框。

额外提示 #

• 尽量避免用字符串来指代对象名，这是R编程中常见的陷阱，用列表管理多个相关数据集是更规范、更易维护的做法。
• 建议提前统一转换Kod和Count的数值类型，避免在循环中重复执行转换操作，提升代码效率。

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