Вопрос:

создание последовательности дат для каждой группы в r

r date dplyr seq

3596 просмотра

1 ответ

310 Репутация автора

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

      ID    created_at
MUM-0001    2014-04-16
MUM-0002    2014-01-14
MUM-0003    2014-04-17
MUM-0004    2014-04-12
MUM-0005    2014-04-18
MUM-0006    2014-04-17

Я пытаюсь ввести новый столбец, который будет содержать все даты между датой начала и определенным последним днем ​​(скажем, 12 июля 2015 года). Я использовал функцию seq, dplyrно получил ошибку.

data1 <- data1 %>%
         arrange(ID) %>%
         group_by(ID) %>%
         mutate(date = seq(as.Date(created_at), as.Date('2015-07-12'), by= 1))

ошибка, которую я получаю:

Ошибка: несовместимый размер (453), ожидаемый 1 (размер группы) или 1

Можете ли вы предложить лучший способ выполнить эту задачу в R?

Автор: Dheeraj Singh Источник Размещён: 07.08.2015 08:49

Ответы (1)


7 плюса

482988 Репутация автора

Решение

Вы можете использовать, data.tableчтобы получить sequenceиз Dates из «create_at» в «2015-07-12», сгруппированные по столбцу «ID».

 library(data.table)
 setDT(df1)[, list(date=seq(created_at, as.Date('2015-07-12'), by='1 day')) , ID]

Если вам нужна опция dplyr, используйтеdo

 library(dplyr)
 df1 %>% 
   group_by(ID) %>% 
   do( data.frame(., Date= seq(.$created_at,
                            as.Date('2015-07-12'), by = '1 day')))

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

df1 %>%
    group_by(rn=row_number()) %>%
     do(data.frame(ID= .$ID, Date= seq(.$created_at,
          as.Date('2015-07-12'), by = '1 day'), stringsAsFactors=FALSE))

Обновить

На основе @ commment Франка, новая идиома tidyverseIS

library(tidyverse)
df1 %>%
  group_by(ID) %>% 
  mutate(d = list(seq(created_at, as.Date('2015-07-12'), by='1 day')), created_at = NULL) %>%
  unnest()

На случай, если data.table

setDT(df1)[, list(date=seq(created_at, 
             as.Date('2015-07-12'), by = '1 day')), by = 1:nrow(df1)] 

данные

df1 <- structure(list(ID = c("MUM-0001", "MUM-0002", "MUM-0003",
 "MUM-0004", 
 "MUM-0005", "MUM-0006"), created_at = structure(c(16176, 16084, 
16177, 16172, 16178, 16177), class = "Date")), .Names = c("ID", 
"created_at"), row.names = c(NA, -6L), class = "data.frame")
Автор: akrun Размещён: 07.08.2015 08:51
Вопросы из категории :
32x32