在ggplot2中为长X标签手动创建缩写图例

Question

我想用ggplot2创建一个简单的条形图，我的问题是我的x变量包含长字符串，因此标签重叠。

这是假数据和情节：

library(dplyr)
library(tidyr)
library(ggplot2)

set.seed(42)
datas <- data.frame(label = sprintf("aLongLabel%d", 1:8), 
           ok = sample(seq(0, 1, by = 0.1), 8, rep = TRUE)) %>% 
  mutate(err = abs(ok - 1)) %>% 
  gather(type, freq, ok, err)

datas %>% 
  ggplot(aes(x = label, y = freq)) + 
  geom_bar(aes(fill = type), stat = "identity")

我想用较短的标签替换标签，并创建一个图例来显示匹配。

我尝试过的事情：

我在geo_point中使用shape aes参数，它将创建一个带有形状的图例（以及我用alpha = 0隐藏的图形形状）。然后我使用scale_shape_manual更改形状，并将{x}标签替换为scale_x_discrete。使用guides我覆盖我的形状的alpha参数，因此它们在图例中不会被隐藏。

leg.txt <- levels(datas$label)
x.labels <- structure(LETTERS[seq_along(leg.txt)], 
                      .Names = leg.txt)

datas %>% 
  ggplot(aes(x = label, y = freq)) + 
  geom_bar(aes(fill = type), stat = "identity") + 
  geom_point(aes(shape = label), alpha = 0) + 
  scale_shape_manual(name = "Labels", values = x.labels) + 
  guides(shape = guide_legend(override.aes = list(size = 5, alpha = 1))) + 
  scale_x_discrete(name = "Label", labels = x.labels)

它给了我预期的输出，但我觉得这非常hacky。

ggplot2是否提供了更直接地执行此操作的方法？感谢。

Answer 1

Pascal提出的旋转解决方案

旋转标签并将它们对齐到边缘：

datas %>% 
  ggplot(aes(x = label, y = freq)) + 
  geom_bar(aes(fill = type), stat = "identity") + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1))