[nmicrobiol图表复现] ggtree绘制离散型环状热图
绘制 图表 复现 离散 热图 环状 ggtree
2023-06-13 09:16:05 时间
❝本节来复现「nmicrobiol」上的一张图,此图有些小细节因此适用于「ggtree」绘制不需要其它扩展包;下面小编就通过一个详细的案例介绍如何绘制此图;
参考文档
❝https://yulab-smu.top/treedata-book/chapter7.html ❞
加载R包
library(tidyverse)
library(ggtree)
library(ggtreeExtra)
library(ggnewscale)
读入树文件
tree <- read.tree("RAxML_bipartitions.allUK_1000.nwk")
绘制进化树
cir <- ggtree(tree, layout="circular")+
geom_tiplab(size=2,align=T,linesize=0,color="black",offset =0.4)
导入热图数据
热图中包含进化树名称,因此只需要将其转换为行名即可
df <- read_csv("metadata.csv") %>%
column_to_rownames(var="label")
绘制heatmap
此处使用「color=NULL」来取消热图边框颜色,offset设置热图与进化树直接的距离
p1 <- gheatmap(cir,df %>% select(1),offset=0.6,width=.1,
colnames_offset_y=0,colnames = F,color=NULL)+
scale_fill_manual(values=c("#440154","#3b528b"))+
new_scale_fill()
绘制外圈
gheatmap(p1,df %>% select(2),offset=0.696,width=.1,
colnames_offset_y=0,colnames = F,color=NULL)+
scale_fill_manual(values=c("#21918c","#5ec962","#fde725"))+
theme(legend.title = element_blank(),
legend.text=element_text(color="black"),
legend.background = element_blank(),
legend.key = element_blank(),
legend.spacing.x = unit(0.1,'cm'),
legend.key.width=unit(0.4,'cm'),
legend.key.height=unit(0.4,'cm'))
相关文章
- R语言绘图:echart4r绘制动态趋势线
- 图像检索评价指标:PR曲线的计算与绘制
- 使用Iocomp工控图表工具绘制实时曲线
- ggplot2优雅的绘制多组配对箱线图
- 【R语言】热图绘制-heatmap函数
- 【说站】python中Excel图表的绘制
- Kitten 动态绘制 Y 轴方向立方体的实现方法
- 用Python当中Plotly.Express模块绘制几张图表,真的被惊艳到了!!
- 介绍一个Python可视化神器,绘制出来的图表惊艳了所有的人!!
- [R包推荐] polyclid优雅的绘制多边形
- Flutter 绘制实践 | 路径篇 · 数字显示管
- 【Java AWT 图形界面编程】Canvas 中绘制超大图片 ( 使用鼠标拖动查看全图 | 设置 JFrame 窗口自动关闭 | 获取并绘制图片 | 鼠标拖动计算位移 | 画布偏移 )
- 【RecyclerView】 八、RecyclerView.ItemDecoration 条目装饰 ( onDraw 和 onDrawOver 绘制要点 )
- 使用Python-VTK绘制曲线
- ListView 绘制流程解析详解手机开发
- 轻松绘制专业图表!推荐几款实用的linux下绘图软件(linux下绘图软件)
- 使用jQueryjqPlot插件绘制柱状图