然后把得到的截距和系数打印成完整的公式作为图的标题

在R中，如果你想要在图的标题中展示完整的线性回归公式，包括截距（常数项）和斜率，你可以使用`coef()`函数获取模型系数，然后将其插入到公式字符串中。假设`linear_model`就是之前创建的线性回归模型，可以这样做：

# 获取模型的截距和斜率
intercept <- round(coef(linear_model)[1], 2) # 截距通常是第一个元素
slope <- round(coef(linear_model)[2], 2)      # 斜率是第二个元素

# 构造公式字符串
formulated_equation <- paste("mpg =", intercept, "+", slope, "* hp")

# 更新图标题
p + ggtitle(paste("线性回归公式:", formulated_equation))

这段代码首先取出了截距和斜率的小数点后两位，然后拼接成了一个字符串，形式为`"mpg = intercept + slope * hp"`。最后，我们将这个新的公式字符串设置为图形的标题。

请注意，在实际操作中，你需要确保`coef()`函数的结果和你的数据集对应，如果模型中有其他变量，它们也应包含在内。