R绘图|转录组上游分析结果可视化-双向柱状图

maprate <- read.csv('maprate.txt',header = T,sep = "") # 数据读取
maprate$Assigned=maprate$Assigned*-1 # 将Assigned变成负值
library(reshape2)
longdata <- melt(maprate) # 宽数据转长数据

library(ggplot2)
ggplot(longdata, aes(SampleName, value, fill = Group)) +
  geom_col(position = position_dodge(width = 0.5), 
           width = 0.5, size = 0.3, colour = 'black') + # 柱形图绘制
  theme_classic()+ # 主题设置

library(ggplot2)
library(ggsci)
library(ggbreak)
ggplot(longdata, aes(SampleName, value, fill = Group)) +
  geom_col(position = position_dodge(width = 0.5), 
           width = 0.5, size = 0.3, colour = 'black') + # 柱形图绘制
  theme_classic()+ # 主题设置
  scale_fill_npg()+ # 颜色设置
  labs(x = 'Sample Name', y = 'Rate(%)') + #设置坐标轴标签
  scale_y_break(c(-70, 95), scales = 1.5) + # 坐标轴截断
  theme(axis.text = element_text(size = 12)) + # 修改字体大小
  theme(axis.title = element_text(size = 14))+
  annotate('text',label = 'Mapped', 2, 96,size=6) + # 修改标签位置和大小
  annotate('text',label = 'Assigned', 2, -79,size=6)+
  scale_y_continuous(breaks = seq(-90, 100, 1), 
                     labels = as.character(abs(seq(-90, 100, 1))), 
                     limits = c(-89, 98)) # 截断的数值显示

topptx(filename = "test.pptx",width = 8,height = 6)