图片拼接错位

[YuanMei2]

library(ClusterGVis) df <-plot_pseudotime_heatmap2(mycds[ordergene,], num_clusters = 4,cores = 10,use_gene_short_name = T,return_heatmap = FALSE)

enrich for clusters

library(org.Hs.eg.db) enrich <- enrichCluster(object = df,OrgDb = org.Hs.eg.db,type = "BP",organism = "hsa",pvalueCutoff = 0.5,topn = 5,seed = 5201314)

check

head(enrich[1:3,]) markGenes = sample(unique(df$wide.res$gene),50,replace = F)

PLOT

pdf('branch-enrich.pdf',height = 9,width = 16,onefile = F) visCluster(object = df, plot.type = "both", markGenes = markGenes, show_row_dend = F,markGenes.side = "left",annoTerm.data = enrich, go.col = rep(jjAnno::useMyCol("calm",n = 4),each = 5), add.bar = T,line.side = "left") dev.off()

您好，我用的上述代码，画出来的图基因标注位置、BP通路位置和热图有错位，并且呈现出来的热图是空白的，请问这种问题怎么解决呀，感谢大大回复

[heyouzhe]

我今天也遇到了同样的问题，请问题主解决了吗

[junjunlab]

上传一下你的mycds,我看看

[20182531027]

我今天也遇到了同样的问题，请问题主解决了吗