在特定的轴刻度上应用粗体

这是一个情节:

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”上)应用粗体?

我希望使用一个相当“通用”的答案,即可以轻松地应用特定颜色或其他字体系列而不是粗体字体的答案。

评论
  • 闹心*
    闹心* 回复

    One approach is to use expression in a labels argument.

    ggplot(head(mtcars) %>% rownames_to_column("cars"),
           aes(x = reorder(cars, - drat), 
               y = drat)) +
      geom_col() + scale_x_discrete(labels = c("Mazda RX4",
                                               "Mazda RX4 Wag",
                                               expression(bold("Datsun 710")),
                                               expression(bold("Hornet 4 Drive")),
                                               "Hornet Sportabout",
                                               "Valiant")) + 
      coord_flip() 
    

    enter image description here