Tengo un gráfico de series de tiempo en el paquete ggplot2 y he realizado la media móvil y me gustaría agregar el resultado del promedio móvil a la gráfica de series de tiempo.

Muestra de conjunto de datos (p31):

ambtemp dt
-1.14 2007-09-29 00:01:57
-1.12 2007-09-29 00:03:57
-1.33 2007-09-29 00:05:57
-1.44 2007-09-29 00:07:57
-1.54 2007-09-29 00:09:57
-1.29 2007-09-29 00:11:57

Código aplicado para la presentación de series de tiempo:

  Require(ggplot2)
  library(scales)
  p29$dt=strptime(p31$dt, "%Y-%m-%d %H:%M:%S")
  ggplot(p29, aes(dt, ambtemp)) + geom_line() +
     scale_x_datetime(breaks = date_breaks("2 hour"),labels=date_format("%H:%M")) + xlab("Time 00.00 ~ 24:00 (2007-09-29)") + ylab("Tempreture")+
     opts(title = ("Node 29"))

Muestra de presentación de series de tiempo.

Muestra de parcela de media móvil Muestra de resultados esperados.

El desafío es que los datos de las series de tiempo se obtienen de un conjunto de datos que incluye marcas de tiempo y temperatura, pero los datos de promedios móviles incluyen solo la columna promedio y no las marcas de tiempo, y el ajuste de estos dos puede causar inconsistencias.