opar<-par(no.readonly=TRUE)#复制一份当前的图形参数设置
par(lty=2,pch=17)#参数设置,lty=2表示虚线,pch=17表示实心三角
plot(dose,drugA,type="b")#以dose为横坐标,以drugA为纵坐标,type=b意思为即画点也画线
par(opar)#结束
pch=点样式参考:https://blog.csdn.net/sanqima/article/details/51322992
col=颜色参考:https://blog.csdn.net/Bone_ACE/article/details/47362619
lty=线条类型:
详细的参数参考:https://blog.csdn.net/zhyoulun/article/details/46430807
dose <- c(20,30,40,45,60)
drugA <- c(16,20,27,40,60)
drugB <- c(15,18,25,31,40)
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")
lines(dose,drugB,type="b",pch=17,lty=2,col="blue")
legend("topleft",inset=.05,title="Drug Type",c("A","B"),lty=c(1,2),pch=c(15,17),col=c("red","blue"))
par(opar)
图形的组合
attach(mtcars)
opar<-par(no.readonly=TRUE)
par(mfrow=c(2,2))#就这里可以调节组合模式,ha则表示两行两列,三行一列就是c(3,1)
画第一行第一列
画第一行第二列
画第二行第一列
画第二行第二列
par(opar)
detch(mtcars)