R绘图函数可以分为两大类：一类是创建图形函数；另一类是对生成的图形进一步进行元素添加函数。两类函数相辅相成可以使我们形成漂亮图形

1、plot()函数

函数说明：plot(x, y, type="",main="",sub="",xlab="",ylab="",...)

其中x，y为X 轴及Y轴的数据；

type参数:

b--同时画出点和线;p--画出点

;l--画出线;

c--没有点只有线;o--同时画出点和线,线覆盖点；h--画出垂直线;

s--画出下阶梯图；S--画出上阶梯图；

n--什么都不画

main:图片标题

sub:图片副标题；

xlab:x轴标题​

ylab:y轴标题​

利用R语言自带的数据iris:

attach(iris)

plot(Sepal.Length, Sepal.Width,type="p",main="iris

data",sub="length~width",xlab="Sepal.Length",ylab="Sepal.Width")​

利用R语言自带的数据 cars:

​plot(cars$dist~cars$speed,#y~x

main="Relationship between car distance

& speed",#标题

xlab = "Speed(miles per hour)",#x轴标题

ylab = "Distance travelled

(miles)",#Y轴标题

xlim = c(0,30),#设置x轴的取值区间为0到30

ylim = c(0,140),#设置y轴的取值区间为0到140

xaxs = "i",#这里是设置x轴的风格，暂时没看明白有多大区别

yaxs = "i",

col = "red",

pch = 3)

其中pch指代点的形状，用数字表示，可查看帮助文档

点的形状

2、图形的参数：​​

R语言绘图是通过函数命令及相应参数设置实现的。如plot(x，y)，plot为绘图函数命令，x，y则是绘图参数，指定了绘图的数据向量。但这种最基本的绘图设置很难满足个性化绘图的要求，我们需要根据需要对图形元素进行设置。图形元素是各类图形的基本构成要素，因此，不管我们绘制那种类型的图形，都离不开图形元素的设定，要想绘制出漂亮的统计图形，我们首先要熟悉绘图函数最常见的参数设置。

1)par()设置图形参数

复制一份单签的图形参数  opar = par(no.readonly=TRUE)

将默认的线性类型修改为虚线(lty=2)并且将默认的点符号改为了实心三角(pch=17)par(lty=2,pch=17)​

还原了原始设置  par(opar)

或者直接通过设置参数来实现上面样式变化，但只是针对于这张图

plot(dose,drugA,type="b",lty=2,pch=17)

​​​pch

:指定绘制点时使用的符号(1-25中类型，具体可参加POINTS函数)

cex：指定符号的大小。cex是一个数值，表示绘图符号相对于默认值大小的缩放倍数。默认大小为1,1.5表示放大为默认值的1.5倍.

lty：指定线条类型 (0=blank, 1=solid (default),

2=dashed, 3=dotted, 4=dotdash, 5=longdash, 6=twodash)

lwd：指定线条宽度。(默认值的几倍)

2)颜色设置

col：默认的绘图颜色。如这是col=c("red","blue")并需要绘制两条线，第一条为红色，第二条为蓝色

col.axis 坐标轴颜色   col.main

标题颜色  col.sub 副标题的颜色

fg 前景色   bg

背景色​

R中也用多种用于创建连续型颜色向量的函数：

rainbow() heat.colors() terrain.colors() top.colors()

cm.colors() gray()可以生成多节灰度

n=10  mycolors=rainbow(n)

pie(rep(1,n),labels=mycolors,col=mycolors)​​

mygrays=gray(0:n/n)

pie(rep(1,n),labels=mygrays,col=mygrays)​​

3)坐标轴设置

cex：表示相对默认大小缩放倍数的数值。(倍数)

cex.axis：坐标轴刻度文字的缩放倍数。 cex.lab：坐标轴标签(名称)的缩放倍数。

cex.main：标题的缩放倍数 cex.sub：副标题的缩放倍数

font：

整数类型,1=常规，2=粗体，3=斜体，4=粗斜体，5=符号字体(adobe编码)

font.axis font.lab font.main font.sub ps 磅值文本最终的大小为ps*cex

标题 可以使用title()函数为图形添加标题和坐标轴标签。

坐标轴 side：一个整数，表示图形的那边会画坐标(1,2,3,4对应下、左、上、右)

at: 一个数值型向量，表示需要绘制刻度线的位置

