在R中绘制横向叠加图

我有以下代码，在R中

x = c(rep(2,10),rep(4,10))
y1 = c(5.1,3,4.2,4.1,4.8,4.0,5,4.15,3,4.5)
y2 = c(9.1,8,9.2,8.2,7,9.5,8.8,9.3,10,10.4)
y = c(y1,y2)
plot(x,y,pch=16,cex=0.9,xlim=c(0,6),ylim=c(0,13))

此代码生成带有两条点带的绘图。我已经用powerpoint在这些条带上横向叠加了法线曲线。如何在R（绘制侧向法向曲线）中使用实际平均值和sd值进行此操作注意：我重复一遍，法线曲线不是绘图的一部分。上面的代码只生成原始绘图

---

首先，计算

y1

和

y2

的平均值和标准偏差

m1<-mean(y1)
s1<-sd(y1)
m2<-mean(y2)
s2<-sd(y2)

使用函数

lines（）

添加了密度线

---

如果x轴在50到100之间，y轴在0到40000之间，该怎么办。然后这些曲线看起来像一条平线。在这个范围内怎么能做到这一点呢？然后你可以将dnorm（seq（1,7,0.1），m1，s1）的结果乘以y的某个常数或平均值。

df1<-data.frame(yval=seq(1,7,0.1),xval=(dnorm(seq(1,7,0.1),m1,s1)+2))
df2<-data.frame(yval=seq(6,12,0.1),xval=(dnorm(seq(6,12,0.1),m2,s2)+4))

plot(x,y,pch=16,cex=0.9,xlim=c(0,6),ylim=c(0,13))
with(df1,lines(xval,yval))
with(df2,lines(xval,yval))