反向计分项目

Question

我对大约 80 个项目进行了调查，主要是这些项目是积极的(分数越高表明结果越好)，但其中大约 20 个是消极的，我需要找到一种方法来对 R 中消极的那些项目进行反向评分。我是完全不知道该怎么做。我绝对是 R 初学者，这可能是一个愚蠢的问题，但有人可以在代码方面为我指明方向吗？

Answer 1

下面是一个包含一些虚假数据的示例，您可以根据自己的数据进行调整:

# Fake data: Three questions answered on a 1 to 5 scale
set.seed(1)
dat = data.frame(Q1=sample(1:5,10,replace=TRUE), 
                 Q2=sample(1:5,10,replace=TRUE),
                 Q3=sample(1:5,10,replace=TRUE))

dat
   Q1 Q2 Q3
1   2  2  5
2   2  1  2
3   3  4  4
4   5  2  1
5   2  4  2
6   5  3  2
7   5  4  1
8   4  5  2
9   4  2  5
10  1  4  2

# Say you want to reverse questions Q1 and Q3
cols = c("Q1", "Q3")

# Reverse scores in the desired columns 
dat[,cols] = lapply(cols,  function(x) 6 - dat[, x])

# Per @akrun's comment, I was making it more complicated than necessary. 
# You can just do this instead of the `lapply` thing above:
dat[ ,cols] = 6 - dat[ ,cols]

dat
   Q1 Q2 Q3
1   4  2  1
2   4  1  4
3   3  4  2
4   1  2  5
5   4  4  4
6   1  3  4
7   1  4  5
8   2  5  4
9   2  2  1
10  5  4  4