R相关图形参数

####图形参数

head(cars)

cars<-cars[c(1:10),]

cars1<-data.frame(speed=2*cars[,1],dist=2.5*cars[,2])

head(cars1)

plot(cars1$dist~cars1$speed, #y~x

main="速度与路程的关系图", #标题

xlab="速度 公里/每小时", #x轴标题

ylab="路程（公里）",   #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(cars1$dist~cars1$speed),col="blue",lwd=2,lty=1)

lines(lowess(cars1$speed,cars1$dist),col="red",lwd=3,lty=2)

text(cars1$speed,cars1$dist,row.names(cars1),cex=0.6,pos=4,col="green")

text(5,40,expression(novogene^2))

text(6,50,expression(gwas[2]))

####图形边距和图形布局

x<-c(0:4,runif(20,4,7),7:10) #读入数据

y<-c(0:4,runif(20,4,7),7:10)

par(oma=c(3,3,3,3))          #外边距 margin设置

par(mar=c(5,4,4,2) + 0.1)    #内边距 margin设置

plot(x,y,type="p",xlab="X",ylab="Y")  #画图

text(2,7,"画图区",col="red",cex=2)

text(3,9,"novogene:gwas",col="red",cex=1)

box("plot",col="red")                  #边框红色

mtext("内边距",side=3,line=2,cex=2,col="green")   #内边框绿色

box("figure",col="green")

mtext("外边距",side=1,line=1,cex=2,col="blue",outer=TRUE)  #外边框蓝色

box("outer",col="blue")        

par(mfrow=c(3,2))   #一张图上3行2列

windows() #新建一个绘图窗口，不覆盖