clisterprofiler的情节不起作用

Question

当我绘制ggo结果时，它的效果非常好，但是当我将绘图放入RGtk2按钮的事件时，它没有。它也没有显示任何错误信息，因此我不知道为什么没有绘制情节 以下是使用和不使用按钮绘制ggo的2个代码。 第一个代码：

library(clusterProfiler)
library("DOSE")
data(geneList)
gene <- names(geneList)[abs(geneList) > 2]
head(gene)
ggo <- groupGO(gene = gene,
organism = "human",
ont = "BP",
level = 3,
readable = TRUE)
print(ggo)
barplot(ggo, drop=TRUE, showCategory=12)

使用按钮的第二个代码：

library(RGtk2)
win<-gtkWindow()
b<-gtkButton("ok")
win$add(b)
gSignalConnect(b,"clicked",l<-function(b){
library(clusterProfiler)
library("DOSE")
data(geneList)
gene <- names(geneList)[abs(geneList) > 2]
ggo <- groupGO(gene = gene,
organism = "human",
ont = "BP",
level = 3,
readable = TRUE)
print(ggo)
barplot(ggo, drop=TRUE, showCategory=12)
})

Answer 1

可以明确地打印。

print(barplot(ggo, drop=TRUE, showCategory=12))