R:堆叠面积图不堆叠

Question

我有一些数据，我想将其绘制为堆积面积图。在 x 轴上我有连续的数据，在 y 轴上我有连续的数据，我准备累积这些数据。这是我使用一些虚拟数据的代码:

library(data.table)
library(ggplot2)

set.seed(1)
dt <- data.table(var=sample(1:6,1000,replace=TRUE),xdata=runif(1000),ydata=runif(1000))
setorder(dt, var, xdata)

dt$cumydata <- dt[,
                  cumsum(ydata),
                  by = .(var)]$V1/sum(dt$ydata)

ggplot(dt, aes(x = xdata, y = cumydata, fill = as.factor(var))) +
  geom_area(position = "stack")

这是输出图:

我的问题是，数据没有正确堆叠。我想这可能是因为数据的连续性？

Answer 1

对于堆积面积图，x 值和出现次数必须相同。因此，将您的示例数据更改为此将为您提供预期的输出:

set.seed(1)
dt <- data.table(ydata=runif(1002))
dt$var <- rep(1:6, each=167)
dt$xdata <- rep(runif(167), 6)
setorder(dt, var, xdata)

dt$cumydata <- dt[,
                  cumsum(ydata),
                  by = .(var)]$V1/sum(dt$ydata)

ggplot(dt,aes(x = xdata, y = cumydata, fill = as.factor(var))) +
  geom_area(position = "stack")