R语言：移除表达式函数中的无用符号（线性模型方程场景）

我懂你现在的困扰——用这个自定义lm_eqn函数生成线性模型表达式后，输出里混着转义引号\"、奇怪的%.%这些无用符号，根本没法直接用对吧？别担心，给你两种实用的解决办法：

方法1：直接修改原函数（推荐） #

问题出在两个地方：一是用format处理系数会返回带引号的字符，二是%.%并不是LaTeX里的乘号符号。我们直接调整函数内部的逻辑，一步到位生成干净的表达式：

df <- data.frame(x = c(1:100))
df$y <- 2 + 3 * df$x + rnorm(100, sd = 40)

lm_eqn <- function(df){
  m <- lm(y ~ x, df)
  # 用sprintf格式化数值，避免生成带引号的字符串
  a_val <- sprintf("%.2f", coef(m)[1])
  b_val <- sprintf("%.2f", coef(m)[2])
  r2_val <- sprintf("%.3f", summary(m)$r.squared)
  
  # 替换为LaTeX标准的乘号\cdot，同时去掉多余引号问题
  eq <- substitute(italic(y) == a + b \cdot italic(x)*","~~italic(r)^2~"="~r2, 
                   list(a = a_val, b = b_val, r2 = r2_val))
  as.character(as.expression(eq))
}

# 测试输出
lm_eqn(df)

运行后你会得到类似这样的干净输出：

"italic(y) == 13.89 + 2.99 \\cdot italic(x) , ~~italic(r)^2 ~=~ 0.872"

方法2：事后清理输出字符串 #

如果不想改动原函数，也可以对已经生成的输出做字符串替换，快速移除无用符号：

# 先获取原函数的输出
raw_output <- lm_eqn(df)

# 移除转义引号，替换%.%为LaTeX乘号
clean_output <- gsub('"', '', raw_output)
clean_output <- gsub('%\\.%', '\\\\cdot', clean_output)

# 查看清理后的结果
clean_output

为什么会出现这些无用符号？ #

• format()函数返回的是带引号的字符向量，所以在substitute处理时会自动加上转义引号\"；
• %.%是dplyr包中的管道操作符，在这里原本是想表示乘法点，但直接写的话并不会被解析成LaTeX的乘号，反而会作为无用符号保留下来。

内容的提问来源于stack exchange，提问作者J.Con