资源描述：
《【7A版】手把手教你如何用R作Polar图.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、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",p
2、osition="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_b
3、lank())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,47A版优质实用文档7A版优质实用文档vjust=0)有关颜色变化的代码，用黄色的底纹标示了出来。还可以试一下angle=90-G/134G360,h
4、just=0。这样的话，文字的方向会反过来。作图的相关数据和结果，可以参看http://www.rpubs.com/helengyy/135140·把中国的Gini系数标出来的PolarbarChart：作上图的R代码为：Gini<-ggplot(GiniData,aes(G=paste(GiniIndeG,Country),y=GiniIndeG,fill=(sign(GiniIndeG-41.60)+sign(Country=="Coted'lvoire")G2)Gsign(Country!="
5、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(),aGi
6、s.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,47A版优质实用文档7A版优质实用文档hjust=1),#hjust控制标签的对齐方式y=GiniData$GiniIndeG+3,size=3,vjust=0)代码
7、中和第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=
8、"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,co
