Добавить скользящий средний график в график временных рядов в R - программирование
Подтвердить что ты не робот

Добавить скользящий средний график в график временных рядов в R

У меня есть график временных рядов в пакете ggplot2, и я выполнил Moving average, и я хотел бы добавить результат скользящего среднего к графику временных рядов.

Пример набора данных (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

Прикладной код для представления временных рядов:

  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"))

Пример представления временных рядов Sample of time series presentation

Пример скользящего среднего enter image description here Пример ожидаемых результатов

Задача состоит в том, что данные временных рядов ov = взяты из набора данных, который включает временные метки и температуру, но данные Moving Average включают только средний столбец, а не временные метки, и установка этих двух может привести к несогласованности.

Expected Results

4b9b3361

ОТВЕТЫ

Ответ 1

Одним из решений является использование функции rollmean() из библиотеки zoo для вычисления скользящей средней.

В вашем вопросе есть некоторая путаница с именами фреймов данных (p31 и p29), поэтому я буду использовать p 29.

p29$dt=strptime(p29$dt, "%Y-%m-%d %H:%M:%S")

library(zoo)
#Make zoo object of data
temp.zoo<-zoo(p29$ambtemp,p29$dt)

#Calculate moving average with window 3 and make first and last value as NA (to ensure identical length of vectors)
m.av<-rollmean(temp.zoo, 3,fill = list(NA, NULL, NA))

#Add calculated moving averages to existing data frame
p29$amb.av=coredata(m.av)

#Add additional line for moving average in red
ggplot(p29, aes(dt, ambtemp)) + geom_line() + 
  geom_line(aes(dt,amb.av),color="red") + 
  scale_x_datetime(breaks = date_breaks("5 min"),labels=date_format("%H:%M")) +
  xlab("Time 00.00 ~ 24:00 (2007-09-29)") + ylab("Tempreture")+
  ggtitle("Node 29")

Если в легенде должны отображаться цвета линий, тогда необходимо изменить aes() в ggplot() и geom_line() и добавить scale_colour_manual().

  ggplot(p29, aes(dt)) + geom_line(aes(y=ambtemp,colour="real")) +
   geom_line(aes(y=amb.av,colour="moving"))+
   scale_x_datetime(breaks = date_breaks("5 min"),labels=date_format("%H:%M")) + 
   xlab("Time 00.00 ~ 24:00 (2007-09-29)") + ylab("Tempreture")+
   scale_colour_manual("Lines", values=c("real"="black", "moving"="red")) +    
   ggtitle("Node 29")