把lines换成plot就可以了,以下是:
x=1:50 #生成横轴变量x,从1到50
y=dnorm(x,20,5) #生成纵轴变量y,是正态分布密度函数,期望20,方差为5
plot(x,y,type="l",col="red") #做图,类型为线,颜色为红
text(27,0.06,substitute(σ^2==5),col="red") #图上添加文本:方差为5,红色
Sys.sleep(5)
y1=dnorm(x,20,10) #生成另一个纵轴变量y1,期望仍为20,方差增大到10
plot(x,y1,type="l",col="blue") #在图上添加方差为10的密度图
text(37,0.017,substitute(σ^2==10),col="blue") #在图上添加文本:方差为10