我需要幫助在 r 中使用 smooth.spline 進行繪圖

Question

我在 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)

首先，我想使用列數更改 plot 上點的大小。 其次，有沒有辦法在ggplot中讓plot平滑樣條？ 第三，如何格式化日期的 x 軸。 我想在 x 軸上有一天和一個月。 提前謝謝大家！

Answer 1

這個怎么樣：

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