R ggplot2中的多个图层

我想用一个正态分布的cdf覆盖一个经验cdf图。我只能让代码在不使用ggplot的情况下工作

rnd_nv1 <- rnorm(1000, 1.5, 0.5)

plot(ecdf(rnd_nv1))
lines(seq(0, 3, by=.1), pnorm(seq(0, 3, by=.1), 1.5, 0.5), col=2)

---

rnd_nv1以下绘制了两条线，但它们重叠，因为它们几乎相等

set.seed(1856)

x <- seq(0, 3, by = 0.1)
rnd_nv1 <- rnorm(1000, 1.5, 0.5)
dat <- data.frame(x = x, ecdf = ecdf(rnd_nv1)(x), norm = pnorm(x, 1.5, 0.5))

library(ggplot2)

long <- reshape2::melt(dat, id.vars = "x")

ggplot(long, aes(x = x, y = value, colour = variable)) +
  geom_line()

set.seed（1856）
x您的代码示例未使用
rnd\U nv2
。该示例应该是最小的。@RuiBarradas已更正。