ggplot与组的累积频率

Question

我想为两组构建累积计数，并将其重新加权到第1级。

我知道在这种情况下如何绘制密度：

my_df = data.frame(col_1 = sample(c(0,1), 1000, replace = TRUE),
                   col_2 = sample(seq(1,100,by=1), 1000, replace = TRUE))
my_df$col_1 <- as.factor(my_df$col_1)
ggplot(data = my_df, aes(x = col_2, group = col_1, col = col_1))+
  geom_density(position = 'dodge', size = 2)

这是情节：

但是，如果我尝试绘制cumsum，我会得到以下图片：

如您所见，第二行开始，第一行结束。

有没有解决方法？我总是可以尝试手动进行计算并绘制它，但我想知道是否有ggplot解决方案？我在SO上找到了一些解决方案，但它们不涉及将数据扩展到1级。