R 绘图使用 ggplot facet_grid 添加图例

Question

使用 ggplot 和 faced_grid，我无法可视化 type1 变量的整个名称。名称太长。如何添加图例以避免此问题？

DF <- data.frame("value" =  runif(50, 0, 1),
                 "type1" = c(rep("AAAAAAAAAAAAAAAAAAAAAA", 25), 
                             rep("BBBBBBBBBBBBBBBBB", 25)),
                 "type2" = rep(c("c", "d"), 25), 
                 "number" = rep(2:6, 10))

ggplot(DF, aes(y = value, x = type1)) + 
  geom_boxplot(alpha = .3) + 
  ggtitle("TITLE") + 
  facet_grid(type2 ~ number)

这是结果:

Answer 1

这是一个选项，我们用 type1 填充。

ggplot(DF, aes(y=value, x=type1)) + 
  geom_boxplot(alpha=.3, aes(fill = type1)) + 
  ggtitle("TITLE") + facet_grid(type2 ~ number) +
  scale_x_discrete(name = NULL, breaks = NULL) + # these lines are optional
  theme(legend.position = "bottom")