问题描述
因此,我有一个热图的grob对象,其中我的实际组(条件)太多(49个),结果溢出了绘图。我的问题是如何将带有条件(条件1-10)的图例小工具拆分为多列(例如,示例中的10之2或原始示例中的25之2)以使其适合图。
谢谢!
data <- replicate(20,rnorm(50))
rownames(data) <- paste("Gene",c(1:nrow(data)))
colnames(data) <- paste("Sample",c(1:ncol(data)))
Metadata <- data.frame(
c(rep("cond1",ncol(data)/10),rep("cond2",rep("cond3",rep("cond4",rep("cond5",rep("cond6",rep("cond7",rep("cond8",rep("cond9",rep("cond10",ncol(data)/10)),row.names=colnames(data))
colnames(Metadata) <- c("condition")
require(pheatmap)
out <- pheatmap(data,show_rownames=F,cluster_cols=T,cluster_rows=T,scale="row",cex=1,clustering_distance_rows="euclidean",clustering_distance_cols="euclidean",clustering_method="complete",border_color=FALSE,annotation_col=Metadata,annotation_row=Metadata_gene)
grid::grid.draw(out$gtable)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)