Concatenate String Zeilen eines Datenrahmens nur in bestimmten Indizes

Question

Angenommen, wir haben einen Datenrahmen mit zwei Spalten, ein Zeichen, ein numerisches:

df <- data.frame(chr = letters[1:10], 
      ind = c(NA, NA, 1, NA, NA, 2, NA, NA, 3, NA)) 

    chr ind 
1 a NA 
2 b NA 
3 c 1 
4 d NA 
5 e NA 
6 f 2 
7 g NA 
8 h NA 
9 i 3 
10 j NA 

Wie würden Sie die Zeilen der chr Spalte einfügen jedes Mal nehmen nur Zeilen zwischen nicht NA Indizes in ind?

Ich möchte die ersten Reihen, bis der erste Nicht- NA ignoriert, dann stoßen wir ind = 1, dann verketten „d“ und „e“, dann stoßen wir ind = 2, dann verketten „g“ und „h ", etc. zu erstellen:

newChar 
"d e" 
"g h" 
"j" 

Wie würden Sie das ohne eine for-Schleife tun?

Answer 1

OK, ich habe es. Der Trick ist, zoo::na.locf zu verwenden, um die NA Werte zu füllen und dann group_by und paste:

library(dplyr) 
library(zoo) 
df %>% 
    mutate(bool = is.na(ind), groupID = na.locf(ind, na.rm = FALSE)) %>% 
    filter(bool & !is.na(groupID)) %>% group_by(groupID) %>% 
    summarise(newChr = paste(chr, collapse = " ")) %>% 
    select(newChr)