Обратное кодирование вывода для анализа надежности с использованием психопакета в R

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

Я также столкнулся с этой проблемой недавно, и это сводило меня с ума. В моем случае я позже узнал, что необработанные данные уже были перекодированы еще до того, как я их импортировал, поэтому их обратное обращение дало мне это предупреждение. Это довольно поздно, но надеюсь, что это было решено!