語言數(shù)據(jù)可視化2021/5/91學(xué)習(xí)內(nèi)容一R繪圖基礎(chǔ)二各類圖形繪制三習(xí)題和資料2021/5/92為什么要學(xué)習(xí)R語言R是一個(gè)開放(GPL)的統(tǒng)計(jì)編程環(huán)境一種語言，是Ｓ語言(由AT&TBell實(shí)驗(yàn)室的RickBecker,JohnChambers,AllanWilks開發(fā))的一種方言(dialect)之一，另一則為S-plus.一種軟件，是集統(tǒng)計(jì)分析與圖形直觀顯示于一體的統(tǒng)計(jì)分析R作為一個(gè)計(jì)劃(project)，最早(1995年)是由Auckland大學(xué)統(tǒng)計(jì)系的RobertGentleman和RossIhaka開始編制，目前由Ｒ核心開發(fā)小組(RDevelopmentCoreTeam-以后用RDCT表示)維護(hù)，他們完全自愿、工作努力負(fù)責(zé)，并將全球優(yōu)秀的統(tǒng)計(jì)應(yīng)用軟件打包提供給我們。我們可以通過Ｒ計(jì)劃的網(wǎng)站()了解有關(guān)Ｒ的最新信息和使用說明，得到最新版本的Ｒ軟件和基于Ｒ的應(yīng)用統(tǒng)計(jì)軟件包.2021/5/93Ｒ是完全免費(fèi)的！！而S-Plus盡管是非常優(yōu)秀的統(tǒng)計(jì)分析軟件，可是你需要支付一筆$US.R可以在運(yùn)行于UNIX,Windows和Macintosh的操作系統(tǒng)上.R嵌入了一個(gè)非常實(shí)用的幫助系統(tǒng).R具有很強(qiáng)的作圖能力.我們將Ｒ程序容易地移植到S-Plus程序中，反之Ｓ的許多過程直接或稍作修改用于Ｒ.通過Ｒ語言的許多內(nèi)嵌統(tǒng)計(jì)函數(shù)，很容易學(xué)習(xí)和掌握R語言語法.我們可以編制自己的函數(shù)來擴(kuò)展現(xiàn)有的Ｒ語言(這就是為什么它在不斷等級(jí)完善!!)…....為什么要學(xué)習(xí)R語言2021/5/94一R繪圖基礎(chǔ)2021/5/95圖

R繪制的圖形2021/5/96繪制地圖圖

左圖maps包map()右圖PBSmapping包addBubbles()

2021/5/97繪制地圖圖

fields包實(shí)例spdep

包實(shí)例2021/5/98R繪圖功能R具備卓越的繪圖功能，通過參數(shù)設(shè)置對(duì)圖形進(jìn)行精確控制。繪制的圖形能滿足出版印刷的要求，可以輸出Jpg、tiff、eps、emf、pdf、png等各種格式。通過與GhostScript軟件的結(jié)合，可以生成600dpi，1200dpi的等各種分辨率和尺寸的圖形。繪圖是通過繪圖函數(shù)結(jié)合相應(yīng)的選項(xiàng)完成的。2021/5/99demo（graphics）：了解R繪圖功能繪圖函數(shù)包括：高階繪圖函數(shù)High-levelPlottingFunction產(chǎn)生一個(gè)新的圖區(qū)，可能包括坐標(biāo)軸、標(biāo)簽、標(biāo)題等。低階繪圖函數(shù)

