设置OutDec为逗号时，ggplot+stat_cor出现解析错误的求助

算力阿峰

2026-8-12

问题

通过options(OutDec=",")将R的输出小数分隔符设为逗号后，在ggplot2中调用ggpubr包的stat_cor()添加Pearson相关性结果时，触发解析错误：

Error in parse(text = text[[i]]) : <text>:1:16: unexpected ','
1: italic(R)~`=`~0,
                  ^

已知细节：

仅绘制散点图时，轴标签的小数显示正常（逗号分隔）
给stat_cor()传入decimal.mark = ","参数无效
问题本质是ggplot2的plotmath表达式在转字符串解析时，不支持逗号作为小数分隔符

需求：无需手动计算并标注相关性结果的直接修复方案。

解决方案

方案1：临时切换小数分隔符

利用代码块临时切换全局OutDec为点，让stat_cor()生成符合plotmath语法的表达式，之后恢复原设置，不影响轴标签的逗号显示：

library(ggplot2)
library(ggpubr)

# 示例数据
set.seed(123)
df <- data.frame(x = rnorm(50), y = rnorm(50))

# 全局设置逗号为小数分隔符
options(OutDec = ",")

# 绘制图形
p <- ggplot(df, aes(x, y)) +
  geom_point() +
  {
    # 临时切换小数分隔符为点
    old_outdec <- getOption("OutDec")
    options(OutDec = ".")
    cor_layer <- stat_cor(method = "pearson")
    # 恢复原设置
    options(OutDec = old_outdec)
    cor_layer
  }

print(p)

方案2：自定义stat_cor函数强制使用点分隔小数

重写stat_cor()的调用逻辑，强制传入decimal.mark = "."参数，覆盖全局设置的影响：

# 自定义修复后的stat_cor函数
stat_cor_fixed <- function(...) {
  args <- list(...)
  # 强制指定小数分隔符为点，适配plotmath语法
  args$format_args <- c(args$format_args, list(decimal.mark = "."))
  do.call(ggpubr::stat_cor, args)
}

# 使用自定义函数绘图
ggplot(df, aes(x, y)) +
  geom_point() +
  stat_cor_fixed(method = "pearson")