In my Linear equation showing y= -200000+15x, I want more 3 digit after 15. Would you please see how can I can do that?

Thank You!

Codes

ggplot(BancroftLand, aes(SellDate, PricePerDU))+

geom_point(size=5, shape=16, color = 'green')+

geom_smooth(aes(color = "Linear Trend"), method = "lm", formula = y~poly(x,1), se = F) +

geom_smooth(aes(color = "3rd Order Trend"), method = "lm", formula = y~poly(x,3), se = F) +

theme_economist() +

coord_cartesian(ylim = c(0, 260000)) +

stat_regline_equation(label.y=255000, color = 'blue')+

stat_regline_equation( ## Fit polynomial regression line and add labels

aes(label = paste(..eq.label.., sep = "~~~~")),

formula = y~poly(x,3), se = F, color = 'red'

)

dput(head(BancroftLand))

structure(list(ted = c(1, 2, 3, 4, 5, 6), SellDate = structure(c(15856,

19023, 16493, 18039, 16874, 17281), class = "Date"), PricePerDU = c(52091.8367346939,

247126.436781609, 88570.7070707071, 77822.5806451613, 40104.1666666667,

54687.5), APricePerDU = c(106271.086734694, 252628.896781609,

132959.267070707, 98449.1206451613, 78636.7566666667, 86964.5

)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"