在时间序列中添加过滤器（平滑线）

Question

我创建了这个时间序列。你可以看到它有点混乱。

我使用了这段代码：

Stations$Code
Data[,1] = as.Date(Data[,1],format="%Y-%m-%d")
class(Data$Date)

ggplot(Data, aes(x = Date)) + 
  geom_line(aes(y = AT31204), colour="yellow") + 
  geom_line(aes(y = ES1498A), colour = "orange") + 
  geom_line(aes(y = FR15044), colour = "red") + 
  geom_line(aes(y = FR09003), colour = "purple") + 
  geom_line(aes(y = ES1358A), colour = "blue") + 
  geom_line(aes(y = DEBW076), colour = "green") + 
  geom_line(aes(y = FR15044), colour = "brown") + 
  guides(colour = guide_legend) +
  ylab(label="Ozon µg/m3") + 
  xlab("Time")

如何创建更平滑的线条（一条线用于一个电台）？我想的只是采取了几个月的平均值，但有没有其他方法可以在情节中自动完成？