如何操纵汇总表结果

Question

我有一些数据，看起来像这样：

  A  B 
6  Often Often 
7 Always Always 
8 Rarely Rarely 
9 Sometimes Often 

structure(list(A = structure(c(5L, 6L, 3L, 4L), .Label = c("", 
"Almost Never", "Rarely", "Sometimes", "Often", "Always"), class = c("ordered", 
"factor")), B = structure(c(5L, 6L, 3L, 5L), .Label = c("", "Almost Never", 
"Rarely", "Sometimes", "Often", "Always"), class = c("ordered", 
"factor"))), .Names = c("A", "B"), row.names = 6:9, class = "data.frame") 

使用总结，我得到每种类型的反对可能的响应响应的，这正是我想要的东西的计数：

  A    B  
      :0    :0 
Almost Never:0 Almost Never:0 
Rarely  :1 Rarely  :1 
Sometimes :1 Sometimes :0 
Often  :1 Often  :2 
Always  :1 Always  :1 

现在我想操纵这些数字来获得（经常+总是）/总回应。总结输出是字符输出，虽然 - 我可以分割冒号，但必须有更好的方法。

如何计算给定上述数据集的每个问题的常数+总回答的百分比？

Answer 1

这可以通过使用apply和table来完成（假定d是您的数据帧）：

apply(d, 2, function(col) { 
    tab = table(col) 
    (tab["Often"] + tab["Always"])/sum(tab) 
}) 

注意的是，以上仅如果总是至少“始终”，在工作，一个“常”每列。以下内容稍微简洁一些，但即使列中缺少“Always”或“Often”，也可以工作：

sapply(1:NCOL(d), function(i) { 
     tab = table(d[, i]) 
     (tab["Often"] + tab["Always"])/sum(tab) 
})