r - 如何将数据框中的调查答案转换为数字以平均结果

Question

我有一个包含如下调查结果的数据框：

          Q1         Q2       Q3
1      Agree No opinion Disagree
2 No opinion No opinion Disagree
3      Agree            Disagree

如何将调查回复转换为数字，以便获得每个问题的平均回复？我可以使用 gsub 为每列中的每个文本答案替换数值，但必须有更好的方法。

> str(x)
'data.frame':   3 obs. of  3 variables:
 $ Q1: Factor w/ 2 levels "Agree","No opinion": 1 2 1
 $ Q2: Factor w/ 2 levels "","No opinion": 2 2 1
 $ Q3: Factor w/ 1 level "Disagree": 1 1 1

Answer 1

好的，现在很清楚了。

我会将每一列转换为字符，然后转换为因子（具有公共级别），然后转换为整数：

sapply(data, function(x) as.integer(factor(as.character(x), levels=c("Agree", "No opinion", "Disagree"))))

Answer 2

我一定是误解了你想要什么，但既然你在 a 中有分类变量，data.frame你就不能用summary它吗？

#Example
q1 <- sample( c("Agree" , "No opinion" ) , 10 , replace = TRUE )
q2 <- sample( c(" " , "No opinion" ) , 10 , replace = TRUE )
q3 <- sample( c("Agree" , "Disagree" ) , 10 , replace = TRUE )

x <- data.frame( q1 , q2 , q3 )

summary(x)
  q1             q2           q3   
  Agree     :4   ,         :4   Agree   :5  
  No opinion:6   No opinion:6   Disagree:5