ggplot绘图坐标轴文字折叠

 ----------------------------------个人学习记录--------------------------------------

year	in	out
sssssssssssssssssssssssssssss2017	124790	153309
sssssssssssssssssssssssssssss2018	140880	164128
sssssssssssssssssssssssssssss2019	143254	172374
sssssssssssssssssssssssssssss2020	142936	179279
sssssssssssssssssssssssssssss2021	173661	217348

 随便找个数据做个示范。

ggplot(data=data,aes(x=year,y=out)) + geom_bar(stat = "identity")

 文字太长叠一起了。加个文字换行

ggplot(data=data,aes(x=year,y=out)) +

geom_bar(stat = "identity") +

scale_x_discrete(labels=function(x)str_replace_all(x,"(.{10})","\\1\n"))

给labels重新赋值，这边写函数传入参数就是原来的label。

写个正则，每隔10个字符插入一个换行符

 用个正则子组()，替换的时候使用\\1保留第一个子组匹配到的内容

 对于Y轴也是同理。GO和KEGG图的通路名不是很长嘛，可以用这个方法改一下