R绘图中科学计数法e后多‘1’？多余字符成因及解决方法

成因分析 #

出现额外字符1的核心原因通常是以下两种：

• paste函数的sep参数误用：如果将sep设置为数值1而非字符串分隔符（如" "），R会自动把1转为字符串作为元素间的分隔符，导致文本中出现多余的1。例如paste("A", "B", sep=1)会生成"A1B"。
• 传入mtext的是多元素向量：若拼接后的文本是长度大于1的向量（比如误将1作为向量元素加入），mtext会逐个打印向量中的所有元素，从而出现额外的1。

少数情况下，若从线性模型提取的数值带有特殊属性（如维度标记），部分格式化函数可能会混入冗余内容，但这种情况极少只出现1。

解决方法 #

1. 修正paste的分隔符参数 #

检查paste/paste0的sep参数，确保使用字符串类型的分隔符。示例正确代码：

# 拟合模型
model <- lm(weight ~ Time, data = ChickWeight)
# 正确拼接回归方程（用空格作为分隔符）
eq_str <- paste("Weight =", round(coef(model)[1], 2), "+", round(coef(model)[2], 2), "* Time")
# 绘图并添加回归线
plot(weight ~ Time, data = ChickWeight, main = "Chick Weight vs Time")
abline(model, col = "red", lwd = 2)
# 添加回归方程到图中
mtext(eq_str, side = 3, line = -2, col = "blue")

2. 确保传入mtext的是单元素文本 #

验证传入mtext的文本长度，确保其为1：

• 用length(eq_str)检查，若结果大于1，用paste将所有元素合并为单个字符串。

3. 正确格式化残差均值 #

格式化残差均值时，直接计算单个数值并使用sprintf规范格式，避免冗余内容：

res_mean <- mean(residuals(model))
# 科学计数法格式化
res_mean_str <- sprintf("Residual Mean: %.2e", res_mean)
# 或保留17位小数
res_mean_str <- sprintf("Residual Mean: %.17f", res_mean)
# 添加到图的右侧
mtext(res_mean_str, side = 4, line = -2, col = "darkgreen")

进阶：用数学表达式替代字符串拼接 #

如果需要更规范的公式格式，使用bquote动态插入系数，完全避免字符串拼接问题：

model <- lm(weight ~ Time, data = ChickWeight)
coef_int <- round(coef(model)[1], 2)
coef_time <- round(coef(model)[2], 2)
# 构建数学表达式
eq_expr <- bquote(Weight == .(coef_int) + .(coef_time) * Time)
# 绘图
plot(weight ~ Time, data = ChickWeight, main = "Chick Weight vs Time")
abline(model, col = "red", lwd = 2)
# 添加表达式到图中
text(x = max(ChickWeight$Time)-5, y = max(ChickWeight$weight)-50, expr = eq_expr, col = "blue")

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