如何在R中为问卷响应批量分配指定数值？

问题根源分析 #

• 你第一次用as.numeric(factor(practice$col1))得到1-5，是因为原列包含5种不同类别，factor默认按字母顺序分配水平，没按你的需求指定对应关系。
• 第二次的管道代码语法错误：你把factor的参数写到了as.integer()里，而且factor()没传入要转换的列，导致所有值无法匹配，全部变成NA。

正确解决方案 #

方法1：指定factor的levels和labels（基础R）

直接通过factor的levels参数定义原类别顺序，labels参数对应要分配的数值，再转成numeric：

# 生成新列存储转换后的数值
practice$col1_num <- as.numeric(
  factor(practice$col1,
         levels = c("Agree", "Don't Know", "Disagree"), # 原问卷选项，必须和数据中拼写完全一致
         labels = c(1, 2, 3) # 对应要分配的数值
  )
)

如果数据里有其他未列出的类别，转换后会变成NA，你可以用exclude = NULL保留这些值，或者先通过unique(practice$col1)检查所有选项，确保levels覆盖全部有效类别。

方法2：用case_when直接赋值（tidyverse风格）

如果习惯用dplyr，这种方式更直观，不需要转因子：

library(dplyr)
practice <- practice %>%
  mutate(col1_num = case_when(
    col1 == "Agree" ~ 1,
    col1 == "Don't Know" ~ 2,
    col1 == "Disagree" ~ 3,
    TRUE ~ NA_real_ # 处理未匹配的异常值，可根据需求修改
  ))

方法3：修复你的管道代码

把factor的参数放到正确位置，确保输入值传递正确：

practice$col1_num <- practice$col1 |> 
  factor(levels = c("Agree", "Don't Know", "Disagree"), ordered = TRUE) |> 
  as.integer()

这里ordered = TRUE只是标记为有序因子，不影响数值结果，as.integer会返回levels的索引，所以只要levels顺序正确，就能得到1、2、3。

关键提醒 #

先运行unique(practice$col1)查看数据中所有唯一选项，检查是否有拼写错误（比如大小写、空格、缩写不一致），这是转换后出现NA的常见原因。

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