R语言简单绘图(一)

dose <- c(20,30,40,45,60)
dragA <- c(16,20,27,40,60)
dragB <- c(15,18,25,31,40)
plot(dose,dragA,type="b")
plot(dose,dragB,type="b") 

在这里插入图片描述

opar <- par(no.readonly = TRUE)
par(lty=2, pch=17)
plot(dose,dragA, type = "b")
plot(dose, dragA, type="b", lty=2,pch=19)

在这里插入图片描述
在这里插入图片描述

plot(dose, dragA, type = "b", lty=6, lwd=2, pch=11,cex=3, col="blue") 
plot(dose, dragA, type = "b", lty=6, lwd=2, pch=11,cex=3, col="blue",col.axis="red")
plot(dose, dragA, type = "b", lty=6, lwd=2, pch=11,cex=3, col="blue",col.axis="red",col.lab="green")

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

opar <- par(no.readonly = TRUE)
par(pin=c(2,3))
par(lwd=2,cex=1.5)
par(cex.axis=0.75, font.axis=3)
plot(dose, dragA,type="b",pch=19, lty=2, col="red")

在这里插入图片描述

plot(dose, dragB,type="b",pch=23, lty=6, col="blue", bg="green")

在这里插入图片描述

par(opar)
plot(dose, dragA, type="b", col="red", lty=2, pch=2, lwd=2, main = "药物A的反应曲线", sub="测试数据",xlab="剂量",ylab="病人的反应", xlim=c(0,60),ylim=c(0,70))

在这里插入图片描述

一些画图参数描述:
在这里插入图片描述在这里插入图片描述
在这里插入图片描述
给做坐标轴增加刻度与水平、垂直线:minor.tick(), abline()

plot(1:4, 1:4, type="b")
minor.tick(nx=3, ny=2, tick.ratio = 0.5)
abline(h=2, col="red",lty=2)
abline(v=2, col="blue",lty=1)

在这里插入图片描述
在这里插入图片描述
添加图例:legend()

dose <- c(20,30,40,45,60)
dragA <- c(16,20,27,40,60)
dragB <- c(15,18,25,31,40)
plot(dose, dragA,type="b",pch=15,lty=1,col="red",ylim=c(0,60),main="A与B的对比", xlab="剂量", ylab="药物反应")
lines(dose,dragB, type="b",pch=17,lty=2,col="blue")
legend("topleft", inset=0.05, title = "类型",legend=c("A","B"),lty=c(1,2),pch=c(15,17),col=c("red", "blue"))
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页