使用 ggplot2 调整 x 标签和图表之间的距离答案

【问题标题】：Adjust the distance between x labels and the chart using ggplot2使用 ggplot2 调整 x 标签和图表之间的距离
【发布时间】：2016-06-15 16:25:03
【问题描述】：

我正在尝试缩短 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。

【问题讨论】：

标签： r ggplot2

【解决方案1】：

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

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

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

【讨论】：

天才！谢谢！