Преобразование кадра данных во временные ряды

Есть ли способ преобразовать фрейм данных во временные ряды (так же, как mdeaths)

df1 <- structure(list(Year = c(2021, 2022, 2020, 2021, 2022, 2020, 2021, 
2020, 2021, 2020, 2021, 2020, 2021, 2020, 2021, 2020, 2021, 2020, 
2021, 2020, 2021, 2020, 2021, 2020, 2021), mon_day = c("January", 
"January", "February", "February", "February", "March", "March", 
"April", "April", "May", "May", "June", "June", "July", "July", 
"August", "August", "September", "September", "October", "October", 
"November", "November", "December", "December"), `R` = c(-427, 
-389, 18, -357, -230, -383, -259, -1233, -232, -875, -190, -489, 
-299, -448, -577, -662, -762, -552, -621, -488, -409, -290, -76, 
-155, -10)), row.names = c(NA, -25L), groups = structure(list(
    Year = c(2020, 2021, 2022), .rows = structure(list(c(3L, 
    6L, 8L, 10L, 12L, 14L, 16L, 18L, 20L, 22L, 24L), c(1L, 4L, 
    7L, 9L, 11L, 13L, 15L, 17L, 19L, 21L, 23L, 25L), c(2L, 5L
    )), ptype = integer(0), class = c("vctrs_list_of", "vctrs_vctr", 
    "list"))), row.names = c(NA, -3L), class = c("tbl_df", "tbl", 
"data.frame"), .drop = TRUE), class = c("grouped_df", "tbl_df", 
"tbl", "data.frame"))

ожидаемый результат

df1_ts  
       Jan    Feb   Mar
2020   --     --    --
2021   --     --    --
2022   --     --    --

Это должны быть данные таймсерии?

r time-series

14.05.2022 22:00

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 3

Попробуй это...

library(tidyr)
library(dplyr)

df1 %>%
      mutate(mon_day = factor(mon_day,
                              levels =c("January", "February",  "March",  
                              "April", "May",  "June",  "July", 
                              "August",  "September", "October", 
                              "November", "December")))%>%
      spread(mon_day, R) %>%
      replace(is.na(.), 0)

Неа. Но все же его класс возвращается как [1] "tbl_df" "tbl" "data.frame". Где class(mdeaths) есть ts

— 14.05.2022 22:19

14.05.2022 22:14

Вы можете попробовать этот подход, используя dplyr и tidyr. Преобразование в широкий формат и сортировка по году. Затем конвертируйте в time_series.

df_ts = df1 %>% 
  pivot_wider(Year,names_from=mon_day,values_from=R) %>%
  arrange(Year)
df_ts = ts(df_wide[,-1], start=df_wide[1,1], end=df_wide[nrow(df_wide),1])

Выход:

Time Series:
Start = 2020 
End = 2022 
Frequency = 1 
     January February March April  May June July August September October November December
2020      NA       18  -383 -1233 -875 -489 -448   -662      -552    -488     -290     -155
2021    -427     -357  -259  -232 -190 -299 -577   -762      -621    -409      -76      -10
2022    -389     -230    NA    NA   NA   NA   NA     NA        NA      NA       NA       NA

Класс:

class(df_ts)
[1] "mts"    "ts"     "matrix"

14.05.2022 22:24

Ответ принят как подходящий

В base R мы можем сделать

dates <- with(df1, as.Date(paste(Year, mon_day, 1), "%Y %B %d"))
df2 <- df1[order(dates),]
ts1 <- ts(df2$R, start = c(df2$Year[1], match(df2$mon_day[1], month.name)), 
      frequency = 12)
ts1
       Jan   Feb   Mar   Apr   May   Jun   Jul   Aug   Sep   Oct   Nov   Dec
2020          18  -383 -1233  -875  -489  -448  -662  -552  -488  -290  -155
2021  -427  -357  -259  -232  -190  -299  -577  -762  -621  -409   -76   -10
2022  -389  -230

> str(ts1)
 Time-Series [1:25] from 2020 to 2022: 18 -383 -1233 -875 -489 ...

14.05.2022 22:29

Другие вопросы по теме

Прогнозирование временных рядов с ежедневными значениями

Как преобразовать даты событий в продольные данные в R?

Замените NA средним значением для определенного дня во временном ряду R

Прогнозирование LSTM с одной категориальной функцией

Ошибка? Использование преобразования данных с датой/временем

Построение диапазонов дат для каждого идентификатора и маркировка конкретных дат с использованием ggplot

Как прогнозировать модели регрессии временных рядов с распределенным запаздыванием (используя dLagM)?

Как предварительно обработать данные временных рядов (даты) в два объекта?

Заштрихованная область в ggplot2 с несколькими временными рядами на одном графике

Включение внешнего регрессора в иерархический/сгруппированный временной ряд

Преобразование кадра данных во временные ряды

Ответы 3

Другие вопросы по теме

Похожие вопросы