Chapter 03—Getting Started with graphs

例01：一个简单的例子

一. 图形参数

1. 符号和线条

例02： plot(dose,drugA,type="b",lty=3,lwd=3,pch=15,cex=2)

2.颜色

例03：

例04: 着色的几种方法

注意：RGB和HSV的具体使用在另外一篇小文章中有讲到。

问题：col.axis,col.lab,col.main,col.sb,fg,bg不知该怎么使用？？

3. 文本参数

（1）指定文本大小的参数cex

（2）指定字体家族(font family)，大小(size)，样式(style)的参数font

例05：关于字体家族(font family)的小例子

> windowsFonts( A=windowsFont("Arial Black"), B=windowsFont("Bookman Old Style"), C=windowsFont("Comic Sans MS") )

A)字体的大小，样式比较容易设置，而字体家族则较难设计；因为对于serif，sans，mono各自的映射是具有设备相关性的。

B)可以用已知参数得到想要的映射，如 family="serif"；也可以创建新的映射，如例05。

C)在且仅在Windows平台下，能用函数windowsFont()函数创建映射关系。

D)在例05中，可以使用A,B,C作为字体家族值；如par(family="A")：会指定为Arial Black字体。

E)如果图像以PDF或PostScrip格式输出，则相对直接的改变相应的字体家族。

对于PDF格式：用names(pdfFonts())函数发现合适于系统的字体；用pdf(file="myplot.pdf",family="fontname")函数创建图像。

对于PostScript格式：用names(postscriptFonts())函数发现合适字体；用postscript(file="myplot.ps",family="fontname")函数创建图像。

4. 图形和页边空白参数

例06：

> par(pin=c(4,3),mai=c(1,.5,1,.2))

·图形的大小：宽为 4 inches，高为 3 inches，上下留白为 1 inches，左边留白为 0.5-inch，右边留白为 0.2-inch。

例07：一个图形参数综合应用的例子

> 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(pin=c(2,3))

> par(lwd=2,cex=1.5)

> par(cex.axis=.75,font.axis=3)

> plot(dose,drugA,type="b",pch=19,lty=2,col="red")

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

> par(opar)

注意：

·par()函数中指定的参数适用于两个图，而plot()中指定的参数仅适用于当前一个图像。

·par(...,no.readonly=FALLSE) 中readonly是一个逻辑值；

若为readonly=TRUE，仅能使用相同设备返回的被随后设备使用的par的参数；要是par()的参数能人为设置，则必须使得readonly=FALSE。

例08：关于readonly=FALSE的例子

二. 添加标题(text)，定制轴(customized axes)，注释(legends)

例09：综合运用参数的例子

> dose<-c(0,10,20,30,40,50,60,70)

> drugA<-c(0,10,20,30,40,50,60,70)

> plot(dose,drugA,type="b",col="red",lty=2,pch=2,lwd=2,

+main="Clinical Trials for Drug A",

+sub="This is hypothetical data",

+xlab="Dosage",ylab="Drug Response",

+xlim=c(0,60),ylim=c(0,70)

1.标题

使用函数title() ，为图像添加标题(title)和轴标签(axis labels).

title(main="main title",sub="sub title",xlab="x-axis label",ylab="y-axis label")

同时，其他图像参数如：文本大小，字体，颜色等同样可以由title()函数确定。

例10：

2.轴选项

通常使用R的缺省的轴即可，但也能创建用户轴，使用axis()函数。

axis(side,at=,labels=,pos=,lty=,col=,las=,tck=,...)

例10-11：

问题：该图在plot()函数中已经花了一次坐标轴名：x，y；在 title()函数中又对x，y轴重命名，则x，y轴出现坐标名重复。

解决办法：plot()函数中，选项：axes=FALSE，使所有坐标轴都没有名字；xaxt="n"，yaxt="n"，使XY轴没有名字。

未解决问题：plot()函数中，ann变量是做什么用的，为TRUE或FALSE时各有什么意义？

例11（修改版）：

line()函数：在一个已经存在的图像上添加新的图像元素；

mtext()函数：在图像的空白边缘添加文本。

（1）MINOR TICK MARKS

创建图时，自动创建major tick marks；要再创建minor tick marks，需要使用minor.tick()函数，该函数在Hmisc包中。

minor.tick(nx=n,ny=n,tick.ration=n)

·nx,ny：指定在X轴和Y轴上，在major tick marks之间要划分的间隔数量；

·tick.ratio：是minor tick mark相对于major tick mark的大小；

·现在的major tick mark可以恢复成为默认值，通过par("tck")。

例12：画一个简单图，仅有major tick mark

例12（扩展1）：在例12基础上，划分minor tick mark

例12（拓展2）：在例12（拓展1）的基础上，恢复到仅有major tick mark.

3.参考线（reference lines）

给图像添加参考线，常使用abline()函数。

abline(h=yvalues,v=xvalues)

其他的参数，如线条的类型，颜色，宽度，也是可以在abline()函数中指定的。

例13：一个简单的abline()的例子

补充：seq()函数：生成序列。

·seq(from, to)：生成从from到to的值，每次增加1；

·seq(from, to, by)：生成从from到to的值，每次增加by。

4. 图例（legend）

若一个图中有多个数据集，那么就需要图像去帮助辨识每一个线条，柱状图，扇形图等表示的意义。常使用legend()函数添加图例。

legend(location,title,legend,...)

选项	描述
位置(location)	1.使用相对左上角的（x，y）坐标 2.使用locator(1) ，然后用鼠标点击该图示要放置的位置； 3.使用关键字，如bottom,bottomleft,left,topleft,top,topright,right,bottomright,center来放置图示在图中的位置；若使用了上述关键字，则可以用inset来指定一个量使图示移到图像中间。
标题(title)	可选，图示标题的字符串。
图标(legend)	标号(labels)的一组字符向量。
......	其他选项， 1.注释标签的线条颜色：col= ，一组线条颜色的向量； 2.注释标签的点的类型，pch= ，一组点的类型的向量； 3.注释标签的线条线条宽度或线条样式，lwd=或lty= ，一组点的宽度或样式的向量。 3.fill()函数，为图例创造有色的盒子(colored box). 4.bty用于盒子类型(box type)，bg用于背景颜色，cex用于文本大小，text.col用于文本颜色。 5.horiz=TRUE，使图例为横向的。