R语言中循环生成列向量频数数据框出错，如何修复？

原代码的问题 #

你的循环逻辑错误在于：

• 循环变量L是列表中的完整列向量，不是索引值，导致paste拼接变量名时，会把向量的所有元素都塞进变量名里，R只能取第一个元素作为变量名，触发only the first element is used as variable name警告。
• 错误的变量名逻辑进一步导致生成的数据框异常为空。

正确实现方式 #

方法一：索引循环（匹配手动命名逻辑） #

遍历列表的索引来生成正确的变量名，和你手动执行ExpT1 <- data.frame(table(ExpYears1[,95]))的逻辑完全一致：

for (i in seq_along(ExpYearsLists)) {
  # 生成格式为ExpYearsT1、ExpYearsT2...的变量名
  var_name <- paste0("ExpYearsT", i)
  # 对列表第i个元素计算频数表并转成数据框
  assign(var_name, data.frame(table(ExpYearsLists[[i]])))
}

方法二：用lapply生成结果列表（更符合R风格） #

不建议生成大量独立变量，推荐把所有结果存入一个列表，更便于管理和后续操作：

# 批量生成所有频数表
ExpYearsTables <- lapply(ExpYearsLists, function(x) data.frame(table(x)))
# 给列表元素命名，对应ExpYearsT1到ExpYearsT49
names(ExpYearsTables) <- paste0("ExpYearsT", seq_along(ExpYearsLists))

# 调用单个结果示例：ExpYearsTables$ExpYearsT1

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