Объедините текстовые элементы во фрейме данных и удалите строки, из которых пришел текст

Question

Этот фрейм данных игрушки представляет записи времени по лицам.Доступный мне формат имеет несколько текстовых записей для одного человека и дня в совершенно случайном порядке.Может быть до 15 текстовых записей для одного человека и дня.Нет записи Person в строке для многотекстовой записи.

structure(list(Date = structure(c(1514764800, 1514764800, NA, 
1517443200, 1519862400, NA, NA, NA, 1519862400, NA, NA), class = c("POSIXct", 
"POSIXt"), tzone = "UTC"), Person = c("FMC", "ABC", NA, "FMC", 
"ABC", NA, NA, NA, "RWM", NA, NA), Text = c("work on request", 
"More text", "third line", "email to re: summary", "work on loan documents", 
"sixth line of text", "text seven", "eighth in a series", "conferences with working group", 
"line ten", "review and provide comments")), row.names = c(NA, 
-11L), class = c("tbl_df", "tbl", "data.frame"))

Как объединить текстовые элементы так, чтобы для каждой записи человека была только одна строка для каждого дня удалите ненужные строки (после вставки текста вместе) и получите следующий объект?

РЕДАКТИРОВАННЫЙ ВОПРОС пропускает цикл for Iпопытка не удалась.

Должен быть способ объединить весь текст в одну строку для данного человека для данного дня (например, ABC имеет две записи на 01.01.2008) и удалить строку (s) откуда взят объединенный текст.

Answer 1

Мы можем использовать na.locf, чтобы заполнить пропущенные значения (NA) последним не пропущенным значением, затем group_by последовательное вхождение Person и summarise Text путем paste, объединяя их вместе.

library(dplyr)
library(zoo)
library(data.table)

df %>%
  na.locf(.) %>%
  group_by(group = rleid(Person)) %>%
  summarise(Text = paste0(Text, collapse = " "))


#  group Text                                                                   
#  <int> <chr>                                                                  
#1     1 work on request                                                        
#2     2 More text third line                                                   
#3     3 email to re: summary                                                   
#4     4 work on loan documents sixth line of text text seven eighth in a series
#5     5 conferences with working group line ten review and provide comments 

---

По обновленному вопросу мы можем сделать

library(dplyr)
library(zoo)

df %>%
  na.locf(.) %>%
  group_by(Date, Person) %>%
  summarise(Text = paste0(Text, collapse = " "))

Answer 2

Не нужно усложнять, просто используйте tidyverse.

Скорректировано с учетом изменений вопроса:

library(tidyverse)

> df%>%
   fill(Date:Person, Date:Person) %>% # Fills missing values in using the previous entry.
   group_by(Date, Person) %>%
   summarise(Text = paste(Text, collapse = ' '))

# A tibble: 5 x 3
  Date                Person Text                                                                   
  <dttm>              <chr>  <chr>                                                                  
1 2018-01-01 00:00:00 ABC    More text third line                                                   
2 2018-01-01 00:00:00 FMC    work on request                                                        
3 2018-02-01 00:00:00 FMC    email to re: summary                                                   
4 2018-03-01 00:00:00 ABC    work on loan documents sixth line of text text seven eighth in a series
5 2018-03-01 00:00:00 RWM    conferences with working group line ten review and provide comments   

Данные:

# A tibble: 11 x 3
   Date                Person Text                          
   <dttm>              <chr>  <chr>                         
 1 2018-01-01 00:00:00 FMC    work on request               
 2 2018-01-01 00:00:00 ABC    More text                     
 3 NA                  NA     third line                    
 4 2018-02-01 00:00:00 FMC    email to re: summary          
 5 2018-03-01 00:00:00 ABC    work on loan documents        
 6 NA                  NA     sixth line of text            
 7 NA                  NA     text seven                    
 8 NA                  NA     eighth in a series            
 9 2018-03-01 00:00:00 RWM    conferences with working group
10 NA                  NA     line ten                      
11 NA                  NA     review and provide comments   

Answer 3

library(dplyr)

merge_lines <- function(x) paste(x, collapse = ' ')

df %>% 
  zoo::na.locf(.) %>%
  group_by(Person) %>%
  summarise_at(vars(Text), (funs(merge_lines)))

Результат:

# A tibble: 4 x 2
  Person Text                                                                   
  <chr>  <chr>                                                                  
1 ABC    More text third line                                                   
2 FMC    work on request email to re: summary                                   
3 HIL    work on loan documents sixth line of text text seven eighth in a series
4 RWM    conferences with working group line ten review and provide comments