Estou tentando traçar uma série temporal. Em um dataframe (y), tenho 56 itens em um vetor de coluna e um segundo dataframe (datas) com datas correspondentes. Estou tentando representar graficamente a série temporal como os valores de y no eixo y e as datas no eixo x. Eu tentei várias coisas usando o ggplt2 geom_freqpoly, mas não consigo descobrir. Estou aberto a outros métodos além do ggplot e posso vincular date e y em um dateframe também, se isso facilitar as coisa

Algum conselho?

library(ggplot2)

set.seed(123)

N<- 500
M<-56

x<- matrix( rnorm(N*M,mean=23,sd=3), N, M)
y <- colMeans(x,dim=1)

y <-as.data.frame(y)

Date <- seq(as.Date("2018-01-01"), as.Date("2018-02-25"), by="days")
Date <- as.POSIXct(Date, format = "%Y-%m-%d %H:%M")

a <- ggplot(date, aes(y))
a + geom_freqpoly()