已知cowplot::save_plot的base_height，自动设置stringr::str_wrap的width

已知cowplot::save_plot要使用的base_height（单位：英寸），希望自动为stringr::str_wrap分配合适的width值，使说明文本（如caption）适配绘图宽度。手动设置width=120无法适配，尝试通过str_wrap_width = my_base_height*SOME_VALUE实现自动化，但不知道如何提取该base_height下cowplot生成的绘图宽度。

解决思路 #

核心逻辑是将绘图的物理宽度（由base_height和宽高比计算得出）转换为str_wrap所需的字符数，关键步骤如下：

1. 计算绘图物理宽度：
   cowplot::save_plot默认使用黄金比例（base_aspect_ratio=1.618），因此绘图宽度 = base_height * base_aspect_ratio；若自定义了宽高比，替换为实际设置的aspect_ratio即可。

2. 字符数与物理宽度的转换：
   str_wrap的width是字符数，需根据文本字体大小确定每英寸可容纳的字符数。例如：

   • 12pt默认字体（如Arial）约为10字符/英寸
   • 16pt字体约为8字符/英寸
     可通过少量测试调整这个系数，确保文本刚好适配绘图宽度。

3. 自动化计算str_wrap的width：
   结合上述两个步骤，直接通过base_height推导str_wrap_width。

完整代码示例 #

library(ggplot2)
library(cowplot)
library(stringr)

# 配置参数
my_base_height <- 8
base_aspect_ratio <- 1.618  # cowplot默认宽高比，自定义时修改此处
font_size_caption <- 12     # 对应theme中plot.caption的字体大小
chars_per_inch <- 10        # 根据字体大小调整，12pt默认取10

# 计算绘图宽度与str_wrap宽度
plot_width <- my_base_height * base_aspect_ratio
str_wrap_width <- round(plot_width * chars_per_inch)

# 长文本示例
caption_text <- c("this is a very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very very long caption text")

# 构建绘图
p <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
  geom_point() +
  theme(
    axis.text = element_text(size = 12, face = "bold", colour = "black"),
    axis.title = element_text(size = 16, face = "bold", colour = "black"),
    plot.caption = element_text(size = font_size_caption)  # 明确caption字体大小
  ) + 
  labs(
    x = "Length", 
    y = "Width",
    caption = str_wrap(caption_text, width = str_wrap_width)
  )

# 保存绘图，确保宽高比与计算一致
save_plot(
  "figures/pic.png",
  p,
  base_height = my_base_height,
  base_aspect_ratio = base_aspect_ratio
)

补充说明 #

• 如果使用save_plot的width参数直接指定宽度，无需通过base_height计算，直接用width * chars_per_inch得到str_wrap_width即可。
• 若更换字体（如使用等宽字体），需重新测试chars_per_inch的数值，确保文本适配效果符合预期。

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