如何在ggplot中使stat_summary生成的文本适配矩形？

我明白你想让stat_summary生成的统计文本自动适配上方的矩形空间，之前尝试ggfittext没成功确实有点头疼。其实问题主要出在geom_rect的位置映射和stat_summary与ggfittext的结合方式上，下面给你两个可行的解决思路：

方案一：用ggfittext直接配合stat_summary（推荐） #

这个方案能完美实现文本自动缩放适配矩形，核心是让stat_summary调用ggfittext的geom_fit_text，同时修正矩形的位置映射，确保它和每个分类的位置对应。

修改后的完整代码 #

library(ggplot2)
library(ggfittext)

category <- c('a','b','a','b','c','a','c')
values <- c(10,20,30,10,10,20,40)
dataset <- data.frame(category,values)
z = max(values)

stat_box_data <- function(y, upper_limit = (z + 10 + z + 50)/2) { # 改为矩形的垂直中点
  return( data.frame(
    y = upper_limit,
    label = paste('Contagem =', paste(length(y)), '\n',
                  'Média =', paste(round(mean(y), 1),'horas'), '\n',
                  'Desvio =', paste(round(sd(y), 1),'horas'), '\n',
                  'Mínimo =', paste(round(min(y),1),'horas'), '\n',
                  'Máximo =', paste(round(max(y),1),'horas'), '\n',
                  'Mediana =', paste(round(median(y),1),'horas'), '\n',
                  'Total =', paste(round(sum(y),1),'horas')
    ) )
  )
}

ggplot(dataset,aes(x=category, y=values))+
  # 修正矩形的位置：每个分类对应一个矩形，宽度匹配分类的空间
  geom_rect(aes(xmin = as.numeric(category)-0.4, xmax = as.numeric(category)+0.4, 
                ymin = z+10, ymax = z+50), 
            col = 'white', fill = 'white') +
  geom_boxplot()+
  geom_point()+
  # 用stat_summary调用geom_fit_text，自动适配矩形
  stat_summary(
    fun.data = stat_box_data,
    geom = "fit_text",  # 指定使用ggfittext的geom
    hjust = 0.5,
    vjust = 0.5,
    width = 0.8,        # 对应矩形的宽度（和xmin/xmax的差值一致）
    height = 40,        # 对应矩形的高度（z+50 - z+10 = 40）
    place = "centre",   # 文本居中填充
    size = 12           # 初始字体大小（会自动缩小适配）
  ) +
  facet_grid(. ~ category, space = "free", scales="free", margins=TRUE)

关键修改点说明 #

1. 修正geom_rect的映射：原来的xmin=0, xmax=10会在每个facet里画超大矩形，改为as.numeric(category)±0.4，让每个分类上方的矩形刚好匹配它的位置宽度。
2. stat_box_data的y值调整：把文本的垂直位置设为矩形的中点，让geom_fit_text更容易居中适配。
3. stat_summary调用geom_fit_text：直接指定geom="fit_text"，并通过width和height参数匹配矩形的实际尺寸，这样文本会自动缩放填充整个矩形空间。

方案二：手动动态调整字体大小（无需ggfittext） #

如果你不想依赖额外包，可以根据每个分类的文本长度或矩形空间动态计算字体大小。不过这种方法灵活性不如ggfittext，示例如下：

# 先预计算每个分类的文本长度
text_lengths <- sapply(unique(dataset$category), function(cat) {
  y <- dataset$values[dataset$category == cat]
  nchar(paste('Contagem =', paste(length(y)), '\n',
              'Média =', paste(round(mean(y), 1),'horas'), '\n',
              'Desvio =', paste(round(sd(y), 1),'horas'), '\n',
              'Mínimo =', paste(round(min(y),1),'horas'), '\n',
              'Máximo =', paste(round(max(y),1),'horas'), '\n',
              'Mediana =', paste(round(median(y),1),'horas'), '\n',
              'Total =', paste(round(sum(y),1),'horas')))
})

# 定义动态字体大小函数
dynamic_size <- function(cat) {
  # 根据文本长度反向调整大小，可自行调整系数
  max(8, 15 - text_lengths[cat]/10)
}

ggplot(dataset,aes(x=category, y=values))+
  geom_rect(aes(xmin = as.numeric(category)-0.4, xmax = as.numeric(category)+0.4, 
                ymin = z+10, ymax = z+50), 
            col = 'white', fill = 'white') +
  geom_boxplot()+
  geom_point()+
  stat_summary(
    fun.data = stat_box_data,
    geom = "text", 
    hjust = 0.5,
    vjust = 0.85,
    aes(size = after_stat(x))  # 按分类动态调整大小
  ) +
  scale_size_manual(values = sapply(unique(dataset$category), dynamic_size)) +
  facet_grid(. ~ category, space = "free", scales="free", margins=TRUE) +
  guides(size = "none")  # 隐藏大小图例

这种方法需要手动调整字体大小的计算逻辑，适配效果不如ggfittext自动，但胜在无需额外依赖。

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