R语言 | 上下双向柱状图

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),
  )

3. todo

相关推荐
向阳@向远方16 分钟前
第二章 简单程序设计
开发语言·c++·算法
Mr_Xuhhh1 小时前
信号与槽的总结
java·开发语言·数据库·c++·qt·系统架构
纳兰青华1 小时前
bean注入的过程中,Property of ‘java.util.ArrayList‘ type cannot be injected by ‘List‘
java·开发语言·spring·list
好开心啊没烦恼1 小时前
Python 数据分析:DataFrame,生成,用字典创建 DataFrame ,键值对数量不一样怎么办?
开发语言·python·数据挖掘·数据分析
liulilittle1 小时前
VGW 虚拟网关用户手册 (PPP PRIVATE NETWORK 基础设施)
开发语言·网络·c++·网关·智能路由器·路由器·通信
Devil枫1 小时前
Kotlin高级特性深度解析
android·开发语言·kotlin
ChinaDragonDreamer1 小时前
Kotlin:2.1.20 的新特性
android·开发语言·kotlin
安之若素^2 小时前
启用不安全的HTTP方法
java·开发语言
一个天蝎座 白勺 程序猿2 小时前
Python(28)Python循环语句指南:从语法糖到CPython字节码的底层探秘
开发语言·python
持梦远方2 小时前
C 语言基础入门:基本数据类型与运算符详解
c语言·开发语言·c++