处理因素

Question

我有一个对象，它是具有多个级别的因素：

x <- as.factor(c(rep("A",20),rep("B",10),rep("C",15)))

我想以尽可能最短的方式使用 ggplot 创建每个因素的百分比频率的条形图。

我不断发现，当我有一个因素时，在总结和绘图之间会出现很多小烦恼。以下是我所说的烦恼的几个示例：

as.data.frame(summary(x)) 

您必须重命名列，并且在最后一个示例中，第一列值现在是行名。接下来，您必须作弊才能使用强制转换，然后必须重新标记，因为它默认为“（全部）”的列名。

as.data.frame(q1$com.preferred)
dat$value <- 1
colnames(dat) <- c("pref", "value")
cast(dat, pref ~.)
colnames(dat)[2] <- "value"

这是另一个例子，稍微好一些，但不太理想。

data.frame(x=names(summary(x)),y=summary(x))

如果 ggplot 中有一种快速的方法可以做到这一点，我会非常有兴趣看到它。到目前为止，我最大的问题是将计数更改为频率。

Answer 1

跟进 @dirk 和 @joran 的建议（@joran 确实得到了赞扬。我认为 as.data.frame()，而不仅仅是 data.frame()，必要的，但事实证明@joran是对的...

x <- as.factor(c(rep("A",20),rep("B",10),rep("C",15)))
t1 <- table(x)
t2 <- data.frame(t1)
t3 <- data.frame(prop.table(t1))
qplot(x,Freq,data=t2,geom="bar",ylab="Count")
qplot(x,Freq,data=t3,geom="bar",ylab="Proportion")

编辑：稍微缩短（也合并了@Chase的prop.table）

Answer 2

您可以让 qplot 为您完成汇总工作，而无需外部计算，请尝试以下任何操作：

x <- rep(c('A','B','C'), c(20,10,15))

qplot(x, weight=1/length(x), ylab='Proportion')
qplot(x, weight=100/length(x), ylab='Percent')
qplot(x, weight=1/length(x), ylab='Percent') + scale_y_continuous(formatter='percent')

ggplot(data.frame(x=x),aes(x, weight=1/length(x))) + geom_bar() + ylab('Proportion')

可能还有一种方法可以使用 ggplot 函数内部的转换来完成此操作，但我还没有找到。

Answer 3

您是否尝试过调用 barplot(table(x)/length(x)) 的 ggplot 等效项？即

R> x <- as.factor(c(rep("A",20),rep("B",10),rep("C",15)))
R> table(x)
x
 A  B  C 
20 10 15 

我们可以轻松地将其转换为百分比

R> table(x)/length(x)*100
x
      A       B       C 
44.4444 22.2222 33.3333 

绘制

R> barplot(table(x)/length(x)*100)

，然后可以很好地

：