library(stringr)
library(ggplot2)
library(clusterProfiler)
data(geneList)
de <- names(geneList)[1:100]
x <- enrichKEGG(de)
p <- barplot(x)
p + scale_x_discrete(labels=function(x) str_wrap(x, width=10))
from: Y叔 biobabble
library(stringr)
library(ggplot2)
library(clusterProfiler)
data(geneList)
de <- names(geneList)[1:100]
x <- enrichKEGG(de)
p <- barplot(x)
p + scale_x_discrete(labels=function(x) str_wrap(x, width=10))
from: Y叔 biobabble
本文标题:2019-06-17 R画图文字换行
本文链接:https://www.haomeiwen.com/subject/ogxzfctx.html
网友评论