请注意，请不要提供数据的屏幕截图，而是提供代码以使问题可重现。您可以永远提供dput()的输出作为问题的一部分，并将 Dataframe 的名称作为函数的参数。
我在下面提供的是黑客，因为公式不是从数据本身得出的，而只是遵循excel图中提供的公式。

exp_curve <- function(x) { 17353 * exp(0.4758 * x) }

mydf <- data.frame(cell = c(1.03 * 1000, 
                            8.73 * 1000, 
                            1.53 * 10000, 
                            4.98 * 100000, 
                            8.24 * 100000, 
                            4.61 * 1000000, 
                            5.52 * 1000000, 
                            5.99 * 1000000, 
                            7.59 * 1000000, 
                            7.28 * 1000000, 
                            5.9 * 1000000),
                   day = c(0, 4, 5, 6, 8, 11, 12, 14, 18, 19, 20))

trend_df <- data.frame(day = 0:14, cell = exp_curve(0:14))

form_df <- data.frame(day = 12, cell = 11000000, label = "y = 17353e<sup>0,4758x</sup><br>R<sup>2</sup> = 0,791")

library(ggplot2)
library(ggtext)

ggplot(data = trend_df, aes(x = day, y = cell)) + 
  stat_smooth(formula = y ~ exp_curve(x)) +
  geom_point(data = mydf, aes(x = day, y = cell)) +
  geom_textbox(data = form_df, aes(label = label), box.colour = alpha("black", 0), fill = alpha("white", 0)) +
  labs(title = "Growth curve of C1 culture", y = "Biomass", x = "Days") +
  scale_y_continuous(labels = scales::label_scientific())