#creat a dataset(生成數(shù)據(jù))

specie

condition

value

df

library(ggplot2)

#分組柱形圖

p1

p1+theme(legend.position = "none")#去掉右側(cè)圖例

p1+scale_fill_manual(values=c("blue","red","green"))#自定義填充色

Rplot09.png

Rplot10.png

Rplot11.png

#堆積柱形圖

ggplot(df,aes(x=specie,y=value,fill=condition))+geom_bar(stat="identity")

ggplot(df,aes(x=specie,y=value,fill=condition))+

geom_bar(stat="identity")+

geom_text(aes(label=value),position=position_stack(vjust=0.5))#添加標(biāo)簽

可以比較一下一下三條命令出圖的區(qū)別

ggplot(df,aes(x=specie,y=value,fill=condition))+

geom_bar(stat="identity")+

geom_text(aes(label=value))#1

ggplot(df,aes(x=specie,y=value,fill=condition))+

geom_bar(stat="identity")+

geom_text(aes(label=value),position=position_stack())#2 position_stack()參數(shù)用來(lái)調(diào)整添加的標(biāo)簽和每部分堆積柱子相匹配，默認(rèn)應(yīng)該是添加到每部分頂端

ggplot(df,aes(x=specie,y=value,fill=condition))+

geom_bar(stat="identity")+

geom_text(aes(label=value),position=position_stack(vjust=0.5))#3 vjust參數(shù)用來(lái)調(diào)整標(biāo)簽的為重，vjust=0.5將標(biāo)簽放到對(duì)應(yīng)部位的中部

Rplot12.png

Rplot13.png

Rplot14.png

Rplot15.png

基本的堆積柱形圖應(yīng)該做完了，接下來(lái)模仿這張圖片

QQ圖片20180712220000.jpg

暫時(shí)只想到一種解決辦法，更改數(shù)據(jù)格式，把之前用到的df數(shù)據(jù)集改成這樣：添加兩列用來(lái)指定文本和標(biāo)簽的位置

更改后的數(shù)據(jù)集

ggplot(df,aes(x=specie,y=value,fill=condition))+

geom_bar(stat="identity")+

geom_text(aes(label=specie,y=var4))+ylim(-20,65)+#設(shè)置縱坐標(biāo)范圍以掩蓋多余的標(biāo)簽

geom_label(aes(label=value,y=var5))+theme_bw()+

theme(axis.text.x = element_blank(),#去除橫坐標(biāo)軸標(biāo)簽

axis.ticks.x = element_blank(),#去除橫坐標(biāo)刻度

axis.line.x = element_blank(),

panel.border = element_blank(),#去掉邊框

axis.ticks.y = element_blank(),#去掉縱坐標(biāo)刻度

legend.position="none")#去掉圖例

效果基本滿意

PS:突然想到之前遇到的一個(gè)問(wèn)題找到了解決辦法，明天(20180702)來(lái)補(bǔ)充；找資料還找到了python繪制堆積柱形圖的代碼，明天也重復(fù)一下。有些困了，睡覺(jué)

更新

#完全重復(fù)其代碼

setwd("Rpractice/kaggle_practice_data/Kobe_shot_selection/")

df

train

names(train)

train$shot_made_flag

ggplot(train,aes(x=season,fill=shot_made_flag))+geom_bar(stat="count",position="fill")+

scale_fill_manual(values=c("red","blue"))+

theme(axis.text.x = element_text(angle=90,vjust=0.5))#將橫坐標(biāo)標(biāo)簽調(diào)整為垂直，vjust 輕微調(diào)整位置

scale_fill_brewer(palette="Set1",direction=-1)#填充顏色

Rplot07.png

重復(fù)里面的堆積柱形圖時(shí)遇到的問(wèn)題：如果我想讓上半部分紅色與下半部分藍(lán)色互換位置應(yīng)該怎么辦，答案：將代碼一換成代碼二

train$shot_made_flag

train$shot_made_flag

結(jié)果就變成了這樣

參考文章

總結(jié)

以上是生活随笔為你收集整理的ggplot绘制柱状图 python_ggplot2堆积柱形图笔记的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。