R: преобразование объекта xts или zoo во фрейм данных - PullRequest
Новая
       12

R: преобразование объекта xts или zoo во фрейм данных

5 голосов
/ 06 декабря 2010

Что представляет собой простой способ приведения данных временного ряда к фрейму данных в формате, в котором результирующие данные представляют собой сводку оригинала?

Это могут быть некоторые примеры данных, хранящихся в xts или zooобъект: 

t,                  V1
"2010-12-03 12:00", 10.0
"2010-11-04 12:00", 10.0
"2010-10-05 12:00", 10.0
"2010-09-06 12:00", 10.0
...and so on, monthly data for many years.

, и я хотел бы преобразовать его во фрейм данных, например: 

year, month, V1
2010, 12,    a descriptive statistic calculated of that month's data
2010, 11,    ...
2010, 10,    ...
2010, 9,     ...

Причина, по которой я спрашиваю это, заключается в том, что я хочу построить ежемесячные вычисленные итогиданных на том же участке.Я могу сделать это довольно легко для данных в последнем формате, но не нашел метод построения графика для формата временного ряда.

Например, я мог бы иметь данные о температуре за несколько лет, измеренные в дневном интервале, иЯ хотел бы построить кривые среднемесячных температур для каждого года на одном графике.Я не придумал, как это сделать, используя данные в формате xts или если это даже подходит для целей форматирования данных xts / zoo, которое, по-видимому, всегда несет информацию о году.

Ответы [ 2 ]

7 голосов
/ 06 декабря 2010

Пожалуйста, предоставьте образец данных для работы, и я постараюсь дать менее общий ответ.В основном вы можете использовать apply.monthly для вычисления сводной статистики по вашему объекту xts.Затем вы можете преобразовать индекс в yearmon и преобразовать объект xts в data.frame. 

x <- xts(rnorm(50), Sys.Date()+1:50)
mthlySumm <- apply.monthly(x, mean)
index(mthlySumm) <- as.yearmon(index(mthlySumm))
Data <- as.data.frame(mthlySumm)
0 голосов
/ 02 марта 2017

Вот решение, использующее пакет tidyquant, который включает функции as_xts() для приведения кадров данных к объектам xts и as_tibble() для приведения объектов xts к элементам tibbles ("аккуратным" фреймам данных).Воссоздание ваших данных: 

> data_xts
           V1
2010-09-06 10
2010-10-05 10
2010-11-04 10
2010-12-03 10

Используйте as_tibble() для преобразования в тиббл.preserve_row_names = TRUE добавляет столбец с именем "row.names" с индексом xts в качестве класса символов.A rename и mutate используются для очистки дат.Вывод представляет собой столбик с датами и значениями.

> data_df <- data_xts %>%
     as_tibble(preserve_row_names = TRUE) %>%
     rename(date = row.names) %>%
     mutate(date = as_date(date))
> data_df
# A tibble: 4 × 2
        date    V1
      <date> <dbl>
1 2010-09-06    10
2 2010-10-05    10
3 2010-11-04    10
4 2010-12-03    10

Вы можете пойти дальше и добавить другие поля, такие как день, месяц и год, используя функцию mutate. 

> data_df %>%
     mutate(day   = day(date),
            month = month(date),
            year  = year(date))
# A tibble: 4 × 5
        date    V1   day month  year
      <date> <dbl> <int> <dbl> <dbl>
1 2010-09-06    10     6     9  2010
2 2010-10-05    10     5    10  2010
3 2010-11-04    10     4    11  2010
4 2010-12-03    10     3    12  2010
...