labels：一个字符型向量，表示至于刻度线旁边的文字表全(如果是NULL，直接使用at中的值)

pos：坐标轴线位置的坐标 ;   lty：线条类型

;

col：线条的刻度线颜色

las：标签是否平行于(=0)或垂直于(=2)坐标轴

tck：刻度线的长度，以向对于绘图区域大小的分数表示(负数表示在图形外侧，整数表示在图形内侧)

Hmisc包中的minor.tick()函数 用来创建次要刻度线。

tick.ratio表示次要刻度线相对于主刻度线的大小比例。当前主刻度线长度可以用par("tck")获取。​

4)参考线

函数abline()可以用来为图形添加参考线。

abline(h=yvalues,v=xvalues)

abline(v=seq(1,10,2),lty=2,col="blue")

5)图例

legend(location,title,legend,..)

添加图例

location：可以直接给定xy值；location(1)通过鼠标单击给出图例的位置；关键字:bottom、bottomleft、left、topleft、topright、right、bottomright、center，同时使用参数inset=指定图形想图形内侧移动的大小(以绘图大小的分数表示)

title：图例标题的字符串(选)

legend：图例标签组成的字符型向量

文本标注

text(location，“”，pos...)

mtext(“”，side，line=n...)

其中 location：可以直接给定xy值；location(1)通过鼠标单击给出图例的位置

pose：整数，文本相对位置的方向参数。如果指定参数offset=,,作为偏移量，以相对于单个字符宽度的比例表示

side：整数，指定用来放置文本的边。

par()增大字号 plotmath()数学标注

attach(mtcars)

plot(wt,mpg,main="Mileage vs

CarWeight",xlab="Weight",ylab="Mileage",pch=18,col="blue")

text(wt,mpg,row.names(mtcars),cex=0.6,pos=4,col="red")

detach(mtcars)​​

6)图形组合

在R中使用函数par()或layout()可以容易地组合多幅图形为一幅图形。

par()函数中使用图形参数mfrow=c(nrows,ncols)来穿件按行填充的、行数为nrows、列数为ncols的图形矩阵。另外，可以使用nfcols=c(nrows,ncols)按列填充矩阵。​

把一个页面平分成n份做n个图，用par函数的mfrow和mfcol参数。这两个参数都是两个值的向量，表示行数和列数，但在页面上作图顺序的顺序不一样。如果用mfrow参数，一行一行从左到右作图；mfcol则是一列一列的做。下面图形的代码只有第一行不一样，注意看每个图内的点(数字)：

attach(mtcars)

opar=par(no.readonly=TRUE)

#复制一份单签的图形参数

par(mfrow=c(3,1))

hist(wt)

hist(mpg)

hist(disp)

par(opar)

#还原了原始设置​

detach(mtcars)

attach(mtcars)

opar= par(no.readonly=TRUE)

par(mfrow=c(2,2))

plot(wt,mpg,main="Scatterplot of wt vs. mpg")

plot(wt,disp,main="Scatterplot of wt vs. disp")

hist(wt,main="Boxplot of wt")

boxplot(wt,main="Boxplot of wt")

par(opar)

detach(mtcars)​​

如果页面不均等分隔绘制多图，用layout函数分隔页面。它有四个参数，mat，widths，heights和respect。后三个参数有默认值，这里我们只设置第一个参数mat。它是一个矩阵，表示绘图区分隔的各部分，相同数字的部分合并成一个绘图区，数字也是它们作图时的顺序。

函数layout()的调用形势为layout(mat)，其中的mat是一个矩阵，它指定了所要组合的多个图形所在位置。

attach(mtcars)​

opar= par(no.readonly=TRUE)

layout(matrix(c(1,1,2,3),2,2,byrow=TRUE))

hist(wt)

hist(mpg)

hist(disp)​

par(opar)

detach(mtcar)​

下面代码，将一幅图形放在第一行，两幅图放在第二行，但第一行高度是第二行中图形高度的三分之一，并且，右下角图形宽度是左下角图形宽度的四分之一。

attach(mtcars)​

opar= par(no.readonly=TRUE)

layout(matrix(c(1,1,2,3),2,2,byrow=TRUE),widths=c(3,1),heights=c(1,2))

hist(wt)

hist(mpg)

hist(disp)​

attach(mtcars)​

detach(mtcars)​