set.seed(12345)
x <- data.frame(time=1:50, dat=rnorm(50))

y1 <- rnorm(500)
y2 <- rnorm(500, sd=5)
y <- data.frame(time=as.factor(c(rep(51,500),rep(52,500))), dat=c(y1,y2))

ggplot(x, aes(x=time, y=dat)) +
  geom_line() +

ggplot(y, aes(x=time, y=dat)) +
  geom_violin()