绘制嵌套在一帧

Question

当我们考虑以下示例时：

set.seed(123)

begin1 <- sample(1980:2000, 500, replace = T)
typ1 <- sample(letters[1:2], 500, replace = T)
begin2 <- sample(1980:2000, 500, replace = T)
typ2 <- sample(letters[1:1], 500, replace = T)

df1 <- data.frame(begin1, typ1, begin2, typ2)

我们可以使用以下命令绘制begin1相对于typ1的简单累积密度图

library(ggplot2)
ggplot(df1, aes(begin1, colour = typ1)) + stat_ecdf()

如何在同一轴上绘制begin2的分布？ IE浏览器。我希望累积分布采用新颜色并包含在图例中？

Answer 1

也许你可以重新格式化你的data.frame，ii）使用另一个aes，例如：

id <- rep(c("A", "B"), each=500)
df <- data.frame(begin=c(begin1, begin2), typ=c(typ1, typ2), id=id)
ggplot(df, aes(begin, colour = typ, linetype=id)) + stat_ecdf()

这就是你想要的吗？