ggplot中geom_label用atop多行标注字体大小不一致的解决方法

问题原因 #

嵌套使用atop()时，ggplot的表达式解析器会自动缩小内层行的字体大小，导致首行与后续行字体差异，同时嵌套结构也会让行间距不均。

解决方案 #

方法1：用textstyle()强制统一字体（原生表达式方案） #

给每一行标注添加textstyle()锁定字体大小，同时通过atop()的frac参数调整行间距，确保三行字体一致、间距均等：

# 数据部分保留原逻辑
data_df = data.frame(x=5:11, y = c(rep(0,3),0.4,rep(1,3)))
types = c('A','B','C')

combo_mat = t(combn(types,2))
list_combo = paste0(combo_mat[,1],'-',combo_mat[,2])

val1_list = c(10,23, 33)
val2_list = c(3,13, 22)
val3_list = c(12,33, 44)

# 给每一行标注套上textstyle()，强制字体大小统一
string_lab = paste0('textstyle(D[',combo_mat,']==',val1_list,
       ' (',val2_list,', ',val3_list,'))')

# 用atop嵌套并通过frac参数设置均匀行间距（frac值可按需调整）
final_string = paste0('atop(',string_lab[1],', atop(',string_lab[2],',',string_lab[3],', frac=1.2), frac=1.2)')
data_labels = data.frame(x=6,y=0.75,label = final_string)

ggplot(data_df,aes(x = x, y=y))+
  geom_point()+
  geom_line(linetype='dashed')+
  geom_label(data = data_labels,aes(x=x,y=y,label = label),parse = T, size = 2)+
  theme_bw()

方法2：使用gridtext包的markdown标注（更灵活方案） #

借助gridtext的geom_textbox()支持markdown语法，下标用<sub>、换行用<br>，天然保证字体一致和均匀间距：

先安装并加载包：

install.packages("gridtext")
library(gridtext)

再修改标注逻辑：

# 数据部分保留原逻辑
data_df = data.frame(x=5:11, y = c(rep(0,3),0.4,rep(1,3)))
types = c('A','B','C')

combo_mat = t(combn(types,2))
list_combo = paste0(combo_mat[,1],'-',combo_mat[,2])

val1_list = c(10,23, 33)
val2_list = c(3,13, 22)
val3_list = c(12,33, 44)

# 用markdown语法生成标注，下标通过<sub>实现，换行用<br>
string_lab = paste0('D<sub>',combo_mat,'</sub> = ',val1_list,
       ' (',val2_list,', ',val3_list,')')
final_string = paste(string_lab, collapse='<br>')
data_labels = data.frame(x=6,y=0.75,label = final_string)

ggplot(data_df,aes(x = x, y=y))+
  geom_point()+
  geom_line(linetype='dashed')+
  geom_textbox(data = data_labels,aes(x=x,y=y,label = label), 
               size = 2, box.color = "black", fill = "white")+
  theme_bw()

说明 #

• 方法1基于ggplot原生功能，无需额外安装包，需手动调整frac参数适配行间距；
• 方法2用markdown语法控制格式，操作更直观，适合复杂标注场景。

内容的提问来源于stack exchange，提问作者CaffèSospeso