1 图形标题的修改
输入数据：
dose<-c(20,30,40,50,60)
drugA<-c(16,20,27,40,60)
drugB<-c(15,18,25,31,41)
(1) plot(dose,drugA,type="b",col="red",lty=2,pch=2,lwd=2,main="Clinical",sub="This is dose",xlab="dose-xx",ylab="drugA--yy",xlim=c(0,60),ylim=c(0,70))
解释：col设置线条的颜色，lty设置线条类型，为2意思是虚线，pch=17意思是三角标识，lwd是设置线条的宽度，main设置图形标题，sub设置子标题，xlab设置横坐标轴名字，ylab设置轴坐标轴名字，xlim设置横坐标轴刻度区间，ylim设置纵坐标轴刻度区间
(2) 图形绘制与标题设置分开
plot(dose,drugA,type="b",col="red",lty=2,pch=2,lwd=2)
title(main="Clinical",sub = "This is dose",col.main="red",col.sub="blue")
2 图形坐标轴的修改
输入数据：
x<-c(1:10)
y<-x
z<-10/x
(1)把原始格式参数先保存
opar<-par(no.readonly = T)
(2)坐标轴修改
plot(x,y,type="b",pch=21,col="red",yaxt="n",lty=3,ann=F)
解释：type设置为折线图，col设置线条颜色，yaxt设置y轴隐藏（不显示），lty设置线条类型（点画线），ann设置其他可能存在的标题为不显示
lines(x,z,type = "b",pch=22,col="blue",lty=2)
解释：type设置为折线图，pch设置线条中间符号的标识，col设置线条颜色，lty设置线条类型（点画线）
axis(2,at=x,labels=x,col.axis="red",las=2)
解释：第一个参数：1，2，3，4代表下左上右，2设置左侧坐标轴，at=x表示画的刻度线是x，,labels=x设置标签为x，col.axis设置坐标轴刻度的颜色，las=2设置坐标轴刻度垂直
axis(4,at=z,labels=round(z,digits=2),col.axis="blue",las=2,cex.axis=0.7,tck=.01)
解释：4设置右侧刻度线，at=z代表画的是z的刻度线，labels设置标签对z取两位小数，col.axis设置坐标轴刻度的颜色，las=2设置坐标轴刻度垂直，cex.axis设置刻度标识大小，tck设置两位小数点
mtext("y=1/x",side=3,line=3,cex.lab=1,las=1,col="blue")
title("An Example",xlab = "XX",ylab="YY")
解释：y=1/x函数名，side=3代表在图形上方显示函数，line=3，cex.lab是设置坐标轴字体大小，las=设置函数横向显示，col设置颜色，title设置主标题和横纵坐标标题
abline(h=c(1,5,7))
abline(v=seq(1,10,2),lty=2,col="blue")
解释：abline是画参考线
(3)恢复原始格式参数
par(opar)