填充 geom_freqpoly 线下区域的最简单方法是什么？

Question

x 轴是将时间分解为时间间隔。数据框中有一个间隔列，用于指定每行的时间。该列是一个因子，其中每个区间是不同的因子级别。

使用 geom_histogram 和 geom_freqpoly 绘制直方图或线条效果很好，但我想要一条线，就像 geom_freqpoly 提供的那样，并填充区域。

目前我正在使用 geom_freqpoly，如下所示：

ggplot(quake.data, aes(interval, fill=tweet.type)) + geom_freqpoly(aes(group = tweet.type, colour = tweet.type)) + opts(axis.text.x=theme_text(angle=-60, hjust=0, size = 6))

我希望有一个填充区域，例如由 提供的geom_密度，但没有平滑线条：

已建议使用geom_area，有没有办法使用 ggplot2 生成的统计数据，例如 ..count..，作为 geom_area 的 y 值？或者，在使用 ggplot2 之前是否需要进行计数聚合？

---

正如答案中所述， geom_area(..., stat = "bin") 是解决方案：

ggplot(quake.data, aes(interval)) + geom_area(aes(y = ..count.., fill = tweet.type, group = tweet.type), stat = "bin") + opts(axis.text.x=theme_text(angle=-60, hjust=0, size = 6))

产生：

Answer 1

也许你想要：

geom_area(aes(y = ..count..), stat = "bin")

Answer 2

geom_ribbon 可用于在两条线之间生成填充区域，而无需显式构造多边形。 这里有很好的文档。

Answer 3

ggplot(quake.data, aes(interval, fill=tweet.type, group = 1)) + geom_密度()

但我不认为这是一个有意义的图形。

Answer 4

我不完全确定你的目标是什么。你想要一条线还是一条条。您应该查看 geom_bar 来查看填充条。比如：

p <- ggplot(data, aes(x = time, y = count))
p + geom_bar(stat = "identity")

如果你想在下面填充一条线，那么你应该看看 geom_area 其中我个人没有使用过，但看起来结构几乎是一样的。

p <- ggplot(data, aes(x = time, y = count))
p + geom_area()

希望有帮助。提供更多信息，我们可能会提供更多帮助。

实际上我会添加一个索引，只是数据行并将其用作 x，然后使用

p <- ggplot(data, aes(x = index, y = count))
p + geom_bar(stat = "identity") + scale_x_continuous("Intervals", 
breaks = index, labels = intervals)