如何在R脚本中自定义图片添加文本的行间距？

你的脚本当前使用base R的text()函数输出多行文本，该函数的行间距是固定的，无法直接调整。要实现自定义行间距，最直接的方法是将多行文本拆分为单独行，逐行计算位置后绘制，这样就能精确控制每行的垂直间距。

具体实现步骤 #

• 新增line_spacing参数（控制行间距，以字体高度为基准的倍数，比如1.5表示1.5倍行高）
• 将带换行的文本拆分为单独的行
• 计算每行的垂直位置，基于行间距参数调整
• 逐行调用text()绘制文本

修改后的关键代码 #

在process_image函数中，替换原来的text()调用部分，改为以下代码：

# 新增行间距参数（可放到函数参数里，默认1.2）
line_spacing <- 1.2  # 可按需调整：1.0为默认行高，大于1增大间距，小于1减小间距

# 拆分文本为单独行
quote_lines <- strsplit(quote, "\n")[[1]]
num_lines <- length(quote_lines)

# 计算单行文本文字高度（包含自定义行间距）
line_height <- strheight("A", cex = quote_size) * line_spacing

# 计算第一行的y坐标（确保整体垂直居中于遮罩区域）
first_line_y <- total_height - 0.02 - (num_lines - 1) * line_height / 2

# 逐行绘制文本
for (i in seq_along(quote_lines)) {
  current_y <- first_line_y + (i - 1) * line_height
  text(
    x = 0.5, 
    y = current_y, 
    labels = quote_lines[i], 
    col = text_color,  # 复用之前计算的对比色，替代硬写的white
    cex = quote_size * width / 466 * 1.1,  # 统一字体缩放逻辑，避免变形
    adj = c(0.5, 0.5),  # 垂直居中对齐，优化排版
    family = "Copperplate Gothic Std 29 BC"
  )
}

优化扩展 #

• 将line_spacing加入函数参数，调用时灵活调整：

  process_image(
    current_image,
    changed_quote,
    overlay_height = 0.5,
    overlay_opacity = 0.2,
    quote_size = 2.2,
    line_spacing = 1.4,  # 自定义行间距
    quote_y_position = 0.45,
    url_size = 2.4,
    url_x_position = 0.98,
    url_y_position = 0.05
  )
  

• 调整函数定义，把line_spacing作为默认参数：

  process_image <- function(image_file, quote,
                            overlay_height = 0.3,
                            overlay_opacity = 0.8,
                            quote_size = 1.2,
                            line_spacing = 1.2,  # 新增行间距参数
                            quote_y_position = NULL,
                            url_size = 0.8,
                            url_x_position = 0.95,
                            url_y_position = 0.02) {
    # 函数原有代码...
    # 插入逐行绘制文本的代码
  }
  

通过这种方式，你可以完全自定义文本的行间距，精准控制每行之间的垂直距离。

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