R中plotmath的bgroup在ggplot2及基础绘图渲染异常求助

• 在R 4.2.2搭配ggplot2 3.4.0的环境中，plotmath的bgroup()函数无法正常渲染预期的大号括号，而同属plotmath的group()函数渲染正常。
• 复现代码：
  ggplot2场景：

  library(ggplot2)
  ggplot(mtcars, aes(wt, mpg)) +
    annotate("text", x=2.5, y=25, label="bgroup('(',atop(x,y),')')", parse=TRUE) +
    annotate("text", x=3.5, y=25, label="group('(',atop(x,y),')')", parse=TRUE)
  

  基础绘图场景：

  plot(0,xlim=c(0,1),ylim=c(0,1))
  text(0.5,0.5,expression(bgroup('(',atop(x,y),')')))
  

• 版本差异：该问题仅出现在R 4.2.x及以上版本，R 4.0.5、4.1.0等旧版本无此异常。
• 输出场景差异：RStudio画布、RGui窗口、PNG位图输出均会出现该问题，但PDF矢量输出时bgroup()渲染正常。

这并非字体缺失导致，核心原因是R 4.2.x版本默认启用的cairo图形设备对plotmath的bgroup()渲染逻辑发生了变更。bgroup()需要设备支持绘制可变高度的延伸括号，而cairo位图设备（包括屏幕显示设备）在R 4.2+中无法正确识别并处理这类符号的延伸规则，仅PDF这类矢量设备能完整解析bgroup()的渲染指令。

• 切换图形设备：若需要位图输出或屏幕正常显示，可临时切换到非cairo的传统设备，比如Windows系统用windows()，Mac系统用quartz()，Linux系统用X11()，调用设备后再执行绘图代码即可。
• 替代语法：用group()配合字号调整模拟bgroup()的大号括号效果，示例代码：

  ggplot(mtcars, aes(wt, mpg)) +
    annotate("text", x=2.5, y=25, label="group('(',atop(x,y),')')", parse=TRUE, size=6)
  

• 升级R版本：R 4.3.x及后续稳定版本已修复cairo设备对bgroup()的渲染问题，升级到最新版R可彻底解决该异常。

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