是否有新方法来更改Facet_WRAP(Ggplot2)中条文本的文本 colored颜色

发布于02月27日

这个问题已经被问和回答了几次-最近的here次-但都有几年了，涉及For-循环和grid，而且有点老生常谈.我想知道有没有什么新的方法来改变我的条带文本的 colored颜色以匹配标题文本，最好是在ggploy中.

library(ggplot2)
library(ggtext)

facet_colors <- c("#43A047","#8A2BE2", "#007ACC")

iris |>
  pivot_longer(-Species) |>
  ggplot(aes(x = name,
             y = value, 
             # group = Species,
             fill = Species)) +
  geom_boxplot() +
  scale_fill_manual(values = facet_colors) +
  labs(title ="Feature Comparison of <span style = 'color: #43A047;'>Setosa</span>, 
       <span style = 'color: #8A2BE2;'>Versicolor</span> and 
       <span style = 'color: #007ACC;'>Virginica</span>") +
  facet_wrap(~Species) +
  theme_minimal() +
  theme(plot.title = element_markdown())

推荐答案

由于您已经在使用ggtext，因此基本上相同的方法也适用于条形文本，例如使用labeller()函数并设置strip.text=element_markdown()也可以这样做:

library(ggplot2)
library(ggtext)

facet_colors <- c("#43A047", "#8A2BE2", "#007ACC")

iris |>
  tidyr::pivot_longer(-Species) |>
  ggplot(aes(
    x = name,
    y = value,
    fill = Species
  )) +
  geom_boxplot() +
  scale_fill_manual(values = facet_colors) +
  labs(title = "Feature Comparison of <span style = 'color: #43A047;'>Setosa</span>,
       <span style = 'color: #8A2BE2;'>Versicolor</span> and
       <span style = 'color: #007ACC;'>Virginica</span>") +
  facet_wrap(~Species,
    labeller = labeller(
      Species = c(
        virginica = "<span style = 'color: #007ACC;'>Virginica</span>",
        versicolor = "<span style = 'color: #8A2BE2;'>Versicolor</span>",
        setosa = "<span style = 'color: #43A047;'>Setosa</span>"
      )
    )
  ) +
  theme_minimal() +
  theme(
    plot.title = element_markdown(),
    strip.text = element_markdown()
  )