如何在R的bquote()中输出±与β符号并正确导出为PDF

我来帮你搞定这个问题！要让bquote()既能输出β希腊字母，又能正确显示±符号，同时保证PDF导出时符号不失效，核心是用R的plotmath语法——这是专门用于绘图中数学符号的语法，能生成矢量格式的符号，完美适配PDF导出。

修改后的完整代码 #

plot(NULL,xlim=c(0,10),ylim=c(0,10),xlab=NA,ylab=NA,xaxs="i",yaxs="i")
c <- "name"
p <- .004
n <- 969
b <- 1.23
s <- 0.45

# 处理p值的动态表达式（和你原来的逻辑一致）
p_expr <- ifelse(p == 0, bquote(p < .001), bquote(p == .(p)))

# 用bquote构建包含特殊符号的多行标签
tmp_expr <- bquote(atop(
  .(c) ~ "(n=" ~ .(n) ~ ")",  # 第一行：名称+样本量
  beta ~ "=" ~ .(b) ~ "%+-% " ~ .(s),  # 第二行：β符号+±
  .(p_expr)  # 第三行：p值
))

# 绘制文本
text(9.5,9.5,labels=tmp_expr,adj=c(1,1),cex=.75)

关键知识点解释 #

• β符号：在plotmath语法里，直接写beta就会被解析为希腊字母β，导出PDF时是矢量符号，不会出现乱码或无法显示的问题。
• ±符号：plotmath里专门用%+-%表示±运算符，普通的±文本字符在plotmath表达式里不会被正确识别，必须用这个专用语法。
• 多行文本：用atop()替代原来的\n换行，能让多行文本在绘图时自动上下对齐，比普通文本换行更规范。
• 动态变量嵌入：bquote的.(变量名)语法可以把你的动态变量（比如b、s、n）无缝插入到plotmath表达式中，既保留符号的正确显示，又能动态替换数值。

这样修改后，不管是在R绘图窗口还是导出为PDF，β和±符号都能正常显示，同时完全保留你原来的逻辑（比如p值为0时显示p < .001）。

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