我需要帮助在 r 中使用 smooth.spline 进行绘图

Question

I am using spline.smooth in r and need some help. Here are my codes:

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)

First, I want to change the size of points on plot using column count. Second, is there a way to plot smooth spline in ggplot? Third, how can I format my x-axis for the date. I want to have a day and month in the x-axis. Thanks in advance everyone!

Answer 1

How about this:

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