手把手教你如何用R作Polar图.docVIP

7A版优质实用文档 PAGE PAGE 4 7A版优质实用文档 手把手教你如何用R作Polar图 用R作如下的各国Gini系数的PolarbarChart: 作上图的R代码为： library(ggplot2) GiniData-read.csv(IncomeInequality.csv,head=T) Gini-ggplot(GiniData,aes(G=paste(GiniIndeG,Country),y=GiniIndeG,fill=GiniIndeG%/%10)) Gini-Gini+geom_bar(stat=identity,position=dodge)+coord_polar() Gini-Gina+scale_fill_continuous(high=darkred,low=darkgreen) Gini-Gini+theme( panel.background=element_rect(fill=white,colour=white,size=0), aGis.teGt=element_blank(), aGis.title=element_blank(), legend.title=element_blank()) G-c(1:dim(GiniData)[1]) Gini+geom_teGt( aes( G=G, label=paste(GiniData$GiniIndeG,GiniData$Country), angle=270-G/134G360, hjust=1),#hjust控制标签的对齐方式 y=GiniData$GiniIndeG+3, size=3, vjust=0) 有关颜色变化的代码，用黄色的底纹标示了出来。 还可以试一下angle=90-G/134G360,hjust=0。这样的话，文字的方向会反过来。 作图的相关数据和结果，可以参看/helengyy/135140 把中国的Gini系数标出来的PolarbarChart： 作上图的R代码为： Gini-ggplot(GiniData,aes(G=paste(GiniIndeG,Country),y=GiniIndeG, fill=(sign(GiniIndeG-41.60)+sign(Country==Cotedlvoire)G2)Gsign(Country!=China))) Gini-Gini+geom_bar(stat=identity,position=dodge)+coord_polar() Gini-Gini+scale_fill_continuous(high=darkred,low=darkgreen) Gini-Gini+theme( panel.background=element_rect(fill=white,colour=white,size=0), aGis.teGt=element_blank(), aGis.title=element_blank(), legend.title=element_blank()) G-c(1:dim(GiniData)[1]) Gini+geom_teGt( aes( G=G, label=paste(GiniData$GiniIndeG,GiniData$Country), angle=270-G/134G360, hjust=1),#hjust控制标签的对齐方式 y=GiniData$GiniIndeG+3, size=3, vjust=0) 代码中和第1张图不一样的地方，也用黄色底纹标示出来了。 以最大值最小值为顶的箱图： 假设，我们有A、B、C、D、E班级的某一门科目的最高分和最低分，还有整个年级的平均分，我们用箱图来观察各班最高分最低分距年级平均分的距离。R代码如下： G-matriG(c(36,97,33,89,45,99,51,93,47,88),2,5) boGplot(G,medlty=blank, #medlty=blank就是把四分位盒式图(箱图)的须须去掉 names=c(A,B,C,D,E), col=pink,boGweG=0.35) abline(h=71,col=navy,lwd=2,lty=5) 表示数据在最大最小之间位置的线型图： 若某位同学A,B,C,D,E五门课的成绩 G-matriG(c(36,88,97,33,86,89,45,77,99,51,90,93,47,65,88),3,5) Y-c(1:5) plot(c(G[1,],G[3,],G[2,]),c(Y,Y,Y), pch=c(rep(19,10),rep(4,5)), ceG=1.5, col=c(rep(seagreen,10), rep(magenta,5