R语言 | 上下双向柱状图

biomooc

已于 2024-06-22 17:49:29 修改

阅读量2.3k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： R 可视化文章标签： r语言开发语言

于 2024-03-27 15:43:25 首次发布

本文链接：https://blog.youkuaiyun.com/wangjunliang/article/details/137079717

R 同时被 2 个专栏收录

80 篇文章

订阅专栏

可视化

41 篇文章

订阅专栏

本文介绍了如何使用R语言进行数据处理，通过`reshape2`库对数据进行重塑，并利用`ggplot2`创建了一个展示基因表达变化的条形图。作者还展示了如何优化图表显示并将其整理到实例笔记中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 效果图

在这里插入图片描述

2. 代码


# 生成测试数据
dif=data.frame(
  labels=paste0("pathway", 1:3),
  up=c(30,15,1),
  down=c(10,20,40)
)
rownames(dif)=dif$labels
dif

#变形
dif=reshape2::melt(dif)
dif

# 绘图
ggplot(dif, aes(x=labels, y=ifelse(variable=="up", value, -value), fill=variable ) )+
  geom_bar(stat="identity")+
  geom_text(
    aes(label=value,
        vjust=ifelse(variable=="up", -0.4, 1.1),  #调整上下数字的位置坐标
    ),
    size=4 #number font size
  )+
  scale_fill_manual(name="Change", values = c("#ae3137", "#497aa2"),
                    breaks = c("up", "down"), #原始图例标签
                    labels = c("lengthen", "shorten"), #新图例标签
                    )+
  scale_y_continuous(
    labels=abs, #y轴 显示绝对值
    expand=expansion(mult=c(0.1, 0.1))
  )+
  labs(x="", y="Gene number", title="compare result")+
  theme_classic(base_size = 12)+
  theme(
    axis.text.x = element_text(angle = 60, hjust = 1, size=12),
    axis.text.y = element_text(size=12),
  )