R语言：数据框因子列转数值型及添加行和列的问题排查

先帮你理清几个核心问题，再给出针对性的解决办法：

1. 为什么apply转换后变成矩阵，无法添加列？ #

apply()函数处理数据框时，默认会返回矩阵（matrix），而不是保持原数据框结构。你的示例和真实数据里，执行apply(..., 2, function(x) as.numeric(as.character(x)))后，IUS_12_toy_factor和IUS_12都变成了矩阵——矩阵的列数是固定的，原矩阵只有12列，所以尝试添加第13列时会直接报subscript out of bounds。

另外你疑惑class(IUS_12_1_toy_factor)还是factor，这是因为这个变量是你一开始单独创建的独立对象，和后来转成矩阵的IUS_12_toy_factor完全没关系，后者里的列已经是数值型了，只是前者没被修改而已。

2. 正确的因子转数值+添加总和列的方法 #

方法一：Base R（保留数据框结构） #

用lapply()配合[]赋值，既能转换列类型，又能保持数据框结构：

# 转换所有因子列为数值型，同时保留数据框
IUS_12_toy_factor[] <- lapply(IUS_12_toy_factor, function(x) as.numeric(as.character(x)))
class(IUS_12_toy_factor) # 输出仍是data.frame

# 添加行总和列
IUS_12_toy_factor$total_score <- rowSums(IUS_12_toy_factor)

方法二：Tidyverse（更简洁直观） #

如果你习惯用dplyr，代码会更易读：

library(dplyr)

IUS_12_toy_factor <- IUS_12_toy_factor %>%
  # 转换所有列的因子类型为数值型
  mutate(across(everything(), ~ as.numeric(as.character(.x)))) %>%
  # 计算行总和并添加为新列
  mutate(total_score = rowSums(across(everything())))

对于你的真实数据集，只需要把上述代码里的示例数据框换成IUS_12即可，转换后仍然是数据框，就能正常添加列，也可以用$访问列了。

3. 批量重命名列的高效方法 #

你现在手动逐个修改列名太麻烦，可以用索引批量赋值：

# 定义需要重命名的列位置
cols_to_rename <- c(162,163,164,165,167,168,169,170,171,172,174,175)
# 生成对应的新名字
new_names <- paste0("IUS_12_", 1:12)
# 批量替换列名
names(MyData)[cols_to_rename] <- new_names

这样一行代码就能完成所有目标列的重命名，不用手动写12次names(MyData)[x]<-"xxx"。

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