如何使用ggplot2繪制蝴蝶圖,很多新手對(duì)此不是很清楚,為了幫助大家解決這個(gè)難題,下面小編將為大家詳細(xì)講解,有這方面需求的人可以來學(xué)習(xí)下,希望你能有所收獲。
創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于網(wǎng)站建設(shè)、成都網(wǎng)站建設(shè)、江西網(wǎng)絡(luò)推廣、微信小程序、江西網(wǎng)絡(luò)營(yíng)銷、江西企業(yè)策劃、江西品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供江西建站搭建服務(wù),24小時(shí)服務(wù)熱線:13518219792,官方網(wǎng)址:www.cdcxhl.com
一個(gè)小案例,使用ggplot2繪制蝴蝶圖,在鞏固溫習(xí)條形圖坐標(biāo)軸翻轉(zhuǎn)的同時(shí),重新熟悉一下如何利用grid系統(tǒng)進(jìn)行版式布局。
原圖如下:
該圖表思路很簡(jiǎn)單,就是兩個(gè)條形圖通過坐標(biāo)軸翻轉(zhuǎn),使用grid包中的版式布局函數(shù)進(jìn)行合理的版式拼接即可。
以下是整個(gè)案例代碼部分,因?yàn)樯婕暗降闹R(shí)點(diǎn)不復(fù)雜,這里不做詳細(xì)注釋:
第一部分:制作右側(cè)的柱形圖:
#導(dǎo)入工具包:
library("ggplot2")
library("dplyr")
library("grid")
library("showtext")
library("Cairo")
font.add("myfont","msyh.ttc")
#生成圖形所需數(shù)據(jù)集:
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
#圖一:
第二部:制作左側(cè)柱形圖:
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:/數(shù)據(jù)可視化/R/R語(yǔ)言學(xué)習(xí)筆記/數(shù)據(jù)可視化/ggplot2/優(yōu)秀R語(yǔ)言案例") 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\nConversion Rate",x=.80,y=.88,gp=gpar(col="black",fontsize=15,fontfamily="myfzhzh",draw=TRUE,just="centre")) grid.text(label="Lead-to-Opportunity\nConversion 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函數(shù)、geom_text函數(shù)以及最后的grid系列函數(shù)的用法。
看完上述內(nèi)容是否對(duì)您有幫助呢?如果還想對(duì)相關(guān)知識(shí)有進(jìn)一步的了解或閱讀更多相關(guān)文章,請(qǐng)關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道,感謝您對(duì)創(chuàng)新互聯(lián)的支持。