在 ggplot2::scale_x_discrete() 中包装标签文本——RTL 语言与顺序不匹配 1 -- 一个简单的条形图2 -- 创建一个向量，将 x 轴标签从英语翻译成希伯来语 3 -- 重新创建条形图，现在使用新的希伯来语标签4 -- 这里的问题：我想为标签文本添加文本换行功能，但它搞砸了顺序

如何解决在 ggplot2::scale_x_discrete() 中包装标签文本——RTL 语言与顺序不匹配 1 -- 一个简单的条形图2 -- 创建一个向量，将 x 轴标签从英语翻译成希伯来语 3 -- 重新创建条形图，现在使用新的希伯来语标签4 -- 这里的问题：我想为标签文本添加文本换行功能，但它搞砸了顺序

在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: https://stackoverflow.com/a/21894897/6105259

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

知道如何为 x 轴标签指定外部命名向量，和在 RTL 语言（例如希伯来语）中应用文本换行方法，同时保留正确的订购？

解决方法

出于某种原因，我也不明白，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 轴。