Group_by уникальное значение и найти длительность, удовлетворяя при этом несколько условий в R (dplyr) - PullRequest
Новая
       61

Group_by уникальное значение и найти длительность, удовлетворяя при этом несколько условий в R (dplyr)

1 голос
/ 30 января 2020

У меня есть набор данных, пример:

В конечном итоге я хотел бы иметь возможность сгруппировать данные в «чанки», где столбец «Тема» содержит уникальное значение, а столбец «Папка» показывает «Исходные данные», и где столбец Сообщение пуст. Я пытаюсь найти продолжительность каждого уникального предмета. (Убедившись, что папка отфильтрована в == "Outdata", сообщение == "".

Вот данные: 

  Folder               DATE                         Message    Subject
  Outdata              9/9/2019 5:46:00                        Hi
  Outdata              9/9/2019 5:46:01                        Hi
  Outdata              9/9/2019 5:46:02                        Hi
  Outdata              9/9/2019 5:46:03            hello       Hi
  Outdata              9/9/2019 5:46:04            hello       OK   
  Outdata              9/10/2019 6:00:01                       OK
  Outdata              9/10/2019 6:00:02                       Sure
  In                   9/11/2019 7:50:00           hello       Sure
  In                   9/11/2019 7:50:01           hello

Я бы хотел, чтобы код по существу делал this: (отфильтруйте папку в Outdata, отфильтруйте сообщение в "" и сгруппируйте по уникальному субъекту, чтобы определить его длительность при условии соблюдения предыдущих условий) 

  Folder               DATE                         Message    Subject  Duration
  Outdata              9/9/2019 5:46:00                        Hi    
  Outdata              9/9/2019 5:46:01                        Hi
  Outdata              9/9/2019 5:46:02                        Hi     2 sec


  Outdata              9/10/2019 6:00:01                       OK     1 sec
  Outdata              9/10/2019 6:00:02                       Sure   1 sec

Продолжительность уникального Тема рассчитывается только в том случае, если сообщение пустое, а папка является Outdata, поэтому вывод будет выглядеть следующим образом: 

   gr                 Duration
   Outdata1           2 sec
   Outdata2           1 sec
   Outdata3           1 sec

Я включил dput: 

structure(list(Folder = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 
1L, 1L), .Label = c("In", "Outdata"), class = "factor"), Date = structure(c(5L, 
6L, 7L, 8L, 9L, 1L, 2L, 3L, 4L), .Label = c("9/10/2019 6:00:01 AM", 
"9/10/2019 6:00:02 AM", "9/11/2019 7:50:00 AM", "9/11/2019 7:50:01 AM", 
"9/9/2019 5:46:00 AM", "9/9/2019 5:46:01 AM", "9/9/2019 5:46:02 AM", 
"9/9/2019 5:46:03 AM", "9/9/2019 5:46:04 AM"), class = "factor"), 
Message = structure(c(1L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c("", 
"hello"), class = "factor"), Subject = structure(c(2L, 2L, 
2L, 2L, 3L, 3L, 4L, 4L, 1L), .Label = c("", "Hi", "OK", "Sure"
), class = "factor")), class = "data.frame", row.names = c(NA, 
-9L))

Вот что Я попытался, что хорошо работает, мне просто нужно учитывать условие пустых значений сообщения. 

  library(dplyr)

 filterdf<-df[!(df$Message == ""),]

  filterdf  %>%
  group_by(Subject) %>%
  mutate(DATE = as.POSIXct(DATE, format = "%m/%d/%Y %I:%M:%S %p"), 
     gr = cumsum(Folder != lag(Folder, default = TRUE))) %>%
 filter(Folder == "Outdata") %>%
 arrange(gr, DATE) %>%
 group_by(gr) %>%
 summarise(Duration = difftime(last(DATE), first(DATE), units = "secs")) %>%
 mutate(gr = paste0('Out', row_number()))

Я не уверен, как выполнить условие, где я могу сгруппировать по уникальному субъекту значение и найдите его длительность, соблюдая условия Message == "" и Folder == "Outdata".

Любая помощь приветствуется. Спасибо

Обновление: я получаю вывод, где значения длительности все Я такой же. Вот dput моего большего набора выборок 

 structure(list(Subject = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 
 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L), .Label = c("A", "b"), class = "factor"), 
