r - 在特定轴刻度上应用粗体字体

Question

这是一个情节:

library(ggplot2)
library(tibble)

ggplot(head(mtcars) %>% rownames_to_column("cars"),
       aes(x = reorder(cars, - drat), 
           y = drat)) +
  geom_col() +
  coord_flip()

如何在特定汽车名称上应用粗体(例如仅在“Hornet 4 Drive”和“Datsun 710”上)？

我更喜欢一个非常“通用”的答案，即一个可以轻松应用特定颜色或其他字体系列而不是粗体的答案。

Answer 1

ggtext允许您对轴标签和其他文本使用 markdown 和 html 标签。所以我们可以创建一个函数来传递给 labels scale_y_discrete 的论据(正如@RomanLuštrik 在他们的评论中所建议的那样)，通过它我们可以选择要突出显示的标签、颜色和字体系列:

library(tidyverse)
library(ggtext)
library(glue)

highlight = function(x, pat, color="black", family="") {
  ifelse(grepl(pat, x), glue("<b style='font-family:{family}; color:{color}'>{x}</b>"), x)
}

head(mtcars) %>% rownames_to_column("cars") %>% 
  ggplot(aes(y = reorder(cars, - drat), 
             x = drat)) +
  geom_col() +
  scale_y_discrete(labels= function(x) highlight(x, "Datsun 710|Hornet 4", "red")) +
  theme(axis.text.y=element_markdown())

iris %>% 
  ggplot(aes(Species, Petal.Width)) +
  geom_point() + 
  scale_x_discrete(labels=function(x) highlight(x, "setosa", "purple", "Copperplate")) +
  theme(axis.text.x=element_markdown(size=15))