今天推文的主要知识点就是四个柱子,每个柱子单独配色,然后4个图例如何调整四个图例的前后顺序 数据的部分截图 image.png 读取数据 library(readxl) library(tidyverse) df<-read_excel("data/20230305/41564_2022_1270_MOESM5_ESM.xlsx", sheet = "Fig2b") head(df) 每一列单独统计频率 df %>% select(Phylu...