如何调整ggplot2图表的坐标轴标题、标签及数字的字体大小？

我一直尝试增大ggplot2生成图表的坐标轴标签和标题的字号以提升图表可读性，但遇到了困难。我已尝试使用theme()参数（如下方示例代码）及base_size参数进行调整：

example.bp <- ggplot(data = a, aes(x = b, y = c, fill = b)) +
  stat_boxplot(aes(b,c),
               geom='errorbar', linetype=1, width=0.5) +
  geom_boxplot(alpha = 0.3) +
  stat_summary(fun.y=mean, geom="point", size = 1) +
  theme(legend.position="none") +
  xlab("B") +
  ylab("C") +
  theme(axis.text = element_text(size = rel(1.5), colour = "black"),
        axis.text.x = element_text(colour = "black", size = 12, hjust = 0.5, vjust = 0.5, angle = 0),
        axis.text.y = element_text(colour = "black", size = 12, hjust = 0.5, vjust = 0.5),
        panel.background = element_blank())

example.bp

example.bp + annotate(geom = "text", x=1, y=140, label = "n = 8", color = "black") +
  annotate(geom = "text", x=2, y=140, label = "n = 14", color = "black") +
  annotate(geom = "text", x=3, y=140, label = "n = 7", color = "black") +
  annotate(geom = "text", x=4, y=140, label = "n = 15", color = "black")
example.bp + geom_hline(yintercept = 0)

操作后没有报错，但图表无任何变化。请问调整ggplot2所有标签及坐标轴字体大小的最优方案是什么？如何将其整合到现有图表代码中？

问题根源 #

你的代码存在两个核心问题：

1. 重复调用theme()，后一个theme()会覆盖前一个的部分设置；且仅调整了坐标轴刻度文字（axis.text），未设置坐标轴标签（axis.title）——这是你看不到标签字号变化的关键。
2. 后续添加annotate、geom_hline时，若要保留主题修改，需确保基于已完成主题设置的对象操作。

最优调整方案 #

方案1：单处theme()统一设置所有元素 #

将所有主题样式整合到一个theme()调用中，避免覆盖问题，同时明确设置所有需要调整的文字元素：

example.bp <- ggplot(data = a, aes(x = b, y = c, fill = b)) +
  stat_boxplot(aes(b,c), geom='errorbar', linetype=1, width=0.5) +
  geom_boxplot(alpha = 0.3) +
  stat_summary(fun.y=mean, geom="point", size = 1) +
  xlab("B") +
  ylab("C") +
  # 合并所有主题设置到一处
  theme(
    legend.position="none",
    panel.background = element_blank(),
    # 坐标轴刻度文字
    axis.text.x = element_text(colour = "black", size = 12, hjust = 0.5, vjust = 0.5, angle = 0),
    axis.text.y = element_text(colour = "black", size = 12, hjust = 0.5, vjust = 0.5),
    # 坐标轴标签（你之前缺失的部分）
    axis.title.x = element_text(colour = "black", size = 14), # 字号按需调整
    axis.title.y = element_text(colour = "black", size = 14),
    # 若有图表标题，添加此行
    # plot.title = element_text(size = 16, face = "bold")
  )

方案2：全局主题设置（适合批量绘图） #

如果需要给所有ggplot图表统一应用样式，先通过theme_set()全局定义，后续绘图自动生效：

# 全局设置基础主题，base_size控制基础字号
theme_set(theme_bw(base_size = 12) +
            theme(
              legend.position="none",
              panel.background = element_blank(),
              axis.text = element_text(colour = "black"),
              axis.title = element_text(colour = "black", size = rel(1.2)), # rel()是相对base_size的倍数
              plot.title = element_text(size = rel(1.3), face = "bold")
            ))

# 后续绘图无需重复写theme
example.bp <- ggplot(data = a, aes(x = b, y = c, fill = b)) +
  stat_boxplot(aes(b,c), geom='errorbar', linetype=1, width=0.5) +
  geom_boxplot(alpha = 0.3) +
  stat_summary(fun.y=mean, geom="point", size = 1) +
  xlab("B") +
  ylab("C")

整合到后续图层操作 #

修改后的example.bp已包含完整主题设置，后续添加注释、水平线时直接基于该对象操作即可：

# 添加样本量注释（可通过size参数调整注释文字大小）
example.bp + 
  annotate(geom = "text", x=1, y=140, label = "n = 8", color = "black", size = 4) +
  annotate(geom = "text", x=2, y=140, label = "n = 14", color = "black", size = 4) +
  annotate(geom = "text", x=3, y=140, label = "n = 7", color = "black", size = 4) +
  annotate(geom = "text", x=4, y=140, label = "n = 15", color = "black", size = 4)

# 添加水平线
example.bp + geom_hline(yintercept = 0)

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