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

相关推荐
侃侃_天下3 天前
最终的信号类
开发语言·c++·算法
echoarts3 天前
Rayon Rust中的数据并行库入门教程
开发语言·其他·算法·rust
Aomnitrix3 天前
知识管理新范式——cpolar+Wiki.js打造企业级分布式知识库
开发语言·javascript·分布式
每天回答3个问题3 天前
UE5C++编译遇到MSB3073
开发语言·c++·ue5
伍哥的传说3 天前
Vite Plugin PWA – 零配置构建现代渐进式Web应用
开发语言·前端·javascript·web app·pwa·service worker·workbox
小莞尔3 天前
【51单片机】【protues仿真】 基于51单片机八路抢答器系统
c语言·开发语言·单片机·嵌入式硬件·51单片机
我是菜鸟0713号3 天前
Qt 中 OPC UA 通讯实战
开发语言·qt
JCBP_3 天前
QT(4)
开发语言·汇编·c++·qt·算法
Brookty3 天前
【JavaEE】线程安全-内存可见性、指令全排序
java·开发语言·后端·java-ee·线程安全·内存可见性·指令重排序
百锦再3 天前
[特殊字符] Python在CentOS系统执行深度指南
开发语言·python·plotly·django·centos·virtualenv·pygame