r语言 第14 天 画图 287页
1 画出新的图形 high level
plot函数
boxplot
hist 直方图
qqnorm 分位图
curve 函数图形
2 不画出新图形 low level
points Add points
lines Add lines
abline Add a straight line
segments Add line segments
polygon Add a closed polygon
text Add text
注意： 使用low level图形之前，要先画出high level
3 其他的包
zoo lattice ggplot2
画图
1 散点图 需要是numeric
> plot(x, y)
2 添加元素
> plot(x, main="The Title", xlab="X-axis Label", ylab="Y-axis Label")
ann=FALSE 是抑制注释
> plot(x, ann=FALSE)
> title(main="The Title", xlab="X Axis Label", ylab="Y Axis Label")
3 添加网格
> plot(x, y, type="n") type=“n” 初始化图形，不导入数据
> grid()
> points(x, y)
4 多个组的散点图
> plot(x, y, pch=as.integer(f)) 根据f的分组，画出散点图 ？？？？？
> with(iris, plot(Petal.Length, Petal.Width))
> with(iris, plot(Petal.Length, Petal.Width, pch=as.integer(Species)))
5 legend添加图例
Legend for points legend(x, y, labels, pch=c(pointtype1, pointtype2, ...))
Legend for lines according to line type legend(x, y, labels, lty=c(linetype1, linetype2, ...))
Legend for lines according to line width legend(x, y, labels, lwd=c(width1, width2, ...))
Legend for colors legend(x, y, labels, col=c(color1, color2, ...))
6 为散点图画线性回归线
> m <- lm(y ~ x)
> plot(y ~ x)
> abline(m)
7 对于dataframe也可以使用plot，即各列对各行分别画图
8 为每一个因素建一个散点图
> coplot(y ~ x | f)
9 barplot（） 柱形图
还可以给柱形图添加置信区间 gplots包的barplot2函数可以添加置信区间
> library(gplots)
> barplot2(x, plot.ci=TRUE, ci.l=lower, ci.u=upper)
10 使用 col 参数 设置颜色
11 画线
> plot(x, y, type="l")
改变颜色，宽度，形式
• lty="solid" or lty=1 (default) • lty="dashed" or lty=2 • lty="dotted" or lty=3
• lty="dotdash" or lty=4 • lty="longdash" or lty=5 • lty="twodash" or lty=6
• lty="blank" or lty=0 (inhibits drawing)
使用 lwd 参数 设置宽度
12 绘制多个数据集 先用plot high level ， 再用 low level
13 添加水平或者垂直线
> abline(v=x) # Draw a vertical line at x
> abline(h=y) # Draw a horizontal line at y
14 创建一个箱线图 barplot
15 为每一个factor创建一个箱线图
> boxplot(x ~ f)
16 给直方图加入一个密度估计
> hist(x, prob=T) # Histogram of x, using a probability scale
> lines(density(x)) # Graph the approximate density
prob=T 设置y轴为概率，必须的
17 创建离散直方图
> plot(table(x), type="h")
18 正态分位数
> qqnorm(x)
> qqline(x)
19 其他分部的分位数
ppoints 产生0-1间的点
20 颜色
> colors <- ifelse(x >= 0, "black", "gray")
> plot(x, type='h', lwd=3, col=colors)
21 给函数画图
> curve(sin, -3, +3) # Graph the sine function from -3 to +3
22 在绘制多个图的时候，暂停
> par(ask=TRUE) R会在画图时 停一下
> par(ask=FALSE) 不用暂停
23 一起展现多个图 按行填充
> par(mfrow=(c(N,M)) # Divide the graphics window into N x M matrix 分划图
然后开始画图
想要按列填充 > par(mfcol=c(3,3)) # mfcol, not mfrow
24 打开附加的图形窗口
> win.graph() 之后画的图就在新的窗口展示，原来的图也存在
> dev.set() 返回当前窗口数量
> win.graph(width=7.0, height=5.5) 还可以设置高和宽
25 保存图片到文件里
> savePlot(filename="filename.ext", type="type")
写入到当前的工作文件环境
> png("myPlot.png", width=648, height=432) # Or whatever dimensions work for you png可以更换
> plot(x, y, main="Scatterplot of X, Y")
> dev.off() 不要忘了关闭
26 图形参数改变
使用 par（）函数，改变全局的环境参数
ylog=logical Use logarithmic Y scale par(ylog=TRUE)