I have made a scatter plot with a Loess curve using the following code. I ran the MannKendall test on this data and want to display the tau and p-value on the graph.
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)
 
    