双侧条形图或柱状图是展示组间方向上的差异,一般情况下在差异分析中展示Log2Foldchange等可以表示组间方向差异的指标。
加载R包
knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)
library(tidyverse)
rm(list = ls())
options(stringsAsFactors = F)
# group & color
group_names <- c("groupA", "groupB")
group_colors <- c('#0073C2FF','#E69F00')
导入数据
这里使用自构的数据
inputdata <- data.frame(
genus = c("Prevotella", "Streptococcus", "YRC22", "Phascolarctobacterium", "SMB53&#