R-将p值和tau加到图上

Question

我使用以下代码制作了一张带有黄土曲线的散点图。我对这些数据运行了MannKendall测试，并希望在图表上显示tau和p值。

ggplot(LITTLEC.S, aes(Date, TP)) + 
  geom_point(color="light sea green", size = 4, alpha = 1/2) + 
  ggtitle("Little Carnelian Lake Total Phosphorus") + 
  geom_smooth(method="loess") + 
  ylab("TP, mg/L") + theme_bw()

MannKendall(LITTLE.C$TP)