суммировать несколько динамических столбцов и сохранять результаты в новых столбцах - PullRequest
Новая
       5

суммировать несколько динамических столбцов и сохранять результаты в новых столбцах

0 голосов
/ 28 апреля 2018

У меня следующая ситуация. 

    df <- rbind(
  data.frame(thisDate = rep(seq(as.Date("2018-1-1"), as.Date("2018-1-2"), by="day")) ),
  data.frame(thisDate = rep(seq(as.Date("2018-2-1"), as.Date("2018-2-2"), by="day")) ))
df <- cbind(df,lastMonth = as.Date(format(as.Date(df$thisDate - months(1)),"%Y-%m-01")))
df <- cbind(df, prod1Quantity= seq(1:4) )

У меня есть количества для разных дней месяца для неизвестного количества продуктов. Я хочу иметь 1 столбец для каждого продукта с общим ежемесячным количеством этого продукта за весь предыдущий месяц. Таким образом, выходные данные будут такими: т.е. сгруппированы по lastMonth, Prod1Quantity. Я просто не понимаю, как группировать, мутировать и суммировать динамически, если это действительно правильный подход.

Я наткнулся на data.table сгенерировал несколько столбцов и суммировал их . Я думаю, что он делает то, что мне нужно, но я просто не понимаю, как это работает!

Желаемый выход 


   thisDate  lastMonth prod1Quantity prod1prevMonth
1 2018-01-01 2017-12-01             1             NA
2 2018-01-02 2017-12-01             2             NA
3 2018-02-01 2018-01-01             3              3
4 2018-02-02 2018-01-01             4              3

Ответы [ 2 ]

0 голосов
/ 28 апреля 2018

Другой подход может быть 

library(dplyr)
library(lubridate)

temp_df <- df %>%
  mutate(thisDate_forJoin = as.Date(format(thisDate,"%Y-%m-01"))) 

final_df <- temp_df %>%
  mutate(thisDate_forJoin = thisDate_forJoin %m-% months(1)) %>%
  left_join(temp_df %>%
              group_by(thisDate_forJoin) %>%
              summarise_if(is.numeric, sum), 
            by="thisDate_forJoin") %>%
  select(-thisDate_forJoin)

Вывод: 

    thisDate prod1Quantity.x prod2Quantity.x prod1Quantity.y prod2Quantity.y
1 2018-01-01               1              10              NA              NA
2 2018-01-02               2              11              NA              NA
3 2018-02-01               3              12               3              21
4 2018-02-02               4              13               3              21

Пример данных: 

df <- structure(list(thisDate = structure(c(17532, 17533, 17563, 17564
), class = "Date"), prod1Quantity = 1:4, prod2Quantity = 10:13), class = "data.frame", row.names = c(NA, 
-4L))
#    thisDate prod1Quantity prod2Quantity
#1 2018-01-01             1            10
#2 2018-01-02             2            11
#3 2018-02-01             3            12
#4 2018-02-02             4            13
0 голосов
/ 28 апреля 2018

Решение можно найти, рассчитав месячный объем производства, а затем объединив month из lastMonth и thisDate.

lubridate::month функция использовалась для оценки месяца с даты. 

library(dplyr)
library(lubridate)
df %>% group_by(month = as.integer(month(thisDate))) %>%
  summarise(prodQuantMonth = sum(prod1Quantity)) %>%
  right_join(., mutate(df, prevMonth = month(lastMonth)), by=c("month" = "prevMonth")) %>%
  select(thisDate, lastMonth, prod1Quantity, prodQuantLastMonth = prodQuantMonth)

# # A tibble: 4 x 4
#   thisDate   lastMonth  prod1Quantity prodQuantLastMonth
#   <date>     <date>             <int>              <int>
# 1 2018-01-01 2017-12-01             1                 NA
# 2 2018-01-02 2017-12-01             2                 NA
# 3 2018-02-01 2018-01-01             3                  3
# 4 2018-02-02 2018-01-01             4                  3
...