ggplot2优雅绘制多元素注释条形图

R语言数据分析指南

发布于 2024-03-20 21:22:20

3560

文章被收录于专栏：R语言数据分析指南R语言数据分析指南

欢迎关注R语言数据分析指南

原图

仿图

关于永久群内容的说明

❝给予长期支持我们的读者们一个特别待遇：购买小编VIP会员文档的读者，「将自动获得2024年及以后更新的绘图文档代码，无需额外付费」。目前会员文档(2023+2024)「已经更新上传了150+案例文档」，每个案例都附有相应的数据和代码，并配有对应的注释文档，方便大家学习和参考。 ❞

加载R包

library(tidyverse)
library(magrittr)
library(ggtext)
library(grid)
library(cowplot)

定义颜色

col <- c("#ABDDDE","#FAD510","#C6CDF7","#F4B5BD","#0A9F9D","#FAEED1","#005295","#E6A0C4","#C52E19",
  "#9C9D9D")

数据清洗

df <- read_tsv("data.txt") %>% 
  pivot_longer(-c("pathway","group")) %>% 
  set_colnames(c("pathway","group","Species<br>(contribution percentage>10%)","value")) %>% 
  mutate(value=case_when(group =="Enriched in stable low DDS" ~ -value,
                         TRUE ~ value))

定义因子

df$pathway <- factor(df$pathway,levels = df$pathway %>% unique() %>% rev())

数据可视化

plot <- df %>% dplyr::rename("Percentage of species contributing<br>to each pathway,%"="value") %>% 
  ggplot(aes(`Percentage of species contributing<br>to each pathway,%`,
             pathway,
             fill=`Species<br>(contribution percentage>10%)`))+
  geom_col(color="black",size=0.5)+
  scale_fill_manual(values = c("#ABDDDE","#FAD510","#C6CDF7","#F4B5BD","#0A9F9D","#FAEED1","#005295","#E6A0C4","#C52E19",
                               "#9C9D9D"))+
  coord_cartesian(clip = "off")+
  theme_bw()+
  theme(legend.title = element_markdown(color="black",face="bold"),
        legend.text = element_text(color="black",face= "bold.italic"),
        axis.ticks = element_blank(),
        axis.text=element_text(color="black",face="bold"),
        axis.title.x = element_markdown(color="black",face="bold"),
        axis.title.y = element_blank(),
        plot.margin=unit(c(2,0.3,0.3,0.3),unit="cm"))

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-03-16，如有侵权请联系 cloudcommunity@tencent.com 删除

数据分析