wrapping labels in ggplot2（解决注释文本过长的问题）

​转自：Y叔 biobabble

春节前最后一更，Ask me anything about ggtree，邀请大家来提问，结果并没有人提问，我只能说，你们失去了随便问的机会了，后面问我ggtree的问题，就得去google group或论坛里了。

在后台倒是有人提问，一个是说ggtree注释文本太长，另一个是clusterProfiler的柱状图GO的描述太长，这其实是一样的问题：

晒这个截屏主要想说一点，如果是一两句话就能说清楚的问题，可以提问，如果不是，则不要在后台提问，写邮件或者到论坛提问，是更好的方式，像截屏中显示的，图片显示过期，我根本就没看到过图片。在手机上是无法看的，而我正好几天没在电脑前，于是你们发的图片我看不了，而且我如果没有在24小时之内回复，公众平台就不允许我回复了，因为问题已经过期。所以在此强调，不要在后台发图片提问，不要在后台问稍复杂的问题。

生信技能树公众号最近有推文：如何通过Google来使用ggplot2可视化，大家有兴趣的话，可以长按二维码了解一下。

如果使用google搜索”ggplot2 word wrap”的话，第一条链接里就有答案。

这个问题其实很简单，用stringr包的str_wrap来完成文本自动换行就行了。这里使用clusterProfiler的barplot来演示一下：

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))

说到画图，鉴于今天很多人又会画个红心来装geek，我只想说，对称的红心好画，不对称的伤心就不容易画了。

公式和效果都给出来了，你们试试看。

关于ggplot2画图，上一次推送了两年前写的教程：Use ggplot2，我同时还有配套的幻灯片，是我自己在实验室内部讲过的，如果大家有兴趣学习ggplot2，可以在后台回复ggplot2，会有链接奉上。

​