R中的重叠轴标签

Question

我有一个问题,我有重叠的轴标签,似乎无法找到解决方案来解决这个问题.

在此输入图像描述

p <- ggplot(data=Data,aes(x=Indicator,y=Numeric,group=Expenditure_group,shape=Expenditure_group,colour=Expenditure_group))+geom_point()+geom_line()

有没有办法解决这个问题,以便没有重叠？

Answer 1

您可以通过自动缩写标签来调整x轴的位数

p + scale_x_discrete(labels = abbreviate)

或者您可以自己提供缩写标签

p + scale_x_discrete(labels = c("Congenital Rubella" = "C. Rub.", ..., "Total tetanus" = "T. tet.", "Yellow fever" = "Y. fever")

这是一个很好的答案,但另一个人喜欢的是在每个xlabel的开头交替换行符:`p + scale_x_discrete(labels = function(labels){fixedLabels < - c()for(l in 1:length(labels) )){fixedLabels < - c(fixedLabels,paste0(ifelse(l %% 2 == 0,'','\n'),label [l]))} return(fixedLabels)})` (8认同)