R语言画图实例-参考R语言实战

 dose <- c(, , , ,)
 drugA <- c(, , , , )
 drugB <- c(, , , , ) # 数据准备

 opar <- par(no.readonly=T) # 保存画图环境

 par(lwd=, cex=1.5, font.lab=) # 设置画图环境
 plot(dose, drugA, type="b", pch=, lty=, col="red", ylim=c(,), main="Drug A vs. Drug B",
      xlab="Drug Dosage", ylab="Drug Response") # 画药物A
 lines(dose, drugB, type="b", pch=, lty=, col="blue") # 在原来的图形上画药物B

 abline(h=c(), lwd=1.5, lty=, col="grey") # 添加水平参考线x=

 install.packages("Hmisc") # 安装坐标轴精度的packages
 library(Hmisc)

 minor.tick(nx=, ny=, tick.ratio=0.5) # 设置次要刻度线是主刻度线的一半

 legend("topleft", inset=., title="Drug Type", c("A", "B"),
        lty=c(,), pch=c(,), col=c("red", "blue")) # 添加图例

 par(opar) #恢复原来的图形环境