r - 如何用密度图覆盖线图？ (R，ggplot2)

嗨，如何在一张图中重叠以下曲线？任何帮助表示赞赏。谢谢!

library(ggplot2)

x = -10:10
y = dnorm(x, mean=0, sd=3)
df.norm = data.frame('x'=x, 'y'=y)

ggplot(data=df.norm, aes(x=x, y=y)) +
        geom_line() +
        geom_point()

random = data.frame('x'=rnorm(1000, mean = 0, sd = 3))

ggplot(random, aes(x=x)) +
        geom_density(size=1)

我尝试了以下操作，但没有成功

ggplot(data=df.norm, aes(x=x, y=y)) +
        geom_line() +
        geom_point() +
        geom_density(random, aes(x=x), size=1)

最佳答案

library(ggplot2)

x = -10:10
y = dnorm(x, mean=0, sd=3)
df.norm = data.frame('x'=x, 'y'=y)

random = data.frame('x'=rnorm(1000, mean = 0, sd = 3))

ggplot() +
  geom_line(data=df.norm, aes(x=x, y=y)) +
  geom_point(data=df.norm, aes(x=x, y=y)) +
  geom_density(data=random, aes(x=x), size=1)

关于r - 如何用密度图覆盖线图？ (R，ggplot2)，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/31312656/