使用ggplot2调整x轴标签与图表之间的距离

Question

我正在尝试缩小x轴标签和图表之间的距离，以便更清楚地看到哪个标签对应哪个条形图。这是代码和图表：

graph196 <- ggplot(serazene196a, aes(x = okres2, y = (NEPO_ANO_NE.mean/100), ordered=TRUE)) +
geom_bar(stat = "Identity", colour="white") 

graph196 + theme_stata() + theme(axis.text.x = element_text(angle = 90, hjust = 1, size = 10, vjust=0.5),
                             axis.text.y = element_text(angle = 0),
                             axis.title.x = element_blank(), axis.title.y = element_blank(),
             axis.text.y = element_text(size = 10), axis.ticks.x = element_blank(),
             axis.ticks.y = element_blank(),
             panel.border = element_blank(),
             plot.background = element_rect(fill = 'white')) +
scale_y_continuous(labels=percent) 

看起来是这样的：[1]: http://i.stack.imgur.com/bBjdn.jpg

如果我将hjust增加到1.2，则标签会靠近图形，但与此同时它们不对齐，因此整个图形看起来并不好: [1]: http://i.stack.imgur.com/C7Boc.jpg.

是否有选项可以使标签在增加hjust的情况下对齐，或者以其他方式将整个标签靠近图形？

这个问题类似于这个问题：Adjust distance between x-axis and text in R plot，只不过我正在使用ggplot2。

- Jakub Drapal

Answer 1

问题是即使您隐藏了刻度线，它们仍然占据空间。您可以通过调整文本标签的边距来强制标签更靠近。

element_text(angle = 90, hjust = 1, size = 10, vjust=0.5, margin=margin(-15,0,0,0)

边距定义为（上、右、下、左），我已将上边距调整为负值。

- darren17