如何解决如何在复杂热图中只标记每 10 列
library(ComplexHeatmap)
library(RColorBrewer)
library(circlize)
df <- read.csv("/home/aahm/Documents/gene1_allpop_sitepi.csv")
df1<- t(df[,2:ncol(df)])
colnames(df1) <- df[,1]
mycols <- colorRamp2(breaks = c(0,0.2,0.4,0.6,0.8,1.0),col = brewer.pal(n = 6,name = "Blues"))
png("/home/aahm/Desktop/c.png",width=20,height=8,units="cm",res=100)
Heatmap(df1,width = unit(10,"cm"),height = unit(5,name = 'site pi',row_names_gp = gpar(fontsize = 5.5),column_title = "TLR2",column_title_gp = gpar(fontsize = 15,fontface = "bold"),row_title = NULL,column_title_side = "top",col = mycols,show_column_dend = TRUE,cluster_rows = TRUE,column_order = order(as.numeric(gsub("column","",colnames(df1)))),column_names_rot = 45,show_column_names = TRUE,column_names_gp = grid::gpar(fontsize = 5)
)
dev.off()
我的热图如下:
由于列标签不可读,我想只标记每 10 列而不是标记每一列。这是否可以使用 Complex heatmap 包。我真的坚持这一点,非常感谢任何帮助。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。