How can I fit and predict my data in R and how can I add 95% confidence interval to this data?

Question

I am new in R and I am struggling with how to fit my data.

As seen in this picture it doesnt fit all the data

Cdata %>%ggplot(aes(x=Timepoint,y=CFU)) +geo