使用R的ggplot2根据条件为多元线性回归添加方程，p和r2值？

Question

我创建了一个示例数据集。

example.label <- c("A","A","A","A","A","B","B","B","B","B")
example.value <- c(5, 4, 4, 5, 3, 8, 9, 11, 10, 9)
example.age <- c(30, 40, 50, 60, 70, 30, 40, 50, 60, 70)
example.data <- data.frame(example.label, example.value,example.age)

看起来像这样......

   example.label example.value example.age
1              A             5          30
2              A             4          40
3              A             4          50
4              A             5          60
5              A             3          70
6              B             8          30
7              B             9          40
8              B            11          50
9              B            10          60
10             B             9          70

然后我使用ggplot2包绘制它，并根据example.label为两个不同的群体添加回归线...

ggplot(example.data, aes(x=example.age,y=example.value,color=example.label)) +
  geom_point() +
  geom_smooth(method = lm,fill=NA)

图表看起来像这样......

我当时想要做的是让图表显示每个单独行的等式，p值和r2。我怎么能做到这一点？

我希望以前没有问过这个问题。感谢。