通过一个具体的案例对R语言的画图进行分析，主要包括辅助线的添加，plot()函数的基本参数设置，以及图例坐标轴的设置。

案例分析

##数据的输入，

dose  <- c(20, 30, 40, 45, 60)
drugA <- c(16, 20, 27, 40, 60) 
drugB <- c(15, 18, 25, 31, 40)
##图形参数的设置其中par()函数的参数设置可以对接下来所有的plot()函数画出来的图形参数都是有效的。

opar <- par(no.readonly=TRUE)
par(lwd=2, cex=1.5, font.lab=2)

plot(dose, drugA, type="b",  pch=15, lty=1, col="red", ylim=c(0, 60),  main="Drug A vs. Drug B",  xlab="Drug Dosage", ylab="Drug Response") ##对药物A进行画图

lines(dose, drugB, type="b", pch=17, lty=2, col="blue")#加入药物B的线

abline(h=c(30), lwd=1.5, lty=2, col="gray")   #添加水平线

 legend("topleft", title="Drug Type",legend= c("A","B"),lty=c(1,2),pch=c(15,17),col=c("red","blue"),bty="n")#添加图例