r - 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 级。