R绘图 | 堆叠柱状图

stack_bar

整个新系列。目前的几个系列， 「#R实战」  以「生信分析」为主， 「#跟着CNS学作图」 以「复现顶刊」Figure为主，而本系列 「#R绘图」 则是学习不在文章中但同样很好看的图，致力于给同学们在数据可视化中提供新的思路和方法。

本系列往期文章

1. R绘图 | 气泡散点图+拟合曲线

2. R绘图 | 对比条形图+连线

3. R绘图 | 一幅小提琴图的美化之旅

4. R绘图 | 山峦图(ggridges)

5. R绘图 | 哑铃图+区域放大

6. R绘图 | 描述性统计常用图(散点图+柱状图+饼图)

7. R绘图 | 圆角堆叠柱状图(ggchicklet )

8. R绘图 | 时间线热图

本期图片

stack_bar

示例数据和代码领取

点赞、在看 本文，分享至朋友圈集赞20个并保留30分钟，截图发至微信mzbj0002领取。

「木舟笔记2022年度VIP可免费领取」。

木舟笔记2022年度VIP企划

「权益：」

1. 「2022」年度木舟笔记所有推文示例数据及代码(「在VIP群里实时更新」)。

   
   data+code

2. 木舟笔记「科研交流群」。

3. 「半价」购买跟着Cell学作图系列合集(免费教程+代码领取)|跟着Cell学作图系列合集。

「收费：」

「99￥/人」。可添加微信：mzbj0002 转账，或直接在文末打赏。

绘制

rm(list = ls())
library(ggthemes)
library(ggplot2)
by_names <- read.csv('by_names.csv')
head(by_names,5)


p

p <-by_names%>%
  ggplot(aes(x=avg_rating,y=fct_reorder(word,-avg_rating)))+
  geom_col(aes(fill=names), position = position_fill(),color="black")+
  ggthemes::scale_fill_tableau()+
  guides(fill=guide_legend(nrow = 1,reverse = T,keywidth = 0))+
  labs(fill="")+
  ggthemes::theme_fivethirtyeight()+
  theme(text=element_text(color="grey90"),
        plot.title = element_text(size=22),
        legend.position = "top",
        legend.background = element_rect(fill="black",color="black"),
        legend.text = element_text(size=12),
        strip.background = element_blank(),
        axis.text.y = element_text(size=12),
        panel.grid = element_line(size=3),
        plot.background = element_rect(fill="black",color="black"),
        panel.background = element_rect(fill="black",color="black"))
p
ggsave("stack_bar.png",
       dpi=320,
       height = 7,
       width = 9)

stack_bar

参考

• https://github.com/Fgazzelloni/TidyTuesday/blob/main/data/2022/w33_psychometrics/w33_psychometrics.Rmd

---

木舟笔记矩阵