我需要帮助在r中使用smooth.spline绘制

我正在使用r中的spline.smooth，需要一些帮助。这是我的密码：

my_df_1 <- data.frame(date = seq(as.Date("2020/1/15"), by = "day", length.out = 100),
                      rate = runif(100, min=0, max=0.7),
                      count=sample(2:50, 100, replace = TRUE))

fit <- smooth.spline(my_df_1$date, my_df_1$rate)
plot(my_df_1$date, my_df_1$rate)
lines(fit)

my_df_1这个怎么样：

my_df_1 %>% 
  ggplot(aes(x = date, y = rate)) +
  geom_smooth() +
  geom_point(aes(size = count)) +
  scale_x_date(date_labels = "%d-%B")

我可以调整平滑度。我不确定如何使用geom_smooth（）可以使用一系列选项来控制平滑的工作方式，但您可能希望从使用span:
geom_smooth（span=.1）
开始。