首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >在R中为gprofiler2添加一个标题

在R中为gprofiler2添加一个标题
EN

Stack Overflow用户
提问于 2022-04-07 12:16:56
回答 1查看 123关注 0票数 1

你好,我是一个新来的生物信息专家,所以请容忍我!我使用gprofiler2在R中使用emacs/ess运行GO/KEGG分析,并希望在它提供的表中添加一个标题:

代码语言:javascript
运行
复制
publish_gosttable(gostres, highlight_terms = gostres$result[c(1:2,10,120),],
                        use_colors = TRUE, 
                        show_columns = c("source", "term_name", "term_size", "intersection_size"),
                        filename = NULL)

我尝试过title()tab_header()函数,但似乎无法添加标题。我的问题是,是否有其他函数或包允许我添加它,而不必手动进行。

到目前为止的代码

代码语言:javascript
运行
复制
GOresult <- gost(
geneid1up$gene,
organism = "hsapiens",
ordered_query = FALSE, 
multi_query = FALSE,
significant = TRUE, 
exclude_iea = FALSE,
measure_underrepresentation = FALSE,
evcodes = FALSE,
user_threshold = 0.05,
correction_method =  "gSCS",
domain_scope = "annotated",
custom_bg = NULL,
numeric_ns = "",
sources = c("GO:BP","GO:MF","GO:CC","KEGG"),
as_short_link = FALSE)

GOresult1 <- as.data.frame(GOresult$result)
GOresult1$minuslog10pval <- -log10(GOresult1$p_value)
names(GOresult1)[15] <- "-log10(pval)"
GOresult2 <- GOresult1[order(GOresult1$p_value, decreasing=F),]

plot1 <- publish_gosttable(GOresult2, highlight_terms = GOresult2[c(1:20),],
                        use_colors = FALSE, 
                        show_columns = c("source", "term_name", "term_size", "intersection_size","-log10(pval)"),
                        filename = NULL)
EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2022-04-07 12:31:24

这个做得到吗?

代码语言:javascript
运行
复制
    library(gprofiler2)
library(ggplot2)
gostres <- gost(query = c("X:1000:1000000", "rs17396340", "GO:0005005", "ENSG00000156103", "NLRP1"), 
                organism = "hsapiens", ordered_query = FALSE, 
                multi_query = FALSE, significant = TRUE, exclude_iea = FALSE, 
                measure_underrepresentation = FALSE, evcodes = FALSE, 
                user_threshold = 0.05, correction_method = "g_SCS", 
                domain_scope = "annotated", custom_bg = NULL, 
                numeric_ns = "", sources = NULL, as_short_link = FALSE)

publish_gosttable(gostres, highlight_terms = gostres$result[c(1:2,10,120),],
                  use_colors = TRUE, 
                  show_columns = c("source", "term_name", "term_size", "intersection_size"),
                  filename = NULL)+
  ggtitle('Your Title')

结果:

诀窍是这个情节是个圈套。因此,您可以在绘图代码之后使用+ggtitle('Your Title')添加标题(如我的示例所示)。

票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/71782035

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档