R语言数据可视化——仿网易数独圆环条形图
一个案例，告诉你如何灵活的运用ggplot2来制作花样繁多的信息图！
虽然ggplot2的内置图层只有屈指可数的几十个，可是图表组合之后的可能性是无限的。
实际上还是万变不离其宗，就如同使用Excel模仿复杂图表一样，再复杂的图表也是有不同的元素和模块组合起来的，只要能够用心去拆解，都可以找到行之有效的方法。如同庖丁解牛，只要洞悉骨架和经脉，才能随心所欲的下刀。
setwd("F:/数据可视化/R/R语言学习笔记/可视化/ggplot2/商务图表")
library("ggplot2") library("tidyr") library("dplyr") library("grid") library("showtext") library('"Cairo") library("scales")
font.add("myfont","msyhl.ttc") mydata<-read.csv("mydata.csv",stringsAsFactors=FALSE,check.names=FALSE) mydata$index<-1:nrow(mydata) mydata$angle1<-1.5*seq(-1,-59) mydata$angle2<-1.5*seq(59,1) label<-strsplit(mydata$Country,"")
for (i in 1:length(label)){ label[[i]]<-paste0(label[[i]],collapse="\n") }
mydata$label<-unlist(label) mydata$label[37:59]<-gsub("\n","",mydata$label[37:59]) mynewdata<-mydata%>%gather(Class,Value,2:4)
图形一：
mynewdata$Class<-factor(mynewdata$Class,levels=c("环保优先","其他/未回答","经济优先"),order=T) p1<-ggplot(data=mynewdata,aes(x=index,y=Value,fill=Class))+ geom_bar(stat="identity",width=0.95)+ geom_text(aes(y=105,label=ifelse(index<=36,label,""),angle=angle1),hjust=.5,vjust=0,family="myfont")+ geom_text(aes(y=105,label=ifelse(index>36,label,""),angle=angle2),hjust=0,vjust=0.5,family="myfont")+ geom_text(aes(y=Value,label=Value,angle=angle2),position=position_stack(vjust=.9),family="myfont")+ xlim(0.5,236.5)+ylim(-120,105)+ coord_polar(theta="x")+ guides(fill=guide_legend(title=NULL))+ scale_fill_manual(values=c("#2EA7E0","#B5B5B6","#CBE510"))+ theme( text=element_text(size=20), line=element_blank(), rect=element_blank(), axis.text=element_blank(), axis.title=element_blank(), legend.position=c(.95,.75), legend.key.size =unit(.8,'cm'), )
以上可以制作出原始案例的外围圆环图：
mydata2<-data.frame(year=c("1998年","2004年","2009年","2014年"),经济优先=c(.24,.27,.23,.28),未回答=c(.25,.21,.23,.15),环保优先=c(.51,.52,.54,.57),smallyear=rep(.15,4),check.names = FALSE) names(mydata2)[3]<-"其他/未回答" mydata2$index<-1:nrow(mydata2)
mynewdata2<-mydata2%>%gather(Class,Value,2:5) mynewdata2$Class<-factor(mynewdata2$Class,levels=c("smallyear","环保优先","其他/未回答","经济优先"),order=T)
p2<-ggplot(data=mynewdata2,aes(x=index,y=Value,fill=Class))+ geom_bar(stat="identity",width=0.99)+ geom_text(aes(y=Value,label=ifelse(mynewdata2$Class=="smallyear",levels(mynewdata2$year),""),angle=c(rep(0,12),11.25*seq(-1,-7,-2))),position=position_stack(vjust=.5),family="myfont",size=7.5)+ geom_text(aes(y=Value,label=ifelse(mynewdata2$Class!="smallyear",percent(mynewdata2$Value),"")),position=position_stack(vjust=.5),family="myfont",size=6)+ xlim(0.5,16.5)+ylim(-.5,1.25)+ coord_polar(theta="x")+ guides(fill=FALSE)+ scale_fill_manual(values=c("#EFEFEF","#2EA7E0","#B5B5B6","#CBE510"))+ theme( line=element_blank(), rect=element_blank(), axis.text=element_blank(), axis.title=element_blank(), legend.position="none" )
以上可以做出内侧小圆环图：
CairoPNG(file="circletile1.png",width=2000,height=2000) showtext.begin() vie<-viewport(width=0.5,height=0.5,x=0.5,y=0.5) p1;print(p2,vp=vie) grid.text(label="六成中国人认为\n环境比经济更重要",,x=.99,y=.90,gp=gpar(col="black",fontsize=60,draw=TRUE,just="right") showtext.end() dev.off()
合并一步，一幅完整的图表便出炉了！
