在R中的ggplot中绘制平滑线图

Question

我试图在其中绘制一条包含3行的图表。输出如下所示。

以下代码将重现它，

library(ggplot2)
library(lubridate)

Dates <- as.Date(seq(as.Date("2017/05/01"), as.Date("2017/07/31"), "day"))
Values <- runif(length(seq(as.Date("2017/05/01"), as.Date("2017/07/31"), "day")), min=-5, max=+5)

myData <- data.frame( Dates = Dates, Values = Values )

ggplot(data = myData, aes(x = day(myData$Dates), y = myData$Values)) + 
  geom_line(aes(color = as.factor(months(myData$Dates)))) + 
  geom_point(aes(color = as.factor(months(myData$Dates)))) 

我的目标是使线条平滑，但触摸所有点（例如，红线接触红点）

（我尝试使用样条曲线。但是，这没有给出任何预期的结果，x轴标签也存在问题。

我试过这个，plotting smooth line through all data points maybe polynomial interpolation?可以让它运作！）

有人可以点灯吗？非常感谢你。

贝斯茨