如何在R中将一个分布绘制在另一个分布之上？

install.packages("ggplot2")

# 加载必要的库
library(ggplot2)

# 设置随机数种子以便结果可复现
set.seed(123)

# 创建两个正态分布的数据
x <- seq(-5, 5, length=100) # 创建一个从-5到5的序列
y1 <- dnorm(x, mean=0, sd=1) # 第一个正态分布，均值0，标准差1
y2 <- dnorm(x, mean=2, sd=1) # 第二个正态分布，均值2，标准差1

# 将数据合并到一个数据框中
data <- data.frame(
  x = rep(x, 2),
  y = c(y1, y2),
  distribution = factor(rep(c("Distribution 1", "Distribution 2"), each=length(x)))
)

# 使用ggplot绘制叠加图
ggplot(data, aes(x=x, y=y, color=distribution)) +
  geom_line() +
  labs(title="Overlay of Two Normal Distributions",
       x="Value",
       y="Density") +
  theme_minimal()