在R中的回归图中添加方程式和R平方

Question

我想将方程式和R平方添加到图中。我的代码是： VAPModel <-lm（logVAP〜平均值，数据=总犯罪率）

VAPModel <-摘要（VAPModel）

公式<-logVAP〜平均值

ggplot（数据=总犯罪率，aes（x =平均值，y = logVAP））+ stat_smooth_func（geom =“ text”，method =“ lm”，hjust = 0，parse = TRUE）+ geom_smooth（method =“ lm “，se = FALSE）+ geom_point（） ggplot（data = Totalcrime，aes（x = Means，y = logVAP））+

geom_smooth（方法=“ lm”，se = FALSE，color =“ black”，公式=公式）+

stat_poly_eq（公式=公式，                eq.with.lhs =“斜体（h）〜=〜”，                eq.x.rhs =“〜斜体（z）”，                aes（label = ..eq.label ..），                parse = TRUE）+ geom_point（）

但是发生错误：找不到对象'logVAP'

如何添加方程式和R平方？感谢您的帮助