Low-levelPlottingFunction在已有的圖上加更多的元素繪圖參數(shù)缺省值?par()R繪圖功能2021/5/910高階繪圖函數(shù)plot(x)、plot(x,y)繪制散點(diǎn)圖等多種圖形,根據(jù)數(shù)據(jù)的類，調(diào)用相應(yīng)的函數(shù)繪圖pie(x)餅圖boxplot(x)箱線圖hist(x)頻率直方圖coplot(x~y|z)條件分割圖Interaction.plot(f1,f2,y)交互效應(yīng)圖qqplot(x,y)、qqnorm(x)QQ圖contour(x,y,z)等高線圖persp(x,y,z)三維透視圖2021/5/911barplot(x)柱狀圖/條形圖matplot(x,y)矩陣圖mosaicplot(x)馬賽克圖pairs(x)散點(diǎn)圖矩陣sunflowerplot(x,y)向日葵散點(diǎn)圖stars(x)星狀圖stripchart(x)帶狀圖dotchart(x)Cleveland點(diǎn)圖filledcontour(x,y,z)顏色等高線圖image(x,y,z)顏色圖高階繪圖函數(shù)2021/5/912低階繪圖函數(shù)points()添加點(diǎn)lines()添加線curve()添加曲線abline()添加給定斜率的線title()添加標(biāo)題text()添加文字mtext()在圖的邊空添加文字axis()畫坐標(biāo)軸2021/5/913低階繪圖函數(shù)legend()添加圖例rug()添加刻度線rec()繪制長(zhǎng)方形polygon()繪制多邊形segments()添加線段arrows()畫箭頭box()添加外框2021/5/914繪圖參數(shù)參數(shù)用在函數(shù)內(nèi)部，在沒有設(shè)定值時(shí)使用缺省值。font=

字體,lty=

線類型,lwd=

線寬度,pch=

點(diǎn)的類型,xlab=

橫坐標(biāo),ylab=

縱坐標(biāo),xlim=

橫坐標(biāo)范圍,ylim=

縱坐標(biāo)范圍,也可以對(duì)整個(gè)要繪制圖形的各種參數(shù)進(jìn)行設(shè)定參見？par()2021/5/915繪圖參數(shù)2021/5/916一頁多圖圖

一頁多圖par()par(mfrow=c(2,2))...2021/5/917在原有圖形上添加元素舉例：先執(zhí)行par(mfrow=c(2,2))x<-rnorm(100)#生成隨機(jī)數(shù)hist(x,freq=F)#繪制直方圖curve(dnorm(x),add=T)

#添加曲線h<-hist(x,plot=F)#繪制直方圖ylim<-range(0,h$density,dnorm(0))#設(shè)定縱軸的取值范圍hist(x,freq=F,ylim=ylim)#繪制直方圖curve(dnorm(x),add=T,col="red")

#添加曲線2021/5/918圖

在原有直方圖上添加曲線2021/5/919二、各類圖形繪制1基于比較的繪圖柱形圖.R、條形圖.R、折線圖.R、2基于關(guān)系的繪圖散點(diǎn)圖.R、氣泡圖.R3基于組合的繪圖餅圖.R、4基于分布的繪圖直方圖.R、核密度圖.R、凹槽箱線圖.R、箱線圖.R、小提琴圖.R5基于時(shí)間的繪圖LOESS曲線圖.R、階梯圖.R6基于空間的繪圖地圖添加標(biāo)記.R、地圖中畫氣泡.R、地圖中畫線.R7多維信息可視化散點(diǎn)圖矩陣.R、線圖.R、平行坐標(biāo)圖.R、星狀圖.R、堆疊柱狀圖.R、熱力圖.R、馬賽克圖.R、切爾諾夫臉譜圖.R8文本與文檔可視化詞云-英文.R、詞云-中文.R2021/5/920tN<-table(Ni<-rpois(100,lambda=5))tN01234567891112

