在直方图基础上绘制密度曲线
x4 <- rnorm(1000,20,10)
hist(x4,freq=F)
lines(density(x4),col="blue")
box() #加方框
#茎叶图,条形图...Anderson's Iris Data--",pch=21,bg=c("red","green3","blue"))
#绘制QQ图
y1 <- rnorm(500,10,5);qqnorm(x)
#曲线图...="实验图",sub="随机分布图")
points(x,y,col="blue")
lines(x,y,col="red")
text(5,max(y),"最大随机散点")
mtext("横轴下方文本...",side=1)
mtext("横轴左方文本",side=2)
mtext("横轴上方文本",side=3)
mtext("横轴右方文本",side=4)
segments(10,10,50,-15