R 中频率表的摘要？

Question

我有一组用户建议

review=matrix(c(5:1,10,2,1,1,2), nrow=5, ncol=2, dimnames=list(NULL,c("Star","Votes")))

，想要使用 summary(review) 来显示基本属性平均值、中位数、四分位数和最小值最大值。

但它返回了两列的摘要。我避免使用 data.frame 因为因素“Star”是有序的。 我如何告诉 R Star 是一个因素的有序列表数字分数，而投票是它们的频率？

Answer 1

如果 Star 应该是一个有序因子，我不太确定你所说的一般平均值是什么意思。但是，在您给出的示例中，Star 实际上是一组数值，您可以使用以下内容：

library(Hmisc)

R> review=matrix(c(5:1,10,2,1,1,2), nrow=5, ncol=2, dimnames=list(NULL,c("Star","Votes")))

R> wtd.mean(review[, 1], weights = review[, 2])
[1] 4.0625

R> wtd.quantile(review[, 1], weights = review[, 2])
  0%  25%  50%  75% 100% 
1.00 3.75 5.00 5.00 5.00 

Answer 2

我不明白有什么问题。为什么不应该使用data.frame？

rv <- data.frame(star = ordered(review[, 1]), votes = review[, 2])

您应该将 data.frame 转换为向量：

( vts <- with(rv, rep(star, votes)) )
 [1] 5 5 5 5 5 5 5 5 5 5 4 4 3 2 1 1
Levels: 1 < 2 < 3 < 4 < 5

然后进行摘要...我只是不知道什么样的摘要，因为 summary 会将您带回到开始。 O_o

summary(vts)
 1  2  3  4  5 
 2  1  1  2 10 

编辑 （根据@Prasad的建议）

由于vts是一个有序因子，您应该将其转换为数字，从而计算摘要（此时此刻我将忽略背景统计问题）：

nvts <- as.numeric(levels(vts)[vts])  ## numeric conversion
summary(nvts)  ## "ordinary" summary
fivenum(nvts)  ## Tukey's five number summary

Answer 3

只是为了澄清——当你说你想要“平均值、中位数、四分位数和最小/最大”时，你是在谈论星星的数量吗？例如平均值 = 4.062 颗星？
然后使用 aL3xa 的代码，像 summary(as.numeric(as.character(vts))) 这样的东西会是你想要的吗？