數(shù)據(jù)可視化手冊-ggplot七控制圖形整體外觀

RGraphics1一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneous21、1、簡單ggplot(pg_mean,aes(x=group,y=weight))+31、1、簡單 ggplot(BOD,aes(x=factor(Time),y=demand))+1、1、簡單 52、簇2、簇狀ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))+geom_bar(position="dodge",stat="identity" 6ggplot(cabbage_exp,aes(x=Date,y=Weight,+geom_bar(position="dodge",colour="black") 72、簇狀ggplot(diamonds,aes(x=cut))+#Equivalenttousingggplot(diamonds,aes(x=carat))+geom_bar()94、條形ggplot(upc,aes(x=Abb,y=Change,fill=Region))+4、條形ggplot(upc,aes(x=reorder(Abb,Change),y=Change,+scale_fill_manual(values=c("#669933","#FFCC66"))position="identity",colour="black",+scale_fill_manual(values=c("#CCEEFF","#FFDDDD"), ggplot(pg_mean,aes(x=group,y=weight))+geom_bar(stat="identity", ggplot(cabbage_expaes(x=Datey=Weight,fill=Cultivargeom_bar(stat="identity",width=0.5,position="dodge") ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))+geom_bar(stat="identity",width=0.5, ggplot(cabbage_exp,aes(x=Date,y=Weight,ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))翻轉(zhuǎn)堆疊順序的堆積條形圖：指定圖形映射中的參數(shù)orderdesc()library(plyr)#Neededforggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar, 2、用position參數(shù)（好用dplot<-ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=dplot+geom_bar(position="fill",stat="identity")dplot+geom_bar(position="stack“,stat="identity"))dplot+geom_bar(position="dodge“,stat="identity")) #Belowthe+geom_bar(stat="identity")+ 3、對于堆積條形圖，添 之前要先對每組條形對應(yīng)的數(shù)據(jù)行累積求和（求第二 的位置）。并且進(jìn)行操作之前要保數(shù)據(jù)的合理排 geom_point(size=3)+#Usealargertheme_bw()+theme(panel.grid.major.x=panel.grid.minor.x=element_blank(),panel.grid.major.yelement_line(colour="grey60", ：：ggplot(tophit,aes(x=avg,+xend=0,colour="grey50")+t1",limits=c("NL","AL"),guide=FALSE)+theme_bw()+element_blank())+facet_grid(lg~.,, 都會(huì)畫出一．條形圖：bargraphs二．折線圖：LineGraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneous11定group＝1（很重要），確保所有的點(diǎn)畫在一張圖上ggplot(BOD1,aes(x=Time,y=demand,group=1))+geom_line()22ggplot(BOD1,aes(x=Time,y=demand,group=1))+geom_line()22ggplot(worldpop,aes(x=Yeary=Population))+geom_line()+geom_point()ggplot(worldpop,aes(x=YearyPopulation))+geom_line()+geom_point()+scale_y_log103 3ggplot(tg,aes(x=dose,y=length,colour=supp))+ggplot(tg,aes(x=dose,y=length,linetype=supp))+ggplot(tg,aes(x=factor(dose),y=length,colour=supp,group=supp))+ggplot(tg,aes(xggplot(tg,aes(x=dose,y=length,shape=supp))+geom_line()+geom_point(sizeggplot(tg,aes(x=dose,y=length,fill=supp))+geom_line()+geom_point(size=4,shape=shape=3 ggplot(tg,aes(x=dose,y=length,shape=supp))+geom_line(position=position_dodge(0.2))+#Dodgelinesby0.2geom_point(position=position_dodge(0.2),size=4)#Dodgepointsby0.244ggplot(BOD,aes(x=Time,y=demand))+geom_line(linetype="dashed",size1,colour=ggplot(tg,aes(x=dose,y=length,colour=supp))+geom_line(linetype="dashed")+geom_point(shape=22,size=3,fill=“white")55默認(rèn)的是：實(shí)線圓圈，大小size2，顏色colourggplot(BOD,aes(x=Time,y=demand))+geom_line()+geom_point(size=4,shape=colour="darkred",fill=6611、默認(rèn)的面積圖：+ggplot(sunspotyear,aes(x=Year,y=Sunspots))+66ggplot(sunspotyear,aes(x=Year,y=Sunspots))+geom_area(fill="blue",colour"black",alpha66ggplot(sunspotyear,aes(x=Year,y=Sunspots))+geom_area(fill="blue",alpha+77ggplot(uspopage,aes(x=Year,y=Thousands,fill=AgeGroup))+77ggplot(uspopage,aes(x=Year,y=Thousands,fill=AgeGroup))geom_area(colour="black",size=.2,alpha=.4)+="Blues",breaks=guides(fill=guide_legend(reverse=TRUE))同樣適用反轉(zhuǎn)圖 7733、設(shè)定圖中的堆疊順序，則同樣可以避免上面2、的操作order＝desc（）ggplot(uspopage,aes(xYeary=Thousands,fillAgeGrouporderdesc(AgeGroup)))+geom_area(colour="black",size=.2,alpha=.4)+scale_fill_brewer(palette"Blues")88774、沒有左右框線的堆積面積類似上節(jié)方法，借助geom_point(),只是要加入?yún)?shù)position=“stack”ggplot(uspopage,aes(xYeary=Thousands,fillAgeGroup,orderdesc(AgeGroupgeom_area(colourNA,alpha4scale_fill_brewer(paletteBlues")+geom_line(position"stack",size=.2)99c10y),alpha=.2)2、用一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneousggplot(heightweight,aes(xageYear,yheightIngeom_point()ggplot(heightweight,aes(x=ageYear,y=heightIn))+ggplot(heightweight,aes(x=ageYear,y=heightIn))+geom_point(size= 1、將分組變量映射給點(diǎn)型或者顏色ggplot(heightweight,aes(x=heightIn,colour=sex))+geom_point(size=ggplot(heightweight,aes(x=ageYear,y=heightIn,shape=sex))+geom_point(colour="blue",size=6) ggplot(heightweight,aes(xageYear,yheightIncoloursexshapesexgeom_point(size=6)ggplot(heightweight,aes(x=ageYear,y=heightIn,colour=sex,shape=sex))geom_point(size=6)+scale_shape_manual(values=c(1,2))scale_colour_brewer(palette=ggplot(heightweight,aes(x=ageYear,y=heightIn))+geom_point(shape=3,sizeggplot(heightweight,aes(x=ageYear,y=heightIn,shape=sex))geom_point(size=6)+scale_shape_manual(values= 24 ggplot(heightweight,aes(x=ageYear,y=heightIn,colour=weightLb))ggplot(heightweight,aes(x=ageYear,y=heightIn,size=weightLb))ggplot(heightweight,aes(x=ageYear,y=heightIn,fill=weightLb))+geom_point(shape21,size=6)+scale_fill_gradient(low="black",high="white",breaks==guideguide_legend()以離散的圖例代替連續(xù)的色階（順序也翻過來了=ageYear,y=heightIn,size=weightLb,colour=sex))geom_point(alpha=.5)+scale_size_area()+scale_color_brewer(palette= 5、處理圖5、處理圖 問5、處理圖5、處理圖 問 5、處理圖5、處理圖 問 sp<-ggplot(heightweight,aes(x=ageYear,y=heightIn))sp+geom_point()+geom_smooth(method=lm)sp+geom_point()+geom_smooth(method=lm,level= 多項(xiàng)式 量。ggplot(b,aes(x=V1,y=classn))height=0.06),alpha=0.4,shape=21,size=1.5)根據(jù)已有模型向散點(diǎn)圖中添加擬合線（略sp+annotate("text",label="r^2==0.42",parse=TRUE,x=16.5,10、向散點(diǎn)圖添加邊際地毯（實(shí)際是一維散點(diǎn)圖ggplot(faithful,aes(x=eruptions,y=waiting))+geom_point()+sp+annotate("text",x=4350,y=5.4,label="Canada")+annotate("text",y=6.8, 系統(tǒng)自動(dòng)添 的時(shí)候會(huì)將其中心位置位于xy坐標(biāo)位置，所以需要調(diào)整一下，vjust= 文本的基線會(huì)與數(shù)據(jù)點(diǎn)對齊 sp+geom_text(aes(label=Name),size=4,vjust=p<-ggplot(cdat,aes(x=healthexp,y=infmortality,size=GDP))+=21,colour="black",fill=一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneous ggplot(faithful,aes(x=waiting))+ggplot(faithful,aes(x=waiting))+geom_histogram(binwidth=5,fill="white",colour=ggplot(birthwt,aes(xbwt)geom_histogram(fillwhite",colour 只有1和0，沒有指明這個(gè) =ggplot(birthwt1,aes(x=bwt))+geom_histogram(fill"white",colour="black")+facet_grid(race~.,scales="free") ggplot(birthwt1,aes(x=bwt,fill=smoke))+geom_histogram(position=同時(shí)positionidentity”取消條形堆積(那說明默認(rèn)是堆積的直方圖)1、運(yùn)行g(shù)eom_density()函數(shù)，映射續(xù)變量到x即可(左ggplot(faithful,aes(x=waiting))+ggplot(faithful,aes(xwaiting))+geom_line(stat="density")+expand_limits(y=0)ggplot(faithful,aes(x=waiting))+geom_line(stat="density",adjust=geom_line(stat="density")+geom_line(stat="density",adjust=2,colour=可借助geom_density()和geom_line共同繪制密度曲線ggplot(faithful,aes(xwaitinggeom_density(fill="blue",colour=NA,alpha=.2)+geom_line(stat=的直方圖上，曲線就會(huì)很小。通過設(shè)置ydensity..可以減小直方圖的標(biāo)度以使其與ggplot(faithful,aes(x=waiting,y=..density..))+geom_histogram(fill="cornsilk",colour="grey60",size=.2)+geom_density()+xlim(35,105)ggplot(birthwt1,aes(x=bwt,colour=ggplot(birthwt1,aes(x=bwt,fill=smoke))+geom_density(alpha= ggplot(birthwt1,aes(x=ggplot(birthwt1,aes(xbwt,y..density..))+geom_histogram(binwidth200,fill"cornsilk",colour="grey60",size=.2)+geom_density()+facet_grid(smoke~.)ggplot(faithful,aes(x=waiting))+geom_freqpoly(binwidth ggplot(birthwt,aes(x=factor(race),y=bwt))+ggplot(birthwt,aes(x=factor(race),y=bwt))+geom_boxplot(widthggplot(birthwt,aes(x=1,y=bwt))+scale_x_continuous(breaks= ggplot(birthwt,aes(x=factor(race),y=bwt))+geom_boxplot(notch=向箱線圖添加均值（箱線圖中的橫線是中位數(shù)，不是均值ggplot(birthwt,aes(x=factor(race),y=bwt))+geom_boxplot()+stat_summary(fun.y="mean",geom="point",shape=23,size=4,fill=“white")p<-ggplot(heightweight,aes(x=sex,y=heightIn))p+geom_violin()p+geom_violin()+geom_boxplot(width=0.1,fill="black",outlier.colourNA)+stat_summary(fun.y="median",shape=21,geom="point",fill="white",size如果不想使各組數(shù)據(jù)對應(yīng)的圖的面積一樣，可通過設(shè)置scale=“count”使得圖的面積與每組觀測值數(shù)目成正比。p+geom_violin(scale="count")p+geom_violin(adjust=2)p+geom_violin(adjust=.5)p<-ggplot(faithful,aes(x=eruptions,y=p+geom_point()+geom_density2d(aes(colour= 一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneous p<-ggplot(faithful,aes(x=eruptions,y=waiting))+p+annotate("text",x=3,y=48,label="Group1")+annotate("text",x=4.5,y=66,label="Groupp+annotate("text",x=3,y=48,label="Group1",family="serif",fontface="italic",colour="darkred",size=5)+annotate("text",x=4.5,y=66,label="Group2",family="serif", =p<-ggplot(data.frame(x=c(-3,3)),aes(x=x,))+stat_function(fun=p+annotate("text",x=2,y=0.3,parse=TRUE,label="frac(1,sqrt(2*pi))*e^{-p<-ggplot(heightweight,aes(x=ageYear,y=heightIn,colour=p+geom_hline(yintercept=60,size=1)+geom_vline(xintercept=14,sizep+geom_abline(intercept=37.4,slope=1.75,size= p+geom_hline(aes(yintercept=heightIn,colour=sex),data=hw_means,linetype"dashed",size（））pg+geom_vline(xintercept=p<-ggplot(subset(climate,Source=="Berkeley"),aes(x=Anomaly10y))+p+annotate("segment",x=1950,xend=1980,y=-.25,yend=- p+annotate("segment",x=1850,xend=1820,y=-.8,yend=-.95,colour="blue",arrow=arrow())+annotate("segment",x=1950,xend=1980,y=-.25,yend=-.25,arrow=arrow(ends="both",angle=90,length=unit(.2,"cm"))) 添加矩形陰影，用p<-ggplot(subset(climate,Source=="Berkeley"),aes(x=Year,y=Anomaly10y))+p+annotate("rect",xmin=1950,xmax=1980,ymin=-1,ymax=1,alpha=.1,fill=高亮某一元素（修改某一元素的顏色，使其突出顯示pg$h1<-pg$h1[pg$group=="trt2"]<-ggplot(pg,aes(x=group,y=weight,fill=geom_boxplot()+scale_fill_manual(values=c("grey85","#FFDDCC"),guide ggplot(ce,aes(xDateyWeight)geom_bar(fillwhite",colourblack",stat"identity")+geom_errorbar(aes(ymin=Weight-se,ymaxWeightse),width=.2)ggplot(ce,aes(x=Date,y=Weight))+geom_line(aes(group=1))+geom_point(sizegeom_errorbar(aes(ymin=Weight-se,ymax=Weight+se),width=其中畫線是group=1很重要（寫在aes里面），不然畫不出 ggplot(cabbage_exp,aes(x=Date,y=Weight, pd<-position_dodge(.3)#Savethedodgespecbecauseweuseit+geom_errorbar(aes(ymin=Weight-se,ymax=Weight+se),width=.2,size=0.25,colour="black",position=pd)+geom_line(position=pd)+geom_point(position=pd,size=2.5) 創(chuàng)建為一個(gè)新的數(shù)據(jù)框即p<-ggplot(mpg,aes(x=displ,y=hwy))+geom_point()+f_labels<-data.frame(drv=c("4","f","r"),label=c("4wd","Front","Rear"))p+geom_text(x=6,y=40,aes(label=label),data=f_labels)后續(xù)會(huì)將如何修改分 和標(biāo)

一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneousggplot(PlantGrowth,aes(x=group,y=weight))+geom_boxplot()+ggplot(PlantGrowth,aes(x=groupyweight)geom_boxplot()coord_flipscale_x_discrete(limits=rev(levels(PlantGrowth$group)))p<-ggplot(PlantGrowth,aes(x=group,y=weight))+p+ylim(0,ylim(0,10)與scale_y_continuous(limitsc(0,10)是等價(jià)的p+

p+scale_x_discrete(limits=p+

sp<-ggplot(marathon,aes(x=Half,y=Full))+geom_point()sp+coord_fixed(ratio=1/2)+scale_y_continuous(breaks=seq(0,420,30))+scale_x_continuous(breaks=seq(0,420,15))p<-ggplot(PlantGrowth,aes(x=group,y=weight))+geom_boxplot()p+scale_y_continuous(breaks=c(4,4.25,4.5,5,6,8))ggplot(PlantGrowth,aes(x=group,y=weight))+geom_boxplot()+scale_x_discrete(limits=c("trt2","ctrl"), p+theme(axis.ticks=element_blank())但是這樣會(huì)同時(shí)移除兩軸的刻度線（無法僅隱藏單個(gè)坐標(biāo)軸的刻度線

的文 hwp+scale_y_continuous(breaks=c(50,56,60,66,72), "Really\nshort","Short","Medium","Tallish")) 9、修改刻 的外1、旋轉(zhuǎn)文本（bptheme(axis.text.xelement_text(angle90,hjust1,vjust.5))bptheme(axis.text.xelement_text(angle30,hjust1,vjust1))bp+theme(axis.text.x=element_text(family="Times",face="italic",colour"darkred",size=size=rel(1.9)是當(dāng)

1、使用xlab()hwp<-ggplot(heightweight,aes(x=ageYear,y=heightIn))+geom_point()hwp+xlab("Agesinyears")+ylab("Heightininches")hwplabs(xAgesinYears",y"HeightinInches")hwp+scale_x_continuous(name="AGE

1、有些坐標(biāo)軸是多余的，可使用theme(axis.title.xp<-ggplot(PlantGrowth,aes(x=group,y=weight))+geom_boxplot()p+theme(axis.title.x=element_blank()) 法是 設(shè)置為P+

的外hwp+theme(axis.title.x=element_text(face="italic",colour="red",size=hwp+theme(axis.title.y=element_text(face="italic",colour="red",size=25,angle=hwp+theme(axis.line=element_line(colour= hwp+theme_bw()+theme(axis.line=element_line(colour="red",size= hwp+theme_bw()+theme(axis.line=element_line(colour==4,lineend="square"),panel.border=p<-ggplot(Animals,aes(x=body,y=brain,label=rownames(Animals)))+geom_text()p+scale_x_log10()+p+scale_x_log10(breaks=10^(-1:5))+scale_y_log10(breaks= 轉(zhuǎn)而使用指 p+scale_x_log10(breaks=10^(-1:5),labels=trans_format("log10",math_format(10^.x)))+scale_y_log10(breaks=10^(0:3),labels=trans_format("log10",math_format(10^.x)))(坐標(biāo) 會(huì)改變p<-ggplot(Animals,aes(x=log10(body),y=log10(brain),label=

2、該函數(shù)創(chuàng)建的刻度線實(shí)際上是繪圖區(qū)域的幾何對象，在每10

略略略一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneous1、使用ggtitle添加圖形標(biāo)題：（與labs（title）p<-ggplot(heightweight,aes(x=ageYear,y=heightIn))+pggtitle("Ageandheightofschllochildren")p+ggtitle("Ageandheightofschllochildren")+theme(plot.title=element_text(vjust=-p+annotate("text",x=mean(range(heightweight$ageYear)),y=Inf,label="AgeandHeightofSchoolchildren",vjust=1.5,size=6)。 p+theme(axis.title.x=element_text(size=16,lineheight=.9,p+annotate("text",x=15,y=53,label="Sometext",size=7,在ggplot2中，文本項(xiàng)目分兩類 p+theme_grey() p+theme_bw()可以自行設(shè)置內(nèi) p+theme_grey(base_size=16,

元素的外 p+panel.grid.major=element_line(colour="red"),panel.grid.minor=element_line(colour="red",linetype="dashed",panel.backgroundpanel.border=fill=NA, 元素的外p+ggtitle("Plottitlehere")axis.title.x=element_text(colour="red",axis.text.x=axis.title.y=element_text(colour="red",size=14,angle=90),axis.text.y=element_text(colour="blue"),plot.title=element_text(colour="red",size=20,

元素的外p+legend.background=element_rect(fill="grey85",colour="red",size=1),legend.title=element_text(colour="blue",face="bold",size=14),legend.text=element_text(colour="red"),legend.key=element_rect(colour="blue",

元素的外p+facet_grid(sex~.)+strip.background=mytheme<-theme_bw()theme(text=element_text(colour="red"),axis.title=element_text(size=rel(1.25)))p<-ggplot(heightweight,aes(x=ageYear,y=heightIn))+p+

p+theme(panel.grid.major.x=p+theme(panel.grid.major.y=element_blank(),panel.grid.minor.y=element_blank())一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneousp<-ggplot(PlantGrowth,aes(x=group,y=weight,fill=group))+1、使用guides：pguides(fill2、在對應(yīng)標(biāo)度中設(shè)置：p+scale_fill_discrete(guide 系統(tǒng)：p+theme(legend.position=標(biāo)度函 p+theme(legend.position=2、ptheme(legend.position=c(1,1))p+theme(legend.position=c(1,0),legend.justification=p+theme(legend.position=c(.85,.2))+theme(legend.backgroundelement_rect(fill="white",colourp+theme(legend.position=c(.85,.2))+theme(legend.background=element_blank())+theme(legend.key=element_blank())p+scale_fill_grey(start=.5,end=1,limits=c("trt1","trt2",p+ 2",limits=c("trt1","trt2",

1、pguides(fill=guide_legend(reverse2、pscale_fill_hue(guide=guide_legend(reverseplabs(fill=“ #p+scale_fill_discrete(name=

hw<-ggplot(heightweight,aes(x=ageYear,y=heightIn,+geom_point(aes(size=weightLb))+hw+labs(colour="Male/Female",hw1ggplot(heightweight,aes(x=ageYeary=heightIn,shape=sexcolour=sexgeom_point()Changejustshapehw1+

p+theme(legend.title=element_text(face="italic",family="Times",colour=p+guides(fill=guide_legend(title.theme=element_text(face="italicfamily="times",colour="red",size=14)))

p+guides(fill=guide_legend(title=p+scale_fill_hue(guide=guide_legend(title=NULL))p+scale_fill_discrete(labels=c("Control","Treatment1","Treatment p+scale_fill_grey(start=.5,end=1,labels=c("Control","Treatment1","Treatment p<-ggplot(heightweight,aes(x=ageYear,y=heightIn,shape=sex,colour=sex))+p+scale_shape_discrete(labels=c("Female",p+scale_shape_discrete(labels=c("Female","Male"))

的外觀（類似 p<-ggplot(PlantGrowth,aes(x=group,y=weight,fill=group))+ptheme(legend.text=element_text(face="italicfamily="Timescolour="red",size=14))guides(fill=guide_legend(label.theme=element_text(face="italic",family="Times",colour="red",

p+scale_fill_discrete(labels=c("Control","Treatment\ntype1","Treatment\ntype一．條形圖：bargraphs三．散點(diǎn)圖：Scatter四．描述數(shù)據(jù)分布：SummarizedData五．注解六．坐標(biāo)軸七．控制圖形整體外觀：ControllingtheOverallAppearanceof八．圖例九．分面一○．配色：Usingcolorsin一一．其他圖形：Miscellaneousp<-ggplot(mpg,aes(x=displ,y=hwy))+p+facet_grid(drv~.)；p+facet_grid(drv~cyl)；p+facet_grid(.~cyl)；p+p+face