《数据展现02》由会员分享，可在线阅读，更多相关《数据展现02（49页珍藏版）》请在金锄头文库上搜索。
1、DATAGURU专业数据分析网站 2012.10.28 R语言进阶数据展现 第2周 DATAGURU专业数据分析网站 2012.10.28 设置图形要素的颜色（回顾） 设置点的颜色 plot(rnorm(1000),col=“red“) 2 DATAGURU专业数据分析网站 2012.10.28 设置图形要素的颜色（回顾） 画线的颜色 sales - read.csv(“dailysales.csv“,h eader=TRUE) plot(sales$unitsas.Date(sale s$date,“%d/%m/%y“), type=“l“, #Specify type of plot as
2、 l for line col=“blue“) 3 DATAGURU专业数据分析网站 2012.10.28 设置图形要素的颜色（回顾） Plot函数中，使用col=参数来决定要素的颜色 如果不指定plot type，颜色加在散点上，如果指定了plot type，例如line，则颜色加 在线上 其它函数，例如barplot() 和 histogram() 也使用col=参数影响颜色 4 DATAGURU专业数据分析网站 2012.10.28 颜色的表达 可以使用颜色名 使用colors() 函数列出全部颜 色名，约有660种 5 DATAGURU专业数据分析网站 2012.10.28 使用数值表
3、达颜色 col=n n为当前调色板上的颜色值 缺省调色板下，1表示黑色，2表示红色，0表示背景色 palette() 函数观看当前调色板 6 DATAGURU专业数据分析网站 2012.10.28 改变缺省调色板 7 DATAGURU专业数据分析网站 2012.10.28 十六进制表达的颜色 plot(rnorm(1000),col=“#AC5500BB“) 红色，绿色，蓝色，alpha（透明度） 8 DATAGURU专业数据分析网站 2012.10.28 heat.colors() 9 DATAGURU专业数据分析网站 2012.10.28 直观的调色板控制包RColorBrewer lib
4、rary(RColorBrewer) display.brewer.all() 10 DATAGURU专业数据分析网站 2012.10.28 11 DATAGURU专业数据分析网站 2012.10.28 颜色向量：使用多颜色画图 sales- read.csv(“citysales.csv“,header=TRUE) barplot(as.matrix(sales,2:4), beside=T, legend=sales$City, col=c(“red“,“blue“,“green“,“orange“,“pink“), border=“white“) 颜色数和样本数要相等 12 DATAGU
5、RU专业数据分析网站 2012.10.28 循环颜色 barplot(as.matrix(sales,2:4), beside=T, legend=sales$City, col=c(“red“,“blue“,“green“,“orange“), border=“white“) 13 DATAGURU专业数据分析网站 2012.10.28 利用heat.colors() barplot(as.matrix(sales,2:4), beside=T, legend=sales$City, col=heat.colors(length(sales$City), border=“white“) 14
6、 DATAGURU专业数据分析网站 2012.10.28 利用rainbow() barplot(as.matrix(sales,2:4), beside=T, legend=sales$City, col=rainbow(length(sales$City), border=“white“) 15 DATAGURU专业数据分析网站 2012.10.28 利用terrain.colors() barplot(as.matrix(sales,2:4), beside=T, legend=sales$City, col=terrain.colors(length(sales$City), bord
7、er=“white“) 16 DATAGURU专业数据分析网站 2012.10.28 其它颜色函数 cm.colors() topo.colors() 17 DATAGURU专业数据分析网站 2012.10.28 设置背景颜色 par(bg=“gray“) plot(rnorm(100) par()的作用直到画板被关闭为 止 18 DATAGURU专业数据分析网站 2012.10.28 只设置坐标系内的背景颜色 plot(rnorm(1000),type=“n“) x-par(“usr“) rect(x1,x3,x2,x4,col=“lightgra y “) points(rnorm(100
8、0) 19 DATAGURU专业数据分析网站 2012.10.28 设置标题、坐标轴标号等颜色 plot(rnorm(100), main=“Plot Title“, col.axis=“blue“, col.lab=“red“, col.main=“darkblue“) 20 DATAGURU专业数据分析网站 2012.10.28 使用par()设置 par(col.axis=“black“, col.lab=“#444444“, col.main=“darkblue“) plot(rnorm(100),main=“plot“) par()的作用直至下一条par()设置命 令，或者重新开一个
9、图形设备 21 DATAGURU专业数据分析网站 2012.10.28 使用title()函数 title(“Sales Figures for 2010“, col.main=“blue“) title(xlab=“Month“,ylab=“Sales“,col.lab=“red“) title(xlab=“X axis“,col.lab=“red“) title(ylab=“Y axis“,col.lab=“blue“) 可以覆盖缺省的标题设置 可以用于设置画图参数 22 DATAGURU专业数据分析网站 2012.10.28 字体设置 Win下能用的字体非常有限 用par(family=
10、“serif”,font=2) 设置Times New Roman字体 0 缺省，1 粗体，2 斜体，3 粗斜体 23 DATAGURU专业数据分析网站 2012.10.28 设置散点的样式 rain-read.csv(“cityrain.csv“) plot(rnorm(100),pch=19,cex=2) 24 DATAGURU专业数据分析网站 2012.10.28 pch参数 代表散点的符号 1 圆圈 2 三角形 3 加号 等等 rain-read.csv(“cityrain.csv“) plot(rnorm(100),pch=“*“,cex=2) 25 DATAGURU专业数据分析网站
11、 2012.10.28 cex参数：控制散点的大小 plot(rnorm(100),pch=19,cex=1) plot(rnorm(100),pch=19,cex=3) 26 DATAGURU专业数据分析网站 2012.10.28 例子 plot(rain$Tokyo, ylim=c(0,250), main=“Monthly Rainfall in major cities“, xlab=“Month of Year“, ylab=“Rainfall (mm)“, pch=1) points(rain$NewYork,pch=2) points(rain$London,pch=3) poi
12、nts(rain$Berlin,pch=4) legend(“top“, legend=c(“Tokyo“,“New York“,“London“,“Berlin“), ncol=4, cex=0.8, bty=“n“, pch=1:4) 27 DATAGURU专业数据分析网站 2012.10.28 决定线型与宽度 plot(rain$Tokyo, ylim=c(0,250), main=“Monthly Rainfall in major cities“, xlab=“Month of Year“, ylab=“Rainfall (mm)“, type=“l“, lty=1, lwd=2)
13、lines(rain$NewYork,lty=2,lwd=2) lines(rain$London,lty=3,lwd=2) lines(rain$Berlin,lty=4,lwd=2) legend(“top“, legend=c(“Tokyo“,“New York“,“London“,“Berlin“), ncol=4, cex=0.8, bty=“n“, lty=1:4, lwd=2) 28 DATAGURU专业数据分析网站 2012.10.28 lty参数：决定线型 29 DATAGURU专业数据分析网站 2012.10.28 用bty参数控制坐标系的风格 par(bty=“l“) p
14、lot(rnorm(100) par(bty=“7“) plot(rnorm(100) par(bty=“c“) plot(rnorm(100) par(bty=“u“) plot(rnorm(100) 30 DATAGURU专业数据分析网站 2012.10.28 box()函数 par(oma=c(1,1,1,1) plot(rnorm(100),bty=“l“) box(which=“figure“) 31 DATAGURU专业数据分析网站 2012.10.28 设置坐标轴刻度 plot(rnorm(100),xaxp=c(0,100,10) 32 DATAGURU专业数据分析网站 201
15、2.10.28 xaxp与yaxp参数 缺省情况下比上限再增加大约4%，并且自动计算刻度 可以通过xaxs 来改变上述风格 33 DATAGURU专业数据分析网站 2012.10.28 las参数：刻度数字的方向 par(las=3) plot(rnorm(100),xaxp=c(0,100,10) par(las=2) plot(rnorm(100),xaxp=c(0,100,10) par(las=1) plot(rnorm(100),xaxp=c(0,100,10) 34 DATAGURU专业数据分析网站 2012.10.28 设置画图区域大小 par(fin=c(5,5), pin=c
16、(3,3) 35 DATAGURU专业数据分析网站 2012.10.28 mai和omi参数：控制边缘 36 DATAGURU专业数据分析网站 2012.10.28 控制边缘 par(mai=c(1,1,1,1), omi=c(0.1,0.1,0.1,0.1) plot(rnorm(100),xaxp=c(0,100,10) 37 DATAGURU专业数据分析网站 2012.10.28 介绍一个R画图网站 http:/www.stat.auckland. ac.nz/paul/RGraphics/rgraphics.html 第三章解释边缘 38 DATAGURU专业数据分析网站 2012.10.28 边缘 39 DATAGURU专业数据分析网站 2012.10.28 维基百科可视化 40 DATAGURU专业数据分析网站 2012.10.28 维基百科可视化 41 DATAGURU专业数据分析网站 2012.10.28 维基百科可视化 42 DATAGURU专
