R语言'scoreItems'函数相关报错求助：reverse.code提示长度0错误

我之前处理人格问卷反向编码的时候也踩过这个坑，这个报错的核心原因是reverse.code函数没法获取到有效的keys参数或者待处理的项目列，导致计算nkeys（也就是keys的长度）时得到了0值。下面给你一步步排查和解决的方法：

1. 先确认依赖包已正确加载 #

reverse.code是psych包专属的函数，先确保你已经安装并加载了这个包：

# 如果没安装过先执行这行
install.packages("psych")
# 加载包
library(psych)

2. 检查你的keys向量是否有效 #

你定义的keys向量是c(1,1,-1,-1,1,-1,-1,-1,1,-1,-1,-1,1,1,-1,-1)，先手动跑一行代码确认它的长度：

length(c(1,1,-1,-1,1,-1,-1,-1,1,-1,-1,-1,1,1,-1,-1))

正常结果应该是16，如果返回0，说明你定义keys的时候出了语法错误（比如漏了括号、符号写错），得重新检查这个向量的写法。

3. 确保items参数精准指向数据集里的目标列 #

你代码里的items = hex_d...看起来没写完，这里必须明确指定要处理的所有对应列，而且列的数量要和keys的长度完全一致（也就是16列）。这里给你两种靠谱的写法：

方法1：按列索引选择（适合列顺序固定的情况） #

假设你的16个问卷项目是hex_data里的前16列：

hex_data_rev <- reverse.code(keys = c(1,1,-1,-1,1,-1,-1,-1,1,-1,-1,-1,1,1,-1,-1),
                             items = hex_data[, 1:16],
                             mini = 1,  # 替换成你的问卷最低分值，比如1-5分就填1
                             maxi = 5)  # 替换成你的问卷最高分值，对应填5

方法2：按列名选择（更稳妥，避免列顺序变动出错） #

把target_items里的列名换成你数据集里的实际项目名称：

# 替换成你的16个项目的真实列名
target_items <- c("item_1", "item_2", "item_3", "item_4", "item_5", "item_6", 
                  "item_7", "item_8", "item_9", "item_10", "item_11", "item_12", 
                  "item_13", "item_14", "item_15", "item_16")

hex_data_rev <- reverse.code(keys = c(1,1,-1,-1,1,-1,-1,-1,1,-1,-1,-1,1,1,-1,-1),
                             items = hex_data[, target_items],
                             mini = 1,
                             maxi = 5)

划重点：mini和maxi必须和你的问卷计分范围完全匹配，这一步很容易被忽略，也会导致反向编码结果出错！

4. 验证反向编码结果 #

完成编码后，用head(hex_data_rev)查看前几行数据，确认需要反向的项目（也就是keys里标-1的项）是否正确转换：比如原来的1分变成了maxi的值，原来的maxi变成了1分。

5. 计算维度平均值 #

反向编码没问题后，就可以计算目标四个项目的平均值了。假设这四个项目是编码后数据里的rev_item_a、rev_item_b、rev_item_c、rev_item_d：

# 计算平均值，na.rm=TRUE用来忽略缺失值，没有缺失可以去掉
hex_data$dimension_score <- rowMeans(hex_data_rev[, c("rev_item_a", "rev_item_b", "rev_item_c", "rev_item_d")], na.rm = TRUE)

内容的提问来源于stack exchange，提问作者Pia De Giorgis