Folder = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L), .Label = "Outlookdata", class = "factor"), 
Message = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L), .Label = c("", "hello"), class = "factor"), 
Date = structure(c(1L, 2L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 
22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 
34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 
46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 
58L, 59L), .Label = c("9/9/2019 5:46:38 PM", "9/9/2019 5:46:40 PM", 
"9/9/2019 5:46:42 PM", "9/9/2019 5:46:43 PM", "9/9/2019 5:46:44 PM", 
"9/9/2019 5:46:45 PM", "9/9/2019 5:46:46 PM", "9/9/2019 5:46:47 PM", 
"9/9/2019 5:46:49 PM", "9/9/2019 5:46:50 PM", "9/9/2019 5:46:51 PM", 
"9/9/2019 5:46:52 PM", "9/9/2019 5:46:53 PM", "9/9/2019 5:46:54 PM", 
"9/9/2019 5:46:55 PM", "9/9/2019 5:46:56 PM", "9/9/2019 5:46:58 PM", 
"9/9/2019 5:46:59 PM", "9/9/2019 5:47:00 PM", "9/9/2019 5:47:01 PM", 
"9/9/2019 5:48:27 PM", "9/9/2019 5:48:30 PM", "9/9/2019 5:48:31 PM", 
"9/9/2019 5:48:32 PM", "9/9/2019 5:48:33 PM", "9/9/2019 5:48:34 PM", 
"9/9/2019 5:48:35 PM", "9/9/2019 5:48:37 PM", "9/9/2019 5:48:38 PM", 
"9/9/2019 5:48:39 PM", "9/9/2019 5:48:40 PM", "9/9/2019 5:48:41 PM", 
"9/9/2019 5:48:43 PM", "9/9/2019 5:48:44 PM", "9/9/2019 5:48:45 PM", 
"9/9/2019 5:48:46 PM", "9/9/2019 5:48:47 PM", "9/9/2019 5:48:48 PM", 
"9/9/2019 5:48:50 PM", "9/9/2019 5:48:51 PM", "9/9/2019 5:48:52 PM", 
"9/9/2019 5:48:53 PM", "9/9/2019 5:48:54 PM", "9/9/2019 5:48:55 PM", 
"9/9/2019 5:48:56 PM", "9/9/2019 5:48:58 PM", "9/9/2019 5:48:59 PM", 
"9/9/2019 5:49:00 PM", "9/9/2019 5:49:01 PM", "9/9/2019 5:49:02 PM", 
"9/9/2019 5:49:03 PM", "9/9/2019 5:49:04 PM", "9/9/2019 5:49:05 PM", 
"9/9/2019 5:49:06 PM", "9/9/2019 5:49:07 PM", "9/9/2019 5:49:08 PM", 
"9/9/2019 5:49:09 PM", "9/9/2019 5:49:10 PM", "9/9/2019 5:49:11 PM"
), class = "factor")), class = "data.frame",  row.names = c(NA, 
-60L))

1 Ответ

1 голос
/ 30 января 2020

Если мы включаем столбец «Тема», будет 3 строки, поскольку после подстановки «Исходных данных» из «Папки» будет 3 уникальных значения 

 library(dplyr)
 library(stringr)
 library(lubridate)
 library(data.table)
 df %>%  
     filter(Folder == 'Outdata') %>%  #filter only Outdata rows
     mutate(Date = mdy_hms(Date)) %>%  # convert to Datetime class
     group_by(grp = rleid(Message)) %>% # create a group based on similarity of adjacent elements
     filter(all(Message == '')) %>% # rremove the groups where all values in Message are blank
     transmute(Subject, Duration = diff(range(Date))) %>% # get the difference of range of dates
     ungroup %>% 
     distinct %>% # get the distinct rows
     mutate(grp = str_c("Outdata", row_number())) # update by pasting 'Outdata'
# A tibble: 3 x 3
#  grp      Subject Duration
#  <chr>    <fct>   <drtn>  
#1 Outdata1 Hi      2 secs  
#2 Outdata2 OK      1 secs  
#3 Outdata3 Sure    1 secs

Без включения «Тема», это будет 2 строки 

df %>% 
     filter(Folder == 'Outdata') %>% 
     mutate(Date = mdy_hms(Date)) %>% 
     group_by(grp = rleid(Message)) %>% 
     filter(all(Message == '')) %>% 
     summarise(Duration = diff(range(Date))) %>%
     mutate(grp = str_c("Outdata", row_number()))
# A tibble: 2 x 2
#  grp      Duration
#  <chr>    <drtn>  
#1 Outdata1 2 secs  
#2 Outdata2 1 secs

Обновление

С новым набором данных 

df1 %>% 
   filter(Folder == 'Outlookdata') %>%
   mutate(Date = mdy_hms(Date))  %>% 
   group_by(grp = rleid(Message)) %>% 
   filter(all(Message == "")) %>% 
   transmute(Subject,  Duration = diff(range(Date))) %>%
   ungroup %>% 
   distinct
# A tibble: 3 x 3
#    grp Subject Duration
#  <int> <fct>   <drtn>  
#1     1 A        17 secs
#2     3 A       132 secs
#3     3 b       132 secs
...