17121416141994211r<-barplot(tN,col='gray')條形圖2021/5/921餅圖pie(tN)2021/5/922par(mfrow=c(1,3))y<-rt(200,df=5)qqnorm(y);qqline(y,col=2)#和正態(tài)分布比qqplot(y,rt(300,df=5));#和t(5)分布比data(precip)qqnorm(precip,ylab=“Precipitation[in/yr]for70UScities”);qqline(precip,col=3)#和正態(tài)分布比par(mfrow=c(1,1))QQ圖2021/5/923data(iris)pairs(iris[1:4],main="Anderson'sIrisData--3species",pch=21,bg=c("red","green3","blue")[codes(iris$Species)])#iris為1505數(shù)據(jù),這里是4個(gè)數(shù)量變量的點(diǎn)圖(最后一個(gè)是分類變量(iris$Species))散點(diǎn)圖矩陣2021/5/924par(bg="cornsilk")data(quakes)coplot(lat~long|depth,data=quakes,pch=21,bg="green3")#Hit<Return>toseenextplot:條件分割圖2021/5/925x<-seq(-10,10,length=30)y<-xf<-function(x,y){r<-sqrt(x^2+y^2);10*sin(r)/r}z<-outer(x,y,f)z[is.na(z)]<-1persp(x,y,z,theta=30,phi=30,expand=0.5,col="lightblue")三維透視圖2021/5/926data("volcano")rx<-range(x<-10*1:nrow(volcano))ry<-range(y<-10*1:ncol(volcano))ry<-ry+c(-1,1)*(diff(rx)-diff(ry))/2tcol<-terrain.colors(12)par(opar);opar<-par(pty="s",bg="lightcyan")plot(x=0,y=0,type="n",xlim=rx,ylim=ry,xlab="",ylab="")u<-par("usr")rect(u[1],u[3],u[2],u[4],col=tcol[8],border=“red”)#rect畫矩形contour(x,y,volcano,col=tcol[2],lty="solid",add=TRUE,vfont=c("sansserif","plain"))title("ATopographicMapofMaungaWhau",font=4)abline(h=200*0:4,v=200*0:4,col="lightgray",lty=2,lwd=0.1);par(opar)等高線圖2021/5/927等高線圖2021/5/928data(volcano)x<-10*(1:nrow(volcano))y<-10*(1:ncol(volcano))

image(x,y,volcano,col=terrain.colors(100),axes=FALSE)

contour(x,y,volcano,levels=seq(90,200,by=5),add=TRUE,col="peru")axis(1,at=seq(100,800,by=100))axis(2,at=seq(100,600,by=100))box()title(main="MaungaWhauVolcano",font.main=4)顏色圖2021/5/929顏色圖2021/5/930ggplot22021/5/931ggplot2簡(jiǎn)介2021/5/932為什么要使用ggplot22021/5/933Ggplot2的基本概念2021/5/934數(shù)據(jù)（data）和映射（mapping）2021/5/935幾何對(duì)象（Geometric）2021/5/936統(tǒng)計(jì)變換（statistics）2021/5/937坐標(biāo)（coordinate）2021/5/938圖層（layer）2021/5/939分面（facet）2021/5/9402021/5/9412021/5/942三習(xí)題和資料2021/5/943練習(xí)1：繪圖生成0到2之間的50個(gè)隨機(jī)數(shù)，分別命名為x,yx<-runif(50,0,2)y<-runif(50,0,2)繪圖：將主標(biāo)題命名為“散點(diǎn)圖”，橫軸命名為”橫坐標(biāo)”，縱軸命名為“縱坐標(biāo)”plot(x,y,main="散點(diǎn)圖",xlab="橫坐標(biāo)",ylab="縱坐標(biāo)")text(0.6,0.6,"textat(0.6,0.6)")abline(h=.6,v=.6)2021/5/944圖

練習(xí)1:繪圖舉例2021/5/945練習(xí)2：分步繪圖1.打開繪圖窗口，不繪制任何對(duì)象plot(x,y,type="n",xlab="",ylab="",axes=F)#用練習(xí)1的x、y值2.添加坐標(biāo)點(diǎn)

points(x,y)

3.添加坐標(biāo)軸axis(1);axis(at=seq(0.2,1.8,0.2),side=2)4.補(bǔ)齊散點(diǎn)圖的邊框box()

5.添加標(biāo)題、副標(biāo)題、橫軸說明、縱軸說明title(main="Maintitle",sub="subtitle",xla