美美的商務范兒——蝴蝶圖

01-24

一個小案例，使用ggplot2繪製蝴蝶圖，在鞏固溫習條形圖坐標軸翻轉的同時，重新熟悉一下如何利用grid系統進行版式布局。

原圖如下：

該圖表思路很簡單，就是兩個條形圖通過坐標軸翻轉，使用grid包中的版式布局函數進行合理的版式拼接即可。

以下是整個案例代碼部分,因為涉及到的知識點不複雜，這裡不做詳細注釋：

第一部分：製作右側的柱形圖：

#導入工具包：library("ggplot2")library("dplyr")library("grid")library("showtext")library("Cairo")font.add("myfont","msyh.ttc")#生成圖形所需數據集：mydata<-data.frame(id=1:14,A=c(5.0,14.7,2.5,8.5,5.1,6.9,7.7,6.8,4.4,4.9,5.3,1.0,0.9,7.8),B=c(31.3,24.7,17.8,17.2,15.3,14.3,13.9,13.9,12.4,10.0,6.5,4.2,2.5,0.9),Label=c("Website","Customer & Employee Referral","Webinar","Facebook/Twitter/Other Social","Marketting & Advertising","Paid Serch","Other","Sales generated","Tradeshows","Parter","Linkedin","Events","Lead list","Emial Campaign"))p1<-ggplot(mydata)+geom_hline(yintercept=mean(mydata$A),linetype=2,size=.25,colour="grey")+geom_bar(aes(x=id,y=A),stat="identity",fill="#E2BB1E",colour=NA)+ylim(-5.5,16)+scale_x_reverse()+geom_text(aes(x=id,y=-4,label=Label),vjust=.5)+geom_text(aes(x=id,y=A+.75,label=paste0(A,"%")),size=4.5,family="myfont",fontface="bold")+coord_flip()+theme_void();p1#圖一：

第二部：製作左側柱形圖：

p2<-ggplot(mydata)+geom_hline(yintercept=-mean(mydata$B),linetype=2,size=.25,colour="grey")+geom_bar(aes(x=id,y=-B),stat="identity",fill="#C44E4C",colour=NA)+ylim(-40,0)+scale_x_reverse()+geom_text(aes(x=id,y=-B-1.75,label=paste0(B,"%")),size=4.5,family="myfont",fontface="bold")+coord_flip()+theme_void();p2#圖二效果

圖形整合：

setwd("E:/數據可視化/R/R語言學習筆記/數據可視化/ggplot2/優秀R語言案例")CairoPNG(file="butterfly.png",width=1200,height=696)showtext.begin()grid.newpage()pushViewport(viewport(layout=grid.layout(7,11)))vplayout<-function(x,y){viewport(layout.pos.row =x,layout.pos.col=y)}print(p2,vp=vplayout(2:7,1:5))print(p1,vp=vplayout(2:7,6:11))grid.text(label="Opportunity-to-Deal Conversion Rate",x=.80,y=.88,gp=gpar(col="black",fontsize=15,fontfamily="myfzhzh",draw=TRUE,just="centre"))grid.text(label="Lead-to-Opportunity Conversion Rate",x=.20,y=.88,gp=gpar(col="black",fontsize=15,fontfamily="myfzhzh",draw=TRUE,just="centre"))grid.text(label="Webinars convert opportunities,but don"t close",x=.50,y=.95,gp=gpar(col="black",fontsize=20,fontfamily="myfzhzh",draw=TRUE,just="centre"))showtext.end()dev.off()

注意以上代碼中所使用的coord_flip函數、geom_text函數以及最後的grid系列函數的用法。

好了乾貨完了，下面是一波廣告：

9月12日晚8~10點，本小編有一場關於ggplot2的微課，主要內容如下：

1、ggplot2圖層語法的核心理念

2、ggplot函數與geom_xxx函數間的父子繼承關係
3、美學映射參數寫在ggplot函數內與寫在geom_xxx內的差異

4、美學映射參數寫在aes函數內部和寫在aes函數外部的差異
5、顏色標度一共有幾種類型和寫法，在不同模塊中是否能夠共用
6、如何結合實際業務與引用場景進行顏色標度選擇
7、多圖層疊加時，如何解決顏色標度衝突的問題

8、分面函數的許可權控制
9、主題框架與模塊間的繼承關係
10、主題函數更新與替換方案
11、圖形輸出與高清抗鋸齒渲染
其實這些問題都是之前我學習過程中走過的彎路，隨著練習的案例越來越多，這些問題一步步全都解決了，其實如果你能有心看完我的所有關於ggplot講解部分，差不多這些問題也都能全部理解。

閱讀原文報名：