通过一个具体的案例对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")#添加图例