R_3rd绘制基本的折线图

R_3rd绘制基本的折线图

 

> dose <-c(20,30,40,50,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 = "DrugResponse" )

> lines (dose, drugB , type= "b" , pch =17 ,lty =2 , col ="blue")

> abline(h =  c (30) ,lwd = 1.5, lty =2, col="gray")

> legend("topleft" , inset = 0.05, title = "Drug Type",c("A","B"),lty = c(1,2), pch = c(15,17), col =c("red", "blue"))

>par(opar)

 

 

对各行进行解析 ：

 

>  opar <- par (no.readonly = TRUE)

>  par(lwd = 2 , cex =1.5 ,font.lab = 2)

> par(opar)

 

 

 

第一行对于opar 可以理解为其设置一个特定的plot参数， par（no.ready= TRUE）表示可以生成一个可以修改的图形参数列表，在这中可以对其的任意的文本、坐标轴、进行修改。

par（lwd= ， cex= ，font.lab = ）都是其设定的环境参数，在其中进行修改可以与最后一行进行呼应。par(opar)

因为我们需要绘制两组折线，所以在绘制时不能再par内设定线的种类，颜色，折点的类型等。

 

par(opar)还原默认设置。

 

> 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 = "DrugResponse" )

> lines (dose, drugB , type= "b" , pch =17 ,lty =2 , col ="blue")

 

第一句绘制其dose，与 drugA 两个向量的对应关系， dose在前便是x轴，drugA表示后一个轴， type = “b”  表示类型b，为折线图，后期可能会列出别的type，这需要之后的学习中更加巩固。 pch表示折点类型15，lty表示折线类型1， col表示颜色， ylim表示其自定的坐标轴，需要注意坐标轴在这种也要加入c表示向量。main即表示主题 ，xlab和ylab表示相应的坐标轴名称。

lines即可表示添加另一条直线dose与drugB的函数关系。

 

> abline(h =  c (30) ,lwd = 1.5, lty =2, col="gray")

 

abline可以绘制辅助线， h = c（30） 表示在y =30处绘制一条lwd线条宽度为1.5 ， lty 线条类型为2，col颜色gray的辅助线。

> legend("topleft" , inset = 0.05, title = "Drug Type",c("A","B"),lty = c(1,2), pch = c(15,17), col =c("red", "blue"))

这一句的作用是绘制图列说明， topleft对应的是左上方， inset表示与图标的距离，title表示标题，后面的向量与图中的线一一对应，即可绘制出它的图列。+