ggplot单图为不同分组添加含非线性形式的自定义方程标注方法

核心思路是跳过stat_regline_equation的自动拟合与标注逻辑，直接基于你提前整理好的方程数据框添加自定义文本标注层，该方法对线性、非线性方程无格式限制，实现步骤如下：

• 第一步：统一两个数据框的分组列名
  你现有方程表的分组列名为feed_name，和绘图数据的group_name不匹配，先重命名对齐，方便后续关联坐标和方程：

  # 假设你的方程数据框命名为eq_df
  names(eq_df)[names(eq_df) == "feed_name"] <- "group_name"
  

• 第二步：计算每个分组的标注放置坐标
  常规排版可以把方程放在对应分组散点的右上角，按分组取x、y的最大值作为基准位置，留少量边距避免遮挡散点：

  library(dplyr)
  label_data <- data %>%
    group_by(group_name) %>%
    summarise(
      x_pos = max(x, na.rm = TRUE) * 0.95,
      y_pos = max(y, na.rm = TRUE) * 1.03
    ) %>%
    left_join(eq_df, by = "group_name")
  

• 第三步：添加标注层到现有ggplot对象
  如果只需要纯文本展示方程，直接用geom_text即可，标注颜色会自动和对应分组的散点颜色映射保持一致：

  grp +
    geom_text(
      data = label_data,
      aes(x = x_pos, y = y_pos, label = equation),
      hjust = 1, # 文字右对齐，适配右上角排版
      show.legend = FALSE # 避免标注项冗余出现在图例中
    )
  

优化技巧 #

• 如果需要把方程渲染为标准学术格式的数学公式（而非普通字符串），可以把方程表的equation列替换为R的plotmath表达式，示例如下：

  eq_df <- data.frame(
    group_name = c("a","b","c","d","e"),
    equation = c(
      expression(y == 0.02*x - 0.74),
      expression(y == 0.67*x - 0.53),
      expression(y == 0.1*exp(x) + 1),
      expression(y == 10*log(x)),
      expression(y == 0.1*x^2 + 3)
    )
  )
  

  之后在geom_text中添加参数parse = TRUE，即可自动渲染为规范的数学公式样式，自动处理乘号、上标、函数符号的排版。
• 如果分组散点重叠度高，手动计算的坐标容易出现标注遮挡，可以用ggrepel包的geom_text_repel替换geom_text，函数会自动调整标注位置，避免文字与散点、其他标注重叠，无需反复调试坐标：

  library(ggrepel)
  grp +
    geom_text_repel(
      data = label_data,
      aes(x = x_pos, y = y_pos, label = equation),
      parse = TRUE,
      show.legend = FALSE
    )
  

内容的提问来源于stack exchange，提问作者S. Jeon