Добавить и мутировать строки по заданному правилу

Andrey Goloborodko спросил: 10 мая 2018 в 04:13 в: r

У меня есть набор данных, который содержит идентификаторы и начальные даты. Я пытаюсь сделать набор данных с идентификаторами и датами от начальной даты до сегодняшнего дня.

Мне удалось сделать это с помощью циклов, но он работает очень медленно. Есть ли R-образное решение без циклов?

Это мой код:

library('lubridate')names <- c('Andrey', 'Sergey', 'Voldemar')
starts <- c(dmy(01062018), dmy(29052018), dmy(27052018))
df <- data.frame(names, starts, stringsAsFactors = FALSE)
df$day_number <- as.integer(0)
df$cur_day <- df$starts

Итак, мы получили начальную таблицу, которая выглядит так:

     names     starts day_number    cur_day
1   Andrey 2018-06-01          0 2018-06-01
2   Sergey 2018-05-29          0 2018-05-29
3 Voldemar 2018-05-27          0 2018-05-27

Теперь я добавляю новые даты:

    for (row in 1:nrow(df)){
      start <- df$starts[row]
      lifetime <- interval(start,dmy(03062018))
      lifetime_days <- (int_length(lifetime) / 60 / 60 / 24) - 1
      if (lifetime_days <1) {next}
      df_temp <- data.frame(
        names = vector(length=lifetime_days),
        starts = vector(length=lifetime_days),
        day_number = vector(length=lifetime_days),
        cur_day = vector(length=lifetime_days)
      )
      df_temp$names <- as.character(df_temp$names)
      df_temp$starts <- ymd(df_temp$starts)
      df_temp$day_number <- as.integer(df_temp$day_number)
      df_temp$cur_day <- ymd(df_temp$cur_day)
      for (d in 1:lifetime_days){
        cur_day <- start + days(d)
        df_temp$names[d] <- df$names[row]
        df_temp$starts[d] <- start
        df_temp$day_number[d] <- d
        df_temp$cur_day [d] <- cur_day
      }      df <- rbind(df, df_temp)
    }    df <- df[order(df$names, df$day_number),]    dfnames     starts day_number    cur_day
1    Andrey 2018-06-01          0 2018-06-01
4    Andrey 2018-06-01          1 2018-06-02
2    Sergey 2018-05-29          0 2018-05-29
5    Sergey 2018-05-29          1 2018-05-30
6    Sergey 2018-05-29          2 2018-05-31
7    Sergey 2018-05-29          3 2018-06-01
8    Sergey 2018-05-29          4 2018-06-02
3  Voldemar 2018-05-27          0 2018-05-27
9  Voldemar 2018-05-27          1 2018-05-28
10 Voldemar 2018-05-27          2 2018-05-29
11 Voldemar 2018-05-27          3 2018-05-30
12 Voldemar 2018-05-27          4 2018-05-31
13 Voldemar 2018-05-27          5 2018-06-01
14 Voldemar 2018-05-27          6 2018-06-02

1 ответ

Есть решение
Onyambu ответил: 10 мая 2018 в 04:54

Дополнительное видео по вопросу: Добавить и мутировать строки по заданному правилу

R PROGRAMMING dplyr BASICS - summarize, group_by, select, mutate, filter, arrange

R Tutorial - 011 - How to group data with dplyr

How to create new variables in R - How to dplyr mutate function (verb)