data.frame(speed=2*cars[,1],dist=2.5*cars[,2])
head(cars1)
plot(cars1dist~cars1speed, #y~x
main="速度与路程的关系图...)", #y轴标题
xlim=c(0,max(cars1$speed)), #x轴取值空间
ylim=c(0,max(cars1$dist)), #y轴取值空间
xaxs="i", #设置x轴的风格...cex.main=2,cex.lab=1.5, #各种字体的大小
col="blue", #颜色
pch=19,cex=1) #pch代表点的形状,数字表示
abline(lm(cars1dist~cars1speed...),cex=0.6,pos=4,col="green")
text(5,40,expression(novogene^2))
text(6,50,expression(gwas[2]))
####图形边距和图形布局...col="blue",outer=TRUE) #外边框蓝色
box("outer",col="blue")
par(mfrow=c(3,2)) #一张图上3行2列
windows(