R語言的ggplot2繪制多個(gè)分組簇狀柱狀圖

R語言的ggplot2繪制多個(gè)分組簇狀柱狀圖

今天要分享的是ggplot2去繪制多個(gè)分組簇狀柱狀圖读跷,話不多說梗搅,現(xiàn)在開始吧:

老規(guī)矩,還是先看數(shù)據(jù)和最終的效果圖效览,進(jìn)行解釋后无切,再說明如何繪制


可以明顯看到,圖代表的意思是不同年齡組丐枉、性別的高血壓和糖尿病的患病率

年齡是x軸的分組哆键,性別是堆積塊的分組,疾病是分頁的分組(也就是高血壓一張圖瘦锹,糖尿病一張圖)籍嘹,圖中的數(shù)據(jù)是患病率。

所以弯院,畫圖的前提是先把數(shù)據(jù)整理成4列辱士,然后自己分清每一列變量代表哪里,最好听绳,自己手畫一下大概的情況颂碘,接著再進(jìn)行畫圖。

?

下面是具體的操作流程:

注意:R語言里面 # 代表的是備注

我出現(xiàn)兩個(gè) ## 的備注就是你需要更改的部分

.libPaths()

setwd("F:/02學(xué)習(xí)/代碼/02R代碼/數(shù)據(jù)")#設(shè)置工作空間

getwd()#加載工作空間

?

#加載包

library(ggplot2)

library(tidyr) #pivot_longer()

library(dplyr) #mutate()椅挣、case_when()头岔、管道符

library(tibble) #rownames_to_column()

library(ggrepel)#含geom_text_repel,作用不讓標(biāo)簽重疊

#導(dǎo)入數(shù)據(jù)

data1<-read.csv("F:/02學(xué)習(xí)/代碼/02R代碼/數(shù)據(jù)/分組柱狀圖.csv",##這里需要更改工作路徑

??????????????? as.is = TRUE,header = T,sep =",", fileEncoding='utf-8')

#先看下數(shù)據(jù)

data1

#采用mutate()設(shè)計(jì)分組變量里面數(shù)據(jù)的順序

data1 <- rbind(data1)%>%#必須寫上這個(gè)行行合并的函數(shù)

?##這里我列出我的三個(gè)分組變量里面數(shù)據(jù)的順序

?##比如下面的年齡塔拳,變量名是”年齡“,希望的順序是"60歲以下","60歲以上"

?##然后粘貼到函數(shù)mutate峡竣,如下

?##年齡:60歲以下/60歲以上

?mutate(年齡 = factor(年齡, levels = c("60歲以下",

?????????????????????????????????? "60歲以上"

?)))%>%

?##同樣上面的操作

?##性別:男/

?mutate(性別 = factor(性別, levels = c(

???"男","女"

?))) %>%

?##同樣上面的操作

?##疾豺薄:高血壓/糖尿病

?mutate(疾病 = factor(疾病, levels = c(

???"高血壓",?? "糖尿病"

?)))

?

?

#然后畫柱狀堆積圖,采用geom_bar組件

##x=代表x軸的分組澎胡,這里我選年齡

##y=代表數(shù)據(jù)那一列孕荠,這里是? 患病率那一列

##fill= 代表每個(gè)圖里面的柱狀堆積塊的分組,這里我選? 性別攻谁,同時(shí)這個(gè)后面需要?jiǎng)?chuàng)建圖例

p1<-ggplot(data = data1, aes(x=年齡, y = 患病率, fill = 性別)) +#這里就是1張圖的工作

?geom_bar(stat="identity", color = "black", size =0.55, width = 0.7)+

?facet_wrap(~疾病)+ ##這里設(shè)置分頁稚伍,就是多張圖,這里的分組變量我選疾病

?##為不同類別設(shè)置顏色

?##下面這個(gè)是設(shè)置柱狀堆積塊戚宦,每一塊的顏色个曙,因?yàn)榍懊媸怯玫男詣e

?##那么就需要定義 "男" 和 "女"的顏色

?scale_fill_manual(

???values = c("男" = "#bd2628",

?????????????? "女" = "#caeaf0"))

#查看

p1


#接著進(jìn)一步美化

p2<-p1+

?theme_bw()+ #移除灰色背景

?ylab("比例")+ #設(shè)置Y軸標(biāo)題

?scale_y_continuous(labels = seq(0, 100, 25)) + #設(shè)置Y軸標(biāo)簽

?guides(fill = guide_legend(keyheight = 1.75, #圖例高度

???????????????????????????? keywidth =0.5,? #圖例寬度

???????????????????????????? title ="Age", ##這里修改圖例標(biāo)題,前面選擇的是性別

???????????????????????????? label.theme =element_text(size=10)))+ #設(shè)置標(biāo)簽字體大小

