创建图形，保存图形，修改特征：标题，坐标轴，标签，颜色，线条，符号，文本标注。
1. 一个简单的例子
#输出到图形到pdf文件
pdf("mygrapg.pdf")
attach(mtcars)
#散点图
plot(wt~mpg)
#添加趋势线
abline(lm(mpg~wt))
#添加标题
title("Regresion of mpg on weight")
#输出到终端
dev.off()
2. 修改图形参数 par() 函数指定选项
符号和线条：pch: plot symbols, lty: line types, lwd: line width
dose <- c(20,30,40,45,60) drugA <- c(16,20,27,40,60) drugB <- c(15,18,25,31,40) #type = \'b\' 同时绘制点和线 plot(dose,drugA,type=\'b\') #生成含有当前图形参数设置的列表 par() #no.readonly=TRUE 生成一个可以修改的当前图像参数列表 #生成一个新的图形 dev.new() opar <- par(no.readonly = TRUE) #使用虚线lty=2,实心三角pch=17 par(lty=2,pch=17) plot(dose,drugA,type=\'b\') par(opar)
文本属性：
cex: 指定文本大小
font: 指定字体，字号，字样
3. 添加文本，自定义坐标轴和图例
标题： title()
坐标轴： axis()
参考线：abline()
图例：legend()
#依药剂量A和B对比情况 dose <- c(20,30,40,45,60) drugA <- c(16,20,27,40,60) drugB <- c(15,18,25,31,40) #设置线条，文本，符号，标签的宽度和大小 opar <- par(no.readonly = TRUE) par(lwd=2,cex=1.5,font.lab=2) #添加主标题，副标题，坐标轴名称和范围，设置颜色为红色 plot(dose,drugA,type=\'b\',col=\'red\',lty=2,pch=2,lwd=2, main = "DugA vs. DrugB", sub = "This is hypothetical data", xlab = "Drug Dosage",ylab = "Drug Response", xlim = c(0,60),ylim=c(0,70)) lines(dose,drugB,type=\'b\',pch=17,lty=2,col="blue") #添加参考线 abline(h=c(30),lwd=1.5,lty=2,col=\'gray\') library(Hmisc) minor.tick(nx=3,ny=3,tick.ratio=0.5) #添加图例 legend(\'topleft\',inset-.05,title="Drug Type",c(\'A\',\'B\'), lty=c(1,2),pch=c(15,17),col=c(\'red\',\'blue\')) par(opar)
4. 图形组合
par() 或者layout()函数可以容易的组合多幅图形为一幅总括图形
在par()函数使用 mfrow = c(nrows, ncols)按行填充，nfcol = c(nrows, ncols) 按列填充
attach(mtcars) opar <- par(no.readonly = TRUE) par(mfrow=c(2,2)) plot(wt,mpg,main = "Scatterplot of wt vs. mpg") plot(wt,disp,main="Scatterplot of wt vs. disp") hist(wt,main="Histogram of wt") boxplot(wt,main="Boxplot of wt") par(opar) detach(mtcars)
请发表评论