R中使用ggdraw绘制文本时实现字号随长度自动适配边界的咨询

你可以通过提前计算文本渲染宽度的方式动态匹配最优字号，不需要预定义字符数区间，适配逻辑更通用准确：

1. 先确定背景上文本区域的可用最大宽度：你当前设置的文本x起始坐标为0.1、左对齐，可根据背景文本区域的右端位置得到可用最大宽度（比如右端最大到0.8的话，可用宽度就是0.7，该数值可根据你实际背景的显示范围自行调整）。
2. 参考以下代码实现动态字号适配：

library(cowplot)
library(grid)

# 可自定义的配置参数
max_font_size <- 140 # 允许的最大字号
text_family <- "Oswald"
max_allowed_width <- 0.7 # 背景允许的文本最大宽度，单位为ggdraw的相对坐标
text_x <- 0.1
text_y <- 0.385
text_color <- "#9ad3b8"

# 用户输入文本
Gruppenname <- "ExampleName"

# 计算符合宽度限制的最优字号
get_optimal_size <- function(input_text, max_size, max_width, font_family) {
  # 生成临时文本grob计算宽度
  temp_text <- textGrob(input_text, gp = gpar(fontsize = max_size, fontfamily = font_family))
  text_width <- convertWidth(grobWidth(temp_text), "npc", valueOnly = TRUE)
  # 宽度未超限直接用最大字号，否则等比缩小
  if (text_width <= max_width) {
    return(max_size)
  }
  return(floor(max_size * (max_width / text_width)))
}

optimal_size <- get_optimal_size(Gruppenname, max_font_size, max_allowed_width, text_family)

# 最终绘图
Ausgabe <- ggdraw() +
  draw_text(
    Gruppenname,
    x = text_x,
    y = text_y,
    color = text_color,
    size = optimal_size,
    family = text_family,
    hjust = 0,
    vjust = 0
  )

提示：如果你的文本区域还有高度限制，可以在get_optimal_size函数中补充高度校验逻辑，计算文本高度和允许的最大高度对比，取宽高两个缩放比例的最小值即可完全适配背景区域。若Oswald字体未被R默认识别，可通过systemfonts包先注册字体，保证计算和渲染的字体一致，避免宽度误差。

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