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

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 标签。所以我们可以创建一个函数来传递给scale_y_discrete 的labels 参数（正如@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))

Answer 2

似乎有一种更简单的方法可以解决这个问题（无需制作自己的贴标机）。只需在theme(axis.text.y) 中指定标签的特定面。请注意，我必须将 x 轴值定义为使标签顺序可预测的因素。

library(ggplot2)

mtcars$cars <- as.factor(rownames(mtcars))
bold.cars <- c("Merc 280", "Fiat 128")

bold.labels <- ifelse(levels(mtcars$cars) %in% bold.cars, yes = "bold", no = "plain")

ggplot(mtcars, aes(x = cars, y = drat)) +
  theme(axis.text.y = element_text(face = bold.labels)) +
  geom_col() +
  coord_flip()

Answer 3

一种方法是在标签参数中使用expression。

library(ggplot2)
library(tibble)

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()    

如果您想以自动方式执行此操作，您可以定义一个自定义粗体函数来制作表达式：

library(ggplot2)
library(dplyr)
library(tibble)

MakeExp <- function(x,y){
  exp <- vector(length = 0, mode = "expression")
  for (i in seq_along(x)) {
    if (i %in% y) exp[[i]] <- bquote(bold(.(x[i])))
    else exp[[i]] <- x[i]
  }
return(exp)
}

ggplot(head(mtcars) %>% rownames_to_column("cars"),
       aes(x = reorder(cars, - drat), 
           y = drat)) +
  geom_col() +
  scale_x_discrete(labels = MakeExp(rownames(head(mtcars)),c(3,4))) + 
  coord_flip()            

Answer 4

一种会引发警告的“自动化”（半）方法（见后文，见this issue）：

library(ggplot2)
library(dplyr)
library(tibble)

custom_face <- ifelse(row.names(mtcars) %in% c("Hornet 4 Drive","Datsun 710"),
                      "bold","plain")
head(mtcars) %>% rownames_to_column("cars") %>%
ggplot(aes(x = reorder(cars, - drat), 
           y = drat)) +
  geom_col() +
  coord_flip() +
  theme(axis.text.y = element_text(face=custom_face))

警告（从关于链接问题的讨论中我不清楚关于此“功能”未来的最终决定是什么）

警告信息： 官方不支持element_text() 的矢量化输入。 结果可能出乎意料，或者在 ggplot2 的未来版本中可能会发生变化。

结果：