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) #恢复原来的图形环境
R语言画图实例-参考R语言实战的相关教程结束。
