ggplot中如何缩小换行后的变量标签文本？

直接在标签字符串里加\small无效是因为ggplot默认不解析LaTeX格式命令，以下两种方法可以实现需求：

方法一：利用ggplot自带的LaTeX解析功能 #

通过element_text(parse = TRUE)开启LaTeX解析，同时调整标签字符串的LaTeX语法（注意特殊字符转义）：

1. 修改标签文本，用\\small包裹需要缩小的内容，&要转义为\\&，换行可以用\n或LaTeX的atop命令：

# 方式1：用\n换行
graph <- within(results, Variable_label[Variable=="Var_1"] <- "Average age of individuals \n \\small{Cat.1 [1-3] \\& Cat.2 [3-5]}")

# 方式2：用LaTeX atop命令更稳定
# graph <- within(results, Variable_label[Variable=="Var_1"] <- "atop(Average age of individuals, \\small{Cat.1 [1-3] \\& Cat.2 [3-5]})")

2. 在绘图代码的theme中开启解析：

graph %>% 
  ggplot(aes(year, Variable_label, fill = other_variable)) +
  geom_tile(color = "white") +
  coord_equal() +
  theme(axis.text.y = element_text(parse = TRUE))

方法二：用ggtext包支持Markdown富文本 #

这种方法更直观，无需处理LaTeX转义，支持HTML/CSS样式：

1. 安装并加载ggtext包：

install.packages("ggtext")
library(ggtext)

2. 修改标签为Markdown格式，用<br>换行，用<span>设置字体大小：

graph <- within(results, Variable_label[Variable=="Var_1"] <- "Average age of individuals <br><span style='font-size: small;'>Cat.1 [1-3] & Cat.2 [3-5]</span>")

3. 将Y轴文本替换为element_markdown()：

graph %>% 
  ggplot(aes(year, Variable_label, fill = other_variable)) +
  geom_tile(color = "white") +
  coord_equal() +
  theme(axis.text.y = element_markdown())

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