2013-10-24 125 views
5

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

enter image description here

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

有没有办法让没有重叠,以解决这一问题?

回答

10

您可以调整了一下你的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") 

参见:http://docs.ggplot2.org/current/scale_discrete.html

+4

这是一个很好的答案,但另一个个人最喜欢的是在每个xlabel的开头交替换行符: 'p + scale_x_discrete(labels =功能(标签){ fixedLabels < - C() 为(升在1:长度(标签)) { fixedLabels < - C(fixedLabels, paste0(ifelse(升%% 2 == 0, '' ,'\ n'),标签[l])) } return(fixedLabels) })' – aaiezza