我需要帮助在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)

首先，我想使用列计数来更改绘图上的点的大小。其次，有没有一种方法可以在ggplot中绘制平滑样条曲线？第三，如何设置日期的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")