《R语言实战》学习笔记二

以下是对《R语言实战》中的代码清单3-2的理解：

1、学习感受：刚开始是纠结于那些细节，每一个代码所代表的意思，等慢慢自己能看懂之后，就会想它为什么会这样写，会不自觉的把这些代码整体来看，找到代码设计的整体思路。

2、大体框架：一是要定义变量，给变量赋值；二是要作图的主体部分；三是要做图的坐标轴；最后添加文本和标题。

3、具体代码：

1> x<-c(1:10)

2> y<-x

3> z<-10/x

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

5> par(mar=c(5,4,4,8)+0.1)

6> plot(x,y,type="b",pch=21,col="red",yaxt="n",lty=3,ann=FALSE)

7> lines(x,z,type="b",pch=22,col="blue",lty=2)

8> axis(2,at=x,labels=x,col.axis="red",las=2)

9> axis(4,at=z,labels=round(z,digits=2),col.axis="blue",las=2,cex.axis=0.7,tck=-0.01)

10> mtext("y=1/x",side=4,line=3,las=2,cex.lab=1,col="blue")

11> title("A Example of Creative Axes",xlab="X values",ylab="Y=X")

12> par(opar)

最终作出来的图如下：

现对代码分析如下：

1、opar<-par(no.readonly=TRUE)这个语句是配合着最后一行的语句：par(opar)一起使用的.它的作用是使得作图的各种参数保持现在的一种状态，由于在这段代码中，前面没有用par函数对作图的参数进行修改，所以opar此时得到的值就是系统默认的作图参数的值。在整个代码的过程中，用par函数改变系统参数，所以在最后时又用par(opar)恢复到系统参数。但如果opar<-par(no.readonly=TRUE)这一语句没有放在最前面，而是放在了前面已经有用par来改变作图的某些参数之后，比如在本例中放到5的后面，那么用最后一个语句恢复的就不是系统参数了，而是经过5修改之后的那个参数。

2、par(mar=c(5,4,4,8)+0.1)这一代码表示所做出来的图离整个画布上，下，左，右的距离，我试了一下，写成5.1,4.1,4.1,8.1的结果和这个结果一样。但是感觉这种写法更简便吧、

3、> plot(x,y,type="b",pch=21,col="red",yaxt="n",lty=3,ann=FALSE)这一代码就开始作图了，如果只是plot(x,y)那么最终做出来的图就是散点图，这里默认的type="p",但如果用plot(x,y,type="b")所代表的意思就是用线把这些点逐个的连接起来，这个“b”应该就是both的意思，既包括点，也包括线。如果type="l“的话就是只有线而没有点。它还有很多参数，可以用help去看。同时可以把下一句中的line函数和它进行比较，plot是能够做出来一个图，而lines只是在这个图上添加线而已。如果在没有用plot函数创建出一个图之前，直接用lines就会报错。而lines这个函数它默认的是线图，各种type的设置也都和plot是一样的。还要注意的一点就是它的拼写是lines而不是line。除此之外，还有一个abline，这一函数做出来的必然是一条直线，在线性回归中做的直线就是通过它做出来的。

pch代表的是点的形状，col在这里指的是点和线的颜色，yaxt="n"就是让y轴没有刻度线(没有了刻度线自然也就不会存在刻度线旁边的对应的数字了），相应的xaxt的含义也是如此。ann=FALSE指的就是去掉默认的x轴的标签和y轴的标签。lty指的是线的类型(line type)

4、> lines(x,z,type="b",pch=22,col="blue",lty=2)在这一句中lines的各参数与plot的相同。

5、

8> axis(2,at=x,labels=x,col.axis="red",las=2)

9> axis(4,at=z,labels=round(z,digits=2),col.axis="blue",las=2,cex.axis=0.7,tck=-0.01)

这两句是对坐标轴进行定义的，数字1,2,3,4分别代表该坐标轴出现在图的下，左，上，右，也就是从下边开始进行逆时针旋转。at=x,at=z指的是选择那些数字做纵坐标的刻度，其实我觉得在这里有歧义，在第8句代码应该写成at=y更有利于读者理解，虽然在数值上x和y是相等的。labels所代表的是每个刻度的数值标签，应该和刻度是一一对应的，在第9句中将z的数值进行了四舍五入，保留了小数点后面两位数。col.axis指的是坐标轴的颜色，las则指的每个刻度对应的数值标签是垂直的还是平行的，如果是与坐标轴垂直就是2，平行就是0.

cex.axis=0.7是坐标轴变成原来的0.7倍，而这里的坐标轴指的其实是每个刻度旁边所对应的数字标签的大小。每个刻度在坐标轴上的位置没有发生变化。tck则指的是标量刻度的那些线的长短。如果是正的就说明在坐标轴的里面，如果是负的就说明在坐标轴的外边。

6、 10> mtext("y=1/x",side=4,line=3,las=2,cex.lab=1,col="blue")这个函数指的是在空白处添加文本，第一个“y=1/x”是所要添加的文本，side指的是添加在图形的哪一次，这个数字应该和坐标轴放在哪里的那个数字是对应的。line=3指的是文本离图形的边界线三行。cex.lab就是指所添加的文本大大小，有点想不通，它这里为什么要用1呢，如果是1的话，直接默认就好了啊。

7、11> title("A Example of Creative Axes",xlab="X values",ylab="Y=X"）

最后一步就是增加标题，以及横坐标的名称，纵坐标的名称。

http://www.yidianzixun.com/article/0K7e10Mu