r - 使用 R 中的 ggplot2 按数据点数量对(或 alpha)箱线图进行着色

Question

我有柱状数据集，我用它来绘制一系列箱线图，最类似于本例中的设置:
Boxplot of table using ggplot2

require(reshape2)
ggplot(data = melt(dd), aes(x=variable, y=value)) + geom_boxplot(aes(fill=variable))

但是，就我而言，每个箱线图代表不同数量的数据点。例如，A 列可能有 8000 个数据点，B 列可能有 6000 个，C 列可能有 2500 个，D 列可能有 800 个。

为了帮助传达这一点，我想我可以对框的填充颜色进行 alpha 处理以反射(reflect)数据点的数量。框越暗，用于计算箱线图所代表的统计数据的数据点就越多。

在 geom_histogram 的 ggplot2 帮助文件中，他们使用 aes(fill=..count..) 来着色与 bin 中计数值相对应的 bin。

m <- ggplot(movies, aes(x=rating))    
m + geom_histogram(aes(fill=..count..))

(想在此处包含示例直方图的图片，但不能，因为我没有足够的声望点......抱歉)

我尝试将它与我的 ggplot geom_boxplot 一起使用，但它似乎不知道 ..count.. 部分。
这是我生成箱线图的线路:

ggplot(meltedData, aes(x=variable, y=value)) + geom_boxplot(aes(fill=variable), outlier.size = 1) + ylim(-4,3)

有人有任何指示吗？我知道我可以将“alpha”属性添加到 geom_boxplot，但是如何根据箱线图中的数据点数量将其单独应用于每个箱线图？

提前致谢。

Answer 1

stat_boxplot不计算计数。只需在 ggplot2 之外进行即可:

library(plyr)
DF <- ddply(mtcars, .(cyl), transform, myalpha = length(cyl))

library(ggplot2)
ggplot(DF, aes(factor(cyl), mpg)) + 
  geom_boxplot(aes(alpha = myalpha), fill = "blue")