添加富集分析结果后热图颜色出现问题

[zhongguozhiwang]

您好，我在绘制monocle2的差异热图时，添加富集分析结果后，热图的颜色就不太正常了，不添加富集分析结果就不会这样，请问这可能是什么原因导致的呢？
p1 <- visCluster(object = df,
plot.type = "both",
column_names_rot = 45,
show_row_dend = F,
markGenes.side = "left",
annoTerm.data = enrich,
go.col = rep(jjAnno::useMyCol("calm",n = 5),each = 5),
add.bar = T,
line.side = "left")

[junjunlab]

看不出来，你可以把数据代码发我看看

[zhongguozhiwang]

看不出来，你可以把数据代码发我看看

谢谢！在Rstudio中热图颜色显示不出来，但是保存到本地的pdf就是正常的，很奇怪。
df <- readRDS('df.rds')
library(ClusterGVis)
library(org.Mm.eg.db)

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

p1 <- visCluster(object = df,
plot.type = "both",
column_names_rot = 45,
show_row_dend = F,
markGenes.side = "left",
annoTerm.data = enrich,
go.col = rep(jjAnno::useMyCol("calm",n = 5),each = 5),
add.bar = T,
line.side = "left")
p1
df.zip