How to change R value and P value to numeric

Currently, this is my output of my P-value and R-value in the graph.
image
How should I change it to r = 0.87, p = 0.1 in the graph ?

Below is my code:
output$correlationGraph <- renderPlotly({

ggscatter(data = datatable,x='Daily New Cases', y ='Daily Deaths', 
          color = "red",
          add = "reg.line",
          smooth = TRUE,
          conf.int = TRUE,
          cor.coef = TRUE,
          cor.method = "pearson",
          xlab = "Daily New Cases",
          ylab = "Daily Deaths",
          add.params = list(color = "blue",
                            fill = "lightgray")
)

})

Hope someone can help me. Thanks a lot