45分鐘搞定R語言之?dāng)?shù)據(jù)庫交互及統(tǒng)計繪圖圖數(shù)據(jù)部BI王顯峰22012年4月mhttpwwwdearopinioncomR數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)數(shù)據(jù)的存儲ODBCOpenDataBaseConnectivity式數(shù)據(jù)庫連接大部分計算機都有(Windows/Linux/MacOSX)支持多種數(shù)據(jù)源(Oracle、MySQL、DB2、SQLSever……)需要建立一個DSN(DataSourceName)或數(shù)據(jù)源的名稱(控制面板-〉系統(tǒng)和安全-工具-〉數(shù)據(jù)源(ODBC))需要針對特定的數(shù)據(jù)庫下載專門的軟件包比ODBC方式表現(xiàn)更好目前對Windows平臺支持不好R數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)R通過RODBC方式進行數(shù)據(jù)存取的主要函數(shù)如下：函數(shù)名稱函數(shù)描述odbcConnect(dsn,uid="",pwd="")建立并打開連接sqlFetch(channel,sqtable)從數(shù)據(jù)庫讀取數(shù)據(jù)表，并返回一個數(shù)據(jù)框?qū)ο髎qlQuery(channel,query)sqlSave(channel,mydf,tablename=sqtable,append=FALSE)將一個數(shù)據(jù)框?qū)懭牖蚋?append=True)到數(shù)據(jù)庫sqlDrop(channel,sqtable)從數(shù)據(jù)庫刪除一個表sqlClear(channel,sqtable)刪除表中的內(nèi)容sqlTables(channel)返回數(shù)據(jù)庫中表的信息sqlColumns(channel,sqtable)返回數(shù)據(jù)庫表sqtable列的信息close(channel)關(guān)閉連接C示例：通過RODBC從Oracle讀取數(shù)據(jù)##加載RODBC包library(RODBC)##創(chuàng)建連接channel<-odbcConnect("BITEST",uid="dw",pwd="dw")##執(zhí)行查詢org1<-sqlFetch(channel,'DIM.DIM_ORGANIZATION')org2<-sqlQuery(channel,'SELECT*FROMDIM.DIM_ORGANIZATION')##關(guān)閉連接odbcClose(channel)##使用數(shù)據(jù)head(org1)head(org2)C示例：通過RODBC將數(shù)據(jù)寫入Oraclelibrary(RODBC)channel<-odbcConnect("BITEST",uid="dw",pwd="dw")##創(chuàng)建數(shù)據(jù)框(待寫入對象)mydata<-sqlQuery(channel,'SELECT*FROMDIM.DIM_ORGANIZATION')并讀取結(jié)果表sqlSave(channel,mydata,'NEW_TABLE_NAME',append=FALSE)mydata2<-sqlQuery(channel,'SELECT*FROMNEW_TABLE_NAME')sqlSave(channel,mydata,'NEW_TABLE_NAME',append=TRUE)mydata3<-sqlQuery(channel,'SELECT*FROMNEW_TABLE_NAME')##刪除剛剛建立的表NEW_TABLE_NAMEsqlDrop(channel,'NEW_TABLE_NAME')odbcClose(channel)##查看執(zhí)行結(jié)果head(mydata,n=30);head(mydata2,n=30);head(mydata3,n=30)R數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)形的最關(guān)鍵構(gòu)成元素。MicrosoftExcel價格高！展示的幾乎都是原始數(shù)據(jù)！不能靈活的控制圖形的組成元素！其他商業(yè)統(tǒng)計軟件價格昂貴！不能靈活的控制圖形的組成元素！R：isafreesoftwareenvironmentforstatisticalcomputingandgraphics完全免費！任何理論上可以計算出來的統(tǒng)計量都能在R中很方便地以圖形的方式表達出來！可以靈活的控制圖形的組成元素！R與統(tǒng)計繪圖：圖形的最基礎(chǔ)構(gòu)成元素任何一幅統(tǒng)計圖形都是由以下這些最基礎(chǔ)的圖形元素構(gòu)成?點(points)?線(lines,abline,segments,arrows)?多邊形(rect,polygon,box)?顏色(colors)?文本(text)?圖例(legend)高水平(high-level)繪圖函數(shù)?在圖形設(shè)備上產(chǎn)生一個新的繪圖區(qū)域，并生成一個新的圖形?通過其參數(shù)可以設(shè)置坐標軸，標簽，標題等等低水平(low-level)繪圖函數(shù)?在已存在的圖形上加上更多的圖形元素，是繪制圖形的基礎(chǔ)函數(shù)?如額外的點、線、多邊形和標簽交互式繪圖函數(shù)?允許交互式地用定點設(shè)備(如鼠標)在已經(jīng)存在的圖上添加/提取圖形信息R數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)plot()是最常用R繪圖函數(shù)，是一個泛型函數(shù)，它產(chǎn)生的圖形依賴于第一個參數(shù)的類型或者類##測試數(shù)據(jù)set.seed(1);x<-sample(c(1:50),10)set.seed(2);y<-sample(c(1:50),10)xt<-ts(x)xy<-cbind(x,y)f<-as.factor(c(rep('a',3),rep('b',5),rep('c',2)))調(diào)用示例調(diào)用描述plot(x)x是一個向量，繪制向量x的值對其索引的圖plot(xt)xt是一個時間序列對象，繪制xt的時間序列圖plot(f)f是一個因子，繪制f的條形圖plot(x,y)x,y是一個向量，繪制y對x的散點圖plot(xy)xy是一個矩陣，繪制y對x的散點圖plot(f,y)f高水平繪圖函數(shù)的更多示例參加：example(plot)example(barplot)等等點圖(Clevelanddotplot)/克里夫蘭點圖：##基本實現(xiàn)，可用于檢測離群點dotchart(mtcars$mpg,labels=s(mtcars),cex=.7,main="GasMilageforCarModels",xlab="MilesPerGallon")##按mpg進行排序，按cylinder進行分組并設(shè)定不同的顏色，可用于確定聰明變量x<-mtcars[order(mtcars$mpg),]#sortbympgx$cyl<-factor(x$cyl)#itmustbeafactorx$color[x$cyl==4]<-"red"x$color[x$cyl==6]<-"blue"x$color[x$cyl==8]<-"darkgreen"dotchart(x$mpg,labels=s(x),cex=.7,groups=x$cyl,main="GasMilageforCarModels\ngroupedbycylinder",xlab="MilesPerGallon",gcolor="black",color=x$color)線圖(LineChart)：##基本實現(xiàn)，僅僅使用plot()plot(mtcars$mpg,type="l")##plot()和lines()共同完成，plot()負責(zé)繪制一個沒有點的圖，lines()完成線條繪制，觀察選項type=的不同選擇值的差異x<-c(1:5);y<-x;par(pch=22,col="red");par(mfrow=c(2,4))opts<-c("p","l","o","b","c","s","S","h")for(iin1:length(opts)){plot(x,y,type="n",main=paste("type=",opts[i]))lines(x,y,type=opts[i])}##添加多條線sal_num<-c(45,21,50,43,90,32);click_num1<-sal_num+5;click_num2<-sal_num+10;plot(sal_num,col="black",type="o",ylim=c(0,105),axes=TRUE)lines(click_num1,col="red",type="o",pch=22,lty=2)lines(click_num2,col="blue",type="o",pch=22,lty=2)直方圖(Histogram)：##基本實現(xiàn)，使用hist觀察變量的分布hist(mtcars$mpg)##設(shè)置桶的數(shù)量和填充顏色hist(mtcars$mpg,breaks=5,col="red")hist(mtcars$mpg,breaks=c(10,25,30,40),col="red")#精確設(shè)置斷點核密度圖(KernelDensityPlots)：##基本實現(xiàn)，使用density觀察變量分布d<-density(mtcars$mpg)plot(d,main="KernelDensityofMilesPerGallon")polygon(d,col="gray71",border="blue")#設(shè)置圖形格式盒圖(Boxplot)：##基本實現(xiàn)boxplot(x=c(cars$speed,35))boxplot(x=c(cars$speed,35),range=3)#range參數(shù)的值改變胡須的延伸位置##按cyl進行分組，繪制盒圖boxplot(mpg~cyl,data=mtcars,main="CarMilageData",xlab="NumberofCylinders",ylab="MilesPerGallon")plotot條圖(Barplot):##基本實現(xiàn)counts<-table(mtcars$gear)barplot(counts,main="CarDistribution",xlab="NumberofGears")barplot(counts,main="CarDistribution",horiz=T,names.arg=c("3Gears","4Gears","5Gears"))#水平放置，設(shè)置標簽##堆積條形圖，設(shè)置填充顏色和圖例counts<-table(mtcars$vs,mtcars$gear)barplot(counts,main="CarDistributionbyGearsandVS",xlab="NumberofGears",col=c("darkblue","red"),legend=rownames(counts))##分組條形圖counts<-table(mtcars$vs,mtcars$gear)barplot(counts,main="CarDistributionbyGearsandVS",xlab="NumberofGears",col=c("darkblue","red"),legend=rownames(counts),beside=TRUE)餅圖(PieChart)：##基本實現(xiàn)，繪制餅圖并設(shè)置標簽slices<-c(10,12,4,16,8)lbls<-c("US","UK","Australia","Germany","France")pie(slices,labels=lbls,main="PieChartofCountries")##設(shè)置百分比標簽、顏色slices<-c(10,12,4,16,8)lbls<-c("US","UK","Australia","Germany","France")pct<-round(slices/sum(slices)*100)lbls<-paste(paste(lbls,pct),"%",sep="")#ad%tolabelspie(slices,labels=lbls,col=rainbow(length(lbls)),main="PieChartofCountries")##3D餅圖library(plotrix)slices<-c(10,12,4,16,8)lbls<-c("US","UK","Australia","Germany","France")pie3D(slices,labels=lbls,explode=0.1,main="PieChartofCountries")pairs散點圖(ScatterPlots)：##基本實現(xiàn)-使用plot()plot(mtcars$wt,mtcars$mpg,main="ScatterplotExample",xlab="CarWeight",ylab="MilesPerGallon",pch=19)abline(lm(mtcars$mpg~mtcars$wt),col="red")#添加回歸線##散點圖矩陣pairs(~mpg+disp+drat+wt,data=mtcars,main="SimpleScatterplotMatrix")##3D散點圖library(scatterplot3d)scatterplot3d(mtcars$wt,mtcars$disp,mtcars$mpg,main="3DScatterplot")52345234102345條件圖(ConditioningPlots)：pairs()函數(shù)只能顯示雙向關(guān)系，而coplot()函數(shù)能夠說明三向甚至四向關(guān)系，它特別于適合觀察當(dāng)給定其他預(yù)測變量時，反應(yīng)變量如何根據(jù)一個預(yù)測變量變化。##單個條件變量的條件圖coplot(mtcars$wt~mtcars$mpg|as.factor(mtcars$cyl),main="",xlab="",ylab="",pch=19)##兩個條件變量的條件圖coplot(mtcars$wt~mtcars$mpg|as.factor(mtcars$cyl)*as.factor(mtcars$vs),main="",xlab="",ylab="",pch=19)664488101520253010152025301015202530Q-Q圖(Quantile-QuantilePlots)：##設(shè)置繪圖參數(shù)、準備數(shù)據(jù)par(mfrow=c(1,2))x=rnorm(100)##繪制Q-Q圖qqnorm(x,cex=0.7,asp=1,main="",xlim=c(-3,3),ylim=c(-3,3))abline(0,1,col='red')##繪制數(shù)據(jù)密度曲線plot(density(x),main="",xlim=c(-3,3),ylim=c(0,0.4))##繪制實際正態(tài)分布密度曲線curve(dnorm,from=-3,to=3,lty=2,add=TRUE,col='red')地圖繪制：##地圖繪制相關(guān)包library(maps)library(mapdata)library(maptools)##讀取地圖數(shù)據(jù)x<-readShapeSpatial('E:\\map\\bou2_4m\\bou2_4p')##用不同的顏色繪制地圖par(mar=c(0,0,0,0))plot(x,col=rainbow(n=33));地圖數(shù)據(jù)文件下載：國家基礎(chǔ)地理信息中心/default.aspR數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)R的常用繪圖參數(shù)：指定繪圖參數(shù)的兩種方式方式一：在高級繪圖函數(shù)中直接指定hist(mtcars$mpg,col.lab="red")更多高水平繪圖函數(shù)的參數(shù)參加具體的函數(shù)(如hist/boxplot/plot等等)par()#查看當(dāng)前繪圖參數(shù)設(shè)置opar<-par()#保存當(dāng)前設(shè)置par(col.lab="red")#設(shè)置坐標軸標簽為紅色hist(mtcars$mpg)#利用新的參數(shù)繪圖par(opar)#恢復(fù)繪圖參數(shù)的原始設(shè)置參數(shù)設(shè)置R的常用繪圖參數(shù)：設(shè)置文本和符號的大小設(shè)置文本和符號大小的常用參數(shù)如下：參數(shù)名稱參數(shù)描述cexcex.axiscex.labcex.maincex.sub指定文本和符號的縮放比例，默認值為1，若設(shè)置為1.5，則表示比默認大小大50%，若設(shè)置為0.5，則表示比默認值小50%坐標軸刻度標記的縮放比例坐標軸標題的縮放比例指定主標題的縮放比例子標題的縮放比例R的常用繪圖參數(shù)：設(shè)置點的類型使用pch=選項設(shè)置點的類型0-18為S語言兼容的點類型21-25的點可以設(shè)置輪廓顏色和填充顏色25之后的采用文本作為pch的參數(shù)值更多參數(shù)值的設(shè)置參加?parIndexIndex0123456R的常用繪圖參數(shù)：設(shè)置線的類型0123456設(shè)置線條類型的相關(guān)參數(shù)如下參數(shù)名稱參數(shù)描述參數(shù)值可以為整數(shù)或字符串：0=blank,1=solid(default),lty(LineTYpe)2=dashed,3=dotted,4=dotdash,5=longdash,6=twodashlwd(LineWiDth)設(shè)置線條的相對寬度，默認值為1plot(0:6,type='n')for(iinc(0:6)){abline(h=i,lty=i,lwd=i)}1234567R的常用繪圖參數(shù)：設(shè)置顏色設(shè)置顏色的相關(guān)參數(shù)如下，可以設(shè)置的參數(shù)值包括：索引、名稱、十六進制、RGB例如：col=1;col=white;和col=“#FFFFFF”是等價的參數(shù)名稱參數(shù)描述col默認的繪圖顏色col.axis坐標軸刻度標記的顏色col.lab坐標軸標題的顏色col.main主標題的顏色col.sub子標題的顏色fg設(shè)置前景色設(shè)置背景色##固定顏色選擇colors();palette();##顏色的生成和轉(zhuǎn)化rgb();hsv();hcl();gray();rgb2hsv();##返回一組持續(xù)的顏色rainbow(n);heat.colors(n);R的常用繪圖參數(shù)：設(shè)置字體參數(shù)名稱參數(shù)描述font1=普通,2=粗體,3=斜體,4=粗斜體,5=符號字體font.axis坐標軸刻度標簽的字體樣式font.lab坐標軸標題的字體font.main/font.sub主標題/子標題的字體字體族，標準值包含“serif”,“sans”,“mono”,“symbol”，其映射family依賴于具體的設(shè)備，在Windows設(shè)置中，分別被映射為”TTSymbol”(TT=TrueType)##創(chuàng)建新的字體映射plot(1:10,1:10,type="n")windowsFonts(A=windowsFont("ArialBlack"),B=windowsFont("BookmanOldStyle"),C=windowsFont("ComicSansMS"),D=windowsFont("Symbol"))text(3,3,"HelloWorldDefault")text(4,4,family="A","HelloWorldfromArialBlack")text(5,5,family="B","HelloWorldfromBookmanOldStyle")text(6,6,family="C","HelloWorldfromComicSansMS")text(7,7,family="D","HelloWorldfromSymbol")R的常用繪圖參數(shù)：設(shè)置圖形邊緣大小RPlotRegion區(qū)域選項描述ar形如c(bottom,left,top,right)的數(shù)值向量，指定底部、左邊、上部和右邊的空間，單位為行數(shù)，默認值為c(5,4,4,2)+0.1與mar參數(shù)類似，只是單位為英寸只能通過par()設(shè)置mar、mai可以相互轉(zhuǎn)化參數(shù)的默認值往往偏大頂部和右側(cè)常常不需要par(mar=c(2,0,0,1)R數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)R的低水平繪圖函數(shù)：點、直線、線段、箭頭、網(wǎng)格線低水平繪圖函數(shù)：點、直線、線段、箭頭、網(wǎng)格線函數(shù)名稱函數(shù)描述points在當(dāng)前繪圖區(qū)增加點lines在當(dāng)前繪圖區(qū)增加連接線abline(a,b)abline(h=y)在當(dāng)前繪圖區(qū)增加一個斜率為b，截距為a的直線。h=y可用于指定貫穿整個圖的水平線高度的y-坐標。v=x類似地用于指定垂直線的x-坐標。abline(v=x)abline(lm:obj)lm:obj可能是一個有長度為2的coefficients分量(如模型擬合的結(jié)果)的列表。該分量中依次含有截距和斜率。segments繪制點對之間的線段arrows繪制點對之間的箭頭grid在當(dāng)前繪圖區(qū)增加網(wǎng)格線R的低水平繪圖函數(shù)：點、直線、線段、箭頭##基本實現(xiàn)plot(-4:4,-4:4,type="p",col="blue")##繪制點、連接點points(x=c(3,-2,-1,3,2),y=c(1,2,-2,2,3),col="red")lines(x=c(3,-2,-1,3,2),y=c(1,2,-2,2,3),col="black")##繪制直線abline(h=0)abline(v=0)abline(a=1,b=1)abline(lm(mtcars$mpg~mtcars$qsec),col="red")##繪制線段segments(x0=2,y0=-4.5,x1=4,y1=-2,col="red",lty="dotted")##繪制箭頭,并設(shè)置箭頭的長度、角度、樣式arrows(x0=-4,y0=4,x1=-2,y1=0,length=0.15,angle=30,code=3)##繪制網(wǎng)格線grid(nx=3,ny=5,col="lightgray",lty="dotted")R的低水平繪圖函數(shù)：多邊形和矩形繪制由(x,y)作為頂點的多邊形的低水平函數(shù)如下：polygon(x,y=NULL,density=NULL,angle=45,border=NULL,col=NA,lty=par("lty"),...,fillOddEven=FALSE)對于多邊形的特例矩形，R還提供了專門的函數(shù)rect()來繪制：rect(xleft,ybottom,xright,ytop,density=NULL,angle=45,col=NA,border=NULL,lty=par("lty"),lwd=par("lwd"),...)##基本實現(xiàn)plot(-4:4,-4:4,type="p",col="blue")polygon(x=c(3,-2,-1,3,2),y=c(1,2,-2,2,3),col="red")#繪制多邊形rect(xleft=c(-4,0),ybottom=c(2,-4),xright=c(-2,2),ytop=c(4,-2),col=c("blue","yellow"))#繪制兩個矩形，并填充顏色R的低水平繪圖函數(shù)：標題、任意文本、周邊文本##使用title()函數(shù)添加紅色標題和藍色子標題，設(shè)置坐標軸標簽為綠色，字體相對大小為0.75plot(mtcars$wt,mtcars$mpg,main='',sub='',xlab='',ylab='')title(main="MyTitle",col.main="red",sub="MySub-title",col.sub="blue",xlab="MyXlabel",ylab="MyYlabel",col.lab="green",cex.lab=0.75)##使用text()/mtext()函數(shù)為繪圖區(qū)域/邊緣區(qū)域添加文本注釋plot(x=mtcars$wt,y=mtcars$mpg,main="Milagevs.CarWeight",xlab="Weight",ylab="Mileage",pch=18,col="blue")text(x=mtcars$wt,y=mtcars$mpg,labels=s(mtcars),cex=0.6,pos=4,col="red")mtext("Addedbymtext()",side=2,line=2,col='blue')R的低水平繪圖函數(shù)：坐標軸和圖例##添加坐標軸x<-c(1:10);y<-x;z<-10/xpar(mar=c(5,4,4,8)+0.1)plot(x,y,type="b",pch=21,col="red",yaxt="n",lty=3,xlab="",ylab="")lines(x,z,type="b",pch=22,col="blue",lty=2)axis(side=2,at=x,labels=x,col.axis=“red”,las=2)#左側(cè)添加坐標軸，設(shè)置坐標軸刻度標簽樣式axis(side=4,at=z,labels=round(z,digits=2),col.axis="blue",las=2,cex.axis=0.7,tck=-.01)#右側(cè)添加坐標軸，設(shè)置坐標軸標簽及刻度線的長度mtext("y=1/x",side=4,line=3,cex.lab=1,las=2,col="blue")title("AnExampleofCreativeAxes",xlab="Xvalues",ylab="Y=X")##添加圖例，并設(shè)置格式counts<-table(mtcars$vs,mtcars$gear)barplot(counts,main="CarDistributionbyGearsandVS",xlab="NumberofGears",col=c("darkblue","red"),beside=TRUE)legend(x=7.5,y=12,legend=c("L-A","L-B"),pch=15,col=c("blue","red"),cex=0.8,pt.cex=1,box.lty="dashed")R數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)par函數(shù)的mfrow/mfcol參數(shù)R允許在同一個頁面中創(chuàng)建多組圖形，以便對這些圖形進行對比方式一：使用par()函數(shù)的mfrow/mfcol參數(shù)選項描述形如c(nrow,ncol)的數(shù)值向量，分別表示mfrow圖形矩陣的行數(shù)和列數(shù),按行繪制mfcol與mfrow參數(shù)類似，但是按列繪制##使用frow/fcolmypar<-par(mfrow=c(2,2))plot(mtcars$wt,mtcars$mpg,main="Scatterplotofwtvs.mpg")plot(mtcars$wt,mtcars$disp,main="Scatterplotofwtvsdisp")hist(mtcars$wt,main="Histogramofwt")boxplot(mtcars$wt,main="Boxplotofwt")par(mypar)方式二：使用layout(mat,widths=rep(1,ncol(mat)),heights=rep(1,nrow(mat)),respect=FALSE)函數(shù)參數(shù)描述一個數(shù)值型矩陣，指定多個圖形的位置，矩陣中的值必須為大于等于0的整數(shù)，并且如果出現(xiàn)N，則整數(shù)1，2……N-1必須在矩陣中出現(xiàn)至少一次widths一個數(shù)值向量，指定窗口被分割的相對寬度或絕對寬度heigths一個數(shù)值向量，指定窗口被分割的相對高度或絕對高度##基本實現(xiàn)attach(mtcars)layout(mat=matrix(c(1,1,2,3),2,2,byrow=TRUE),widths=c(3,1),heights=c(1,2))layout.show(3)hist(wt)hist(mpg)hist(disp)parfig數(shù)方式三：使用par()函數(shù)的fig參數(shù)fig參數(shù)的值是一個形如c(x1,x2,y1,y2)的數(shù)值型向量，指定各個圖形的繪制位置new參數(shù)是一個邏輯指，指定是否將圖形繪制到已有圖形##在散點圖上添加盒圖par(fig=c(0,0.8,0,0.8),new=FALSE)plot(mtcars$wt,mtcars$mpg,xlab="MilesPerGallon",ylab="CarWeight")par(fig=c(0,0.8,0.55,1),new=TRUE)boxplot(mtcars$wt,horizontal=TRUE,axes=FALSE)par(fig=c(0.65,1,0,0.8),new=TRUE)boxplot(mtcars$mpg,axes=FALSE)mtext("EnhancedScatterplot",side=3,outer=TRUE,line=-3)R數(shù)據(jù)庫交互R語言與數(shù)據(jù)庫通過RODBC進行數(shù)據(jù)存取R統(tǒng)計繪圖R語言與統(tǒng)計繪圖R的高水平繪圖函數(shù)R的常用繪圖參數(shù)R的低水平繪圖函數(shù)組合多個圖形高級格函數(shù)(LatticeFunction)小結(jié)nlattice是由DeepayanSarkar基于grid包的一套統(tǒng)計圖形系統(tǒng)，它的圖形設(shè)計理念來自于Cleveland的Trellis圖形，其主要特征是根據(jù)特定變量(往往是分類變量)將數(shù)據(jù)分解為若干