在 ggplot2::scale_x_discrete() 中包装标签文本——RTL 语言的顺序不匹配

Question

在ggplot，我经常需要编辑x轴标签。我的常规做法是为标签创建一个额外的 named 向量（例如 my_labels），然后使用 scale_x_labels(labels = my_labels).

特别是当需要将标签翻译成不同的语言时，此方法非常有用。但是，当尝试以从右到左的语言包装标签文本时，这会出错。

例子

1 -- 一个简单的条形图

library(dplyr)
library(ggplot2)

mpg %>%
  filter(class == 'pickup' | class == "suv" | class == "compact") %>%
  ggplot(aes(class, fill = factor(class))) +
  geom_bar()

2 -- 创建一个向量，将 x 轴标签从英语翻译成希伯来语

my_labels <-
  c(
    pickup = "פיקאפ",
    suv = "סיובי",
    compact = "קומפקטי"
  )

3 -- 重新创建条形图，现在使用新的希伯来语标签

mpg %>%
  filter(class == 'pickup' | class == "suv" | class == "compact") %>%
  ggplot(aes(class, fill = factor(class))) +
  geom_bar() +
  scale_x_discrete(labels = my_labels)  # <------ this is the addition, and it works as intended

---

4 -- 问题在这里：我想为标签文本添加文本换行功能，但它搞砸了顺序

为简单起见，我选择了不符合包装标准的短希伯来语标签，但仍能说明基本问题。

library(stringr)

mpg %>%
  filter(class == 'pickup' | class == "suv" | class == "compact") %>%
  ggplot(aes(class, fill = factor(class))) +
  geom_bar() +
  scale_x_discrete(labels = str_wrap(my_labels, 10)) ## based on: 

可以看出，仅添加 stringr::str_wrap() 打乱了标签的顺序。其他包装技术会重复出现此问题 (this one too, for example)。

知道如何为 x 轴标记指定外部命名向量，和应用 RTL 语言中的文本环绕方法 (例如，希伯来语）同时保持正确的顺序？

Answer 1

出于某种原因我也不明白，str_wrap() 取消了输出的命名，因此您不能再依赖命名匹配了。这里有两个解决方案：

library(tidyverse)
library(stringr)

my_labels <-
  c(
    pickup = "פיקאפ",
    suv = "סיובי",
    compact = "קומפקטי"
  )

mpg %>%
  filter(class == 'pickup' | class == "suv" | class == "compact") %>%
  ggplot(aes(class, fill = factor(class))) +
  geom_bar() +
  scale_x_discrete(labels = vapply(my_labels, str_wrap, character(1), width = 10))


mpg %>%
  filter(class == 'pickup' | class == "suv" | class == "compact") %>%
  ggplot(aes(class, fill = factor(class))) +
  geom_bar() +
  scale_x_discrete(labels = setNames(str_wrap(my_labels, 10), names(my_labels)))

另请注意，这不是 RTL 语言问题：

my_labels <-
  c(
    pickup = "Pickup",
    suv = "SUV",
    compact = "Compact"
  )

mpg %>%
  filter(class == 'pickup' | class == "suv" | class == "compact") %>%
  ggplot(aes(class, fill = factor(class))) +
  geom_bar() +
  scale_x_discrete(labels = str_wrap(my_labels, 10))

也错误地标记了 x 轴。