左调整 (hjust = 0) 带有自由刻度的面上的垂直 x 轴标签

我决定重新表述这个问题 https://stackoverflow.com/questions/60677990/ggplot-facet-grid-x-axis-stepped。 （编辑会花费更多时间，而且在我看来也不会对OP有帮助。）

如何向左调整 (hjust = 0,即，在文本方向）在小平面上，当scale = 'free_x'?

我真的不认为 x 标签的左调整是非常必要的事情（长标签通常难以阅读，右调整可能是更好的选择） - 但我发现这个问题足够有趣。

我尝试使用空填充达到最大字符长度，但这不会导致所有字符串的长度相同。另外，设置axis.text.x = element.text(margin = margin())没有帮助。不用说，hjust = 0没有帮助，因为它正在各个方面进行调整。

library(ggplot2)

diamonds$cut_label <- paste("Super Dee-Duper", as.character(diamonds$cut))

ggplot(data = diamonds, aes(cut_label, carat)) +
  facet_grid(~ cut, scales = "free_x") +
  theme(axis.text.x = element_text(angle = 90))

红色箭头和虚线指示标签应如何调整。hjust = 0 or margins或空填充不会导致在所有方面调整这些标签。

来自这个著名问题的数据修改 https://stackoverflow.com/questions/1330989/rotating-and-spacing-axis-labels-in-ggplot2

我尝试用空填充达到最大字符长度，但是这个 不会导致所有字符串的长度相同。

这引起了我的注意。实际上，如果您用空格填充标签，使它们全部具有相同的长度，并确保字体系列，则所有字符串的长度都会相同不按比例间隔.

首先，用空格填充标签，使所有标签具有相同的长度。我将使用str_pad函数从stringr包裹。

library(ggplot2)

data("diamonds")

diamonds$cut_label <- paste("Super Dee-Duper", as.character(diamonds$cut))

library(stringr)
diamonds$cut_label <- str_pad(diamonds$cut_label, side="right",
                              width=max(nchar(diamonds$cut_label)), pad=" ")

然后，您可能需要使用以下命令加载不按比例间隔的字体外字体包裹。

library(extrafont)
font_import(pattern='consola')  # Or any other of your choice.

然后，运行 ggplot 命令并使用family争论。

ggplot(data = diamonds, aes(cut_label, carat)) +
  facet_grid(~cut, scales = "free_x") +
  theme(axis.text.x = element_text(angle = 90, family="Consolas"))