使用R中的mental包对输出进行反向编码以进行可靠性分析

Question

我正在进行心理测量量表的可靠性分析，该量表测量视频游戏期间的用户参与度。该量表有28个问题，其中下面的屏幕截图中以黄色突出显示的问题需要在输出中进行反向编码（因为它们与量表所声称要测量的内容相反）。

library(readxl)
GES <- read_excel("CAGE Datadump Copy.xlsx")
GESpreEngagement <- GES[,11:38] #these 28 columns contains the response to 28 questions from survey
GESpreEngagementReverseCOded <- GESpreEngagement

# data in column 9 through 16 needs to be reverse coded, corresponding to the questions highlighted in the screenshot
GESpreEngagementReverseCOded[,c(9:16)] = 5-GESpreEngagement[,c(9:16)]

#calculate the cronbach's alpha value
psych::alpha(GESpreEngagementReverseCOded, check.keys = TRUE)

此代码导致以下输出带有警告消息（带或不带check.keys = TRUE）：

  

在psych :: alpha（GESpreEngagementReverseCOded，check.keys = TRUE）中：
  有些项目与总规模负相关，而且是   自动逆转。这表示为负号   变量名。

但是，如果我不对输出进行反向编码，则表示没有这样的警告，即如果我只是运行psych::alpha(GESpreEngagement)。问题是，对输出进行反向编码似乎是合乎逻辑的，但R告诉我不这样做。在这种情况下我该怎么做？

Answer 1

我最近也遇到了这个问题，这使我发疯。以我为例，后来我发现原始数据在导入之前已经被反向编码了，这就是为什么再次反转它们会给我这个警告的原因。这已经很晚了，但希望它已经解决了！