ggplot2 中离散变量的累积计数

Question

这与在 ggplot2 中绘制累积计数有关，但该问题处理的是连续变量（而不是离散变量）。

在这里，我有一个条形图

set.seed(2021)
dat <- data.frame(x = c(rpois(100, 1), 7, 10))
ggplot(dat) + geom_bar(aes(x, ..count..))

我正在尝试 plot 累积计数

ggplot(dat) + geom_bar(aes(x, cumsum(..count..)))

当存在“缺失值”时（即当x为 5、6、7、9 时）存在间隙。

有没有一种快速简便的方法来制作一个带有条形空白的条形图，即我将有 11 个条形？ 我可以像往常一样手动创建一个包含累积计数和 plot 的数据框，但我很好奇是否有更优雅的方法。

Answer 1

您可以在绘图时将变量转换为因子。

ggplot(dat) + geom_bar(aes(factor(x), cumsum(..count..)))

Answer 2

我不会称这是一种“简单”的方法，但我唯一能想到的方法就是解决你的问题：

1. 使用例如dplyr::count预先汇总您的数据集

2. 使用例如tidyr::complete用缺失的类别填充您的数据集（为此，我首先将x转换为因子）。

3. Plot 通过geom_col

library(ggplot2)
library(dplyr)
library(tidyr)

set.seed(2021)
dat <- data.frame(x = c(rpois(100, 1), 7, 10))
dat <- dat %>% 
  count(x) %>% 
  mutate(x = factor(x, levels = seq(range(x)[1], range(x)[2], by = 1))) %>% 
  tidyr::complete(x, fill = list(n = 0))

ggplot(dat) + geom_col(aes(x, cumsum(n)))

Answer 3

如果您使用stat_bin而不是geom_bar可能会有所帮助..

ggplot(dat) + stat_bin(aes(x, cumsum(..count..)))