R语言：如何用bquote实现图表标签中部分文字同时粗斜？

问题分析 #

你的代码存在两个问题：一是bquote里重复嵌套bold()属于冗余写法，二是如果没有把标签正确传递给绘图函数的表达式渲染系统，样式就不会生效。

解决方案 #

根据你使用的绘图工具，分两种情况处理：

1. 基础R绘图 #

直接构造表达式标签，通过axis()函数传入：

# 构造正确的表达式标签
x_labels <- c(
  bquote(bold("Arabisch gelesen, ") ~ bolditalic("Weiß")),
  bquote(bold("Schwarz, ") ~ bolditalic("Weiß"))
)

# 示例绘图（先隐藏默认x轴，再自定义）
plot(1:2, 1:2, xaxt = "n", xlab = "")
axis(1, at = 1:2, labels = x_labels)

2. ggplot2绘图 #

需要在scale_x_discrete的labels参数中传入表达式对象：

library(ggplot2)

# 构造示例数据
df <- data.frame(
  x = factor(c("组1", "组2")),
  y = c(3, 5)
)

# 方式1：用expression构造标签
x_labels <- c(
  expression(bold("Arabisch gelesen, ") ~ bolditalic("Weiß")),
  expression(bold("Schwarz, ") ~ bolditalic("Weiß"))
)

# 方式2：用bquote动态生成（适合批量处理）
x_labels <- lapply(c("Arabisch gelesen, ", "Schwarz, "), function(txt) {
  bquote(bold(.(txt)) ~ bolditalic("Weiß"))
})

# 绘图并应用标签
ggplot(df, aes(x, y)) +
  geom_col() +
  scale_x_discrete(labels = x_labels)

关键注意点 #

• 用bolditalic()替代嵌套的bold(italic())，写法更简洁且效果一致
• 必须传递表达式对象而非普通字符串，绘图系统才能识别并渲染样式
• 确保标签参数传递到对应绘图函数的正确位置（基础R的axis()、ggplot2的scale_*_discrete()）

内容的提问来源于stack exchange，提问作者Aaron Lauterbach