r语言ggplot拟合曲线上stat_poly_eq怎么换行

在ggplot中使用stat_poly_eq添加方程式标签时，可以使用“\n”进行换行。例如，可以将方程式标签分为两行，如下所示：

library(ggplot2)

# 创建数据框
df <- data.frame(x = 1:10, y = c(2, 4, 5, 7, 8, 9, 10, 11, 12, 13))

# 绘制散点图并添加拟合曲线和方程式标签
ggplot(df, aes(x, y)) +
  geom_point() +
  geom_smooth(method = "lm", se = FALSE) +
  stat_poly_eq(formula = y ~ x, eq.with.lhs = "italic(y)~`=`~",
               aes(label = paste(..eq.label.., sep = "\n")),
               parse = TRUE)

在上述代码中，使用“\n”将标签分为两行，然后将其传递给ggplot中的stat_poly_eq函数。最终，会在拟合曲线上方显示两行方程式标签。