Фасетные временные ряды со средним профилем в ggplot2

Используя следующие смоделированные временные ряды:

n=70
m1 = matrix(rnorm(n), ncol=7)
m2 = matrix(rnorm(n, 0,4), ncol=7)
d = data.frame(rbind(m1,m2), cl=rep(c(1,2), each=5))

(первые 7 столбцов представляют момент времени, последний столбец — класс)

Можно ли построить многогранный временной ряд, включающий среднюю кривую на каждом графике, используя ggplot2?

Результаты должны выглядеть примерно так: