facet_grid 标签中的分隔线

Question

有没有办法在单独的行中打印 facet_grid 标签中显示的文本？在下面的示例中，我想将“测试”打印在“组”上方。我一直在尝试使用 ggtext，但无法正常工作。有谁知道一些方法吗？

library(tidyverse)
library(ggtext)

df <- tibble(X = c("A","A","B","B","C","C","B","B","B","C","C"),
             value = c(5,2,7,3,1,6,9,4,2,5,2),
             type = c("t","t","t","t","t","s","s","s","s","s", "s"),
             group = c("T1G1","T2G2","T1G1","T2G2","T1G1","T1G1","T3G3","T2G2","T3G3","T3G3", "T3G3"))

re_names <- c(
  "T1G1" = "Test1<b>Group1",
  "T2G2" = "Test2<b>Group2",
  "T3G3" = "Test3<b>Group3")

df %>% ggplot(aes(X,value)) +
  geom_col(aes(fill=type)) +
  facet_grid(~group,
             labeller = as_labeller(re_names))

Answer 1

您只需要使用 \n 而不是 <b>。

re_names <- c(
  "T1G1" = "Test1\nGroup1",
  "T2G2" = "Test2\nGroup2",
  "T3G3" = "Test3\nGroup3")

df %>% ggplot(aes(X,value)) +
  geom_col(aes(fill=type)) +
  facet_grid(~group,
             labeller = as_labeller(re_names))

facet_grid 标签中的分隔线

Separate lines in facet_grid labels

r

ggplot2

tidyverse