?theme(

???axis.text.x = element_text(angle = 0, hjust = 0.5, vjust = 0.5,

?????????????????????????????? colour ="black", size = 8),

???#設(shè)置X軸標(biāo)簽字體角度受楼、對齊方向垦搬、顏色大小

???axis.text.y = element_text(colour = "black", size = 11), #設(shè)置y軸標(biāo)簽字體顏色、大小

???axis.title.x = element_blank(), #移除x軸標(biāo)題

???strip.background = element_rect(fill = c("#e7e7e7")), #修改分頁背景

???strip.text.x = element_text(size = 13), #設(shè)置分頁標(biāo)簽字體大小

???panel.border = element_rect(linewidth = 1.1), #設(shè)置邊框粗細(xì)

???panel.grid = element_blank() #刪除背景網(wǎng)格

?)+

?##這里需要將? 患病率?數(shù)據(jù)加到圖上

?geom_text(aes(label=患病率),

???????????position=position_stack(vjust=0.5),hjust=0.5,

??????????? size=3)#增加數(shù)據(jù)到圖上

???????#position=position_stack()作用是將數(shù)據(jù)對應(yīng)到相應(yīng)的圖塊部分

#查看

p2

#保存圖片

ggsave(filename = "0-2.png",#命名

??????plot=p2,#哪張圖

??????path = "C:/Users/12974/Desktop/百度經(jīng)驗(yàn)/簡書/R語言繪制多個(gè)分組簇狀柱狀圖",

??????#保存路徑

??????units="px",

??????width = 1200,#寬度

??????height = 600 #高度

??????)

評論區(qū)給出數(shù)據(jù)和R語言的代碼艳汽,這里的顏色全是黑色

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末猴贰,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子河狐,更是在濱河造成了極大的恐慌米绕,老刑警劉巖,帶你破解...
    沈念sama閱讀 218,386評論 6 506
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件馋艺,死亡現(xiàn)場離奇詭異栅干,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)捐祠,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,142評論 3 394
  • 文/潘曉璐 我一進(jìn)店門碱鳞,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人踱蛀,你說我怎么就攤上這事窿给。” “怎么了星岗?”我有些...
    開封第一講書人閱讀 164,704評論 0 353
  • 文/不壞的土叔 我叫張陵填大,是天一觀的道長戒洼。 經(jīng)常有香客問我俏橘,道長,這世上最難降的妖魔是什么圈浇? 我笑而不...
    開封第一講書人閱讀 58,702評論 1 294
  • 正文 為了忘掉前任寥掐,我火速辦了婚禮靴寂,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘召耘。我一直安慰自己百炬,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,716評論 6 392
  • 文/花漫 我一把揭開白布污它。 她就那樣靜靜地躺著剖踊,像睡著了一般。 火紅的嫁衣襯著肌膚如雪衫贬。 梳的紋絲不亂的頭發(fā)上德澈,一...
    開封第一講書人閱讀 51,573評論 1 305
  • 那天,我揣著相機(jī)與錄音固惯,去河邊找鬼梆造。 笑死,一個(gè)胖子當(dāng)著我的面吹牛葬毫,可吹牛的內(nèi)容都是我干的镇辉。 我是一名探鬼主播,決...
    沈念sama閱讀 40,314評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼贴捡,長吁一口氣:“原來是場噩夢啊……” “哼忽肛!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起烂斋,我...
    開封第一講書人閱讀 39,230評論 0 276
  • 序言:老撾萬榮一對情侶失蹤麻裁,失蹤者是張志新(化名)和其女友劉穎,沒想到半個(gè)月后源祈,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體煎源,經(jīng)...
    沈念sama閱讀 45,680評論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,873評論 3 336
  • 正文 我和宋清朗相戀三年香缺,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了手销。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 39,991評論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡图张,死狀恐怖锋拖,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情祸轮,我是刑警寧澤兽埃,帶...
    沈念sama閱讀 35,706評論 5 346
  • 正文 年R本政府宣布,位于F島的核電站适袜,受9級特大地震影響柄错,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,329評論 3 330
  • 文/蒙蒙 一售貌、第九天 我趴在偏房一處隱蔽的房頂上張望给猾。 院中可真熱鬧,春花似錦颂跨、人聲如沸敢伸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,910評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽池颈。三九已至,卻和暖如春钓丰,著一層夾襖步出監(jiān)牢的瞬間饶辙,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,038評論 1 270
  • 我被黑心中介騙來泰國打工斑粱, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留弃揽,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 48,158評論 3 370
  • 正文 我出身青樓则北,卻偏偏與公主長得像矿微,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個(gè)殘疾皇子尚揣,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,941評論 2 355

推薦閱讀更多精彩內(nèi)容