R语言如何结合expression与atop实现多行文本排版及换行

问题原因 #

expression调用的是R的plotmath排版体系，不识别\n换行符，直接在斜体文本里加\n不会触发换行。atop原生仅支持上下2行排版，要实现更多行拆分需要嵌套调用atop。

实现方案 #

方案1：手动嵌套atop（适合固定短文本） #

atop接收两个参数分别作为上下两行内容，需要更多行时多层嵌套即可，对应需求代码如下：

library(Gmisc)
box <- boxGrob(
  expr(
    atop(
      # 第一行：加粗标题
      bold("1. My First Step"),
      # 嵌套第二层atop，实现斜体内容的两行排版
      atop(
        italic("This is a very long text that needs"),
        italic("a line break")
      )
    )
  )
)
plot(box)

提示：嵌套atop生成的内层文本会自动继承外层对应位置的字体样式，可通过给atop传第三个参数调整行间距。

方案2：自动拆行生成表达式（适合动态长文本） #

如果文本长度不固定，手动拆行效率低，可以先通过strwrap按设定宽度自动拆句，再递归生成嵌套atop表达式，代码如下：

library(Gmisc)
library(rlang)
# 待排版长文本
long_content <- "This is a very long text that needs a line break"
# 按指定宽度自动拆分文本为行向量
split_lines <- strwrap(long_content, width = 30)
# 递归生成嵌套atop的表达式结构
build_atop <- function(lines, text_style = italic) {
  if (length(lines) == 1) return(text_style(lines[1]))
  atop(build_atop(lines[-length(lines)], text_style), text_style(lines[length(lines)]))
}
# 拼接最终排版表达式
final_plot_expr <- expr(
  atop(
    bold("1. My First Step"),
    !!build_atop(split_lines)
  )
)
# 生成grob对象
box <- boxGrob(final_plot_expr)
plot(box)

注意：所有基于plotmath的表达式场景（包括基础绘图的text/title/mtext、Gmisc的boxGrob等），都不能直接在表达式字符串内用\n换行，必须通过嵌套atop实现多行效果，\n仅对非表达式的普通字符串文本生效。

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