我可以使用 ggplot 创建带有垂直阅读文本的轴标签吗？

Question

我想创建一个如图所示的图：x 轴标签应该是垂直的，字符堆叠在一起。

我知道旋转功能，但我想知道这是否也可能。

Answer 1

library(tidyverse)

data <- tibble(
  name = c("AAA", "BBB"),
  value = c(0.3, 0.2)
)

str_stack <- function(x) {
  x %>% str_split("") %>% map(~ .x %>% paste(collapse = "\n"))
}

data %>%
  ggplot(aes(name, value)) +
    geom_col() +
    scale_x_discrete(label = str_stack)

^{由reprex 包于 2022 年 4 月 5 日创建(v2.0.0)}