R语言实现谷歌表格多列因子数据转数值的问题求助

问题根源分析 #

你的代码存在两个关键问题：

1. 列名赋值错误：colnames(df) <- c(col1, col2, col3.., col38) 里的col1等未加引号，R会将其视为变量名而非字符串列名，导致列名设置失败，后续列索引逻辑出错。
2. 循环中列操作的歧义：使用df[,i]处理单列时，结合之前的全字符转因子操作，可能因原因子的额外水平干扰新层级的设置，进而导致数值转换异常。

修正后的for循环方案 #

先修正列名赋值，再改用[[i]]直接操作列向量，避免类型歧义：

# 读取数据
df <- read_sheet(URL)
# 正确设置列名（必须用字符串）
colnames(df) <- c("col1", "col2", "col3", ..., "col38") # 替换为实际列名字符串

# 定义目标列和因子层级
target_cols <- 5:14
level_order <- c("Sí, me limita mucho", "Sí, me limita un poco", "No, no me limita nada")

# 循环处理列
for(i in target_cols) {
  # 先转字符避免原因子干扰，再重新指定层级转因子，最后转数值
  df[[i]] <- as.numeric(factor(as.character(df[[i]]), levels = level_order))
}

更简洁的dplyr方案（推荐新手使用） #

无需编写循环，用mutate_at批量处理指定列，代码更易读且不易出错：

library(dplyr)

df <- read_sheet(URL) %>%
  # 用rename逐个设置列名（更安全，避免列数不匹配）
  rename(
    col1 = 原列名1,
    col2 = 原列名2,
    col38 = 原列名38
  ) %>%
  # 批量处理5-14列
  mutate_at(
    vars(5:14),
    ~ as.numeric(factor(., levels = c("Sí, me limita mucho", "Sí, me limita un poco", "No, no me limita nada")))
  )

针对多列不同层级的拓展方案 #

如果不同列需要不同的因子层级，可以预先定义层级列表，循环处理：

# 定义各列对应的因子层级
level_lists <- list(
  col5 = c("层级1", "层级2", "层级3"),
  col6 = c("Sí, me limita mucho", "No, no me limita nada"),
  # 其他列的层级设置
)

# 循环处理不同列
for(col_name in names(level_lists)) {
  df[[col_name]] <- as.numeric(factor(as.character(df[[col_name]]), levels = level_lists[[col_name]]))
}

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