2019-06-17 R画图文字换行
2019-06-17 本文已影响0人
njmujjc
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
