Spalte Split basierend auf bestimmten Separator Format

Question

Ich habe ein Format zu trennen, wo ich diese Daten haben:

df = data.frame(id=c(1,2),name=c('A~B~C','A~B~D'),value=c('1~2~3','1~~2')) 
id name  value 
1 A~B~C  1~2~3 
2 A~B~D  1~~2 

, die die folgende Ausgabe zu erwarten ist, wenn der Spaltenname der ursprünglichen Spaltennamen gefolgt von der ist Text in der Spalte Name:

id value_A value_B value_C value_D 
1  1   2   3  
2  1       2 

ich schaffe für die die Spaltung zu erreichen, indem viele verschachtelte for-Schleifen mit auf meine Daten Zeile für Zeile zu verarbeiten. Es arbeitet mit kleinen Beispieldaten, aber sobald die Daten riesig sind, ist die Zeit ein Problem.

Es könnte auch mehr als 1 Wertspalten geben, aber alle sollten in die gleichnamige Spalte mappen. Beispiel Ausgabe:

id value_A value_B value_C value1_A value1_B value1_C 
1  1   2   3  1   2   3 
2  1   2   3  1   2   3 

Answer 1

Hier ist eine Option mit cSplit/dcast. Teilen Sie die Zeilen in ‚langen‘ Format mit cSplit und dcast es zu ‚breit‘ Format

library(splitstackshape) 
dcast(cSplit(df, c('name','value'), '~', 'long')[!is.na(value)], id ~ paste0('value_', name)) 
# id value_A value_B value_C value_D 
#1: 1  1  2  3  NA 
#2: 2  1  NA  NA  2 

Answer 2

können Sie versuchen, dplyr:

library(tidyverse) 
df %>% 
separate_rows(name, value, sep = "~") %>% 
spread(name, value) 
    id A B C D 
1 1 1 2 3 <NA> 
2 2 1 <NA> 2 

Statt NA können Sie leere Zellen füllen, indem sie alles, was Sie innerhalb fill = ""

Oder baseR und reshape2 angeben:

a <- strsplit(as.character(df$name), "~") 
b <- strsplit(as.character(df$value), "~") 
df2 <- do.call(rbind.data.frame, Map(cbind, df$id, a, b)) 
library(reshape2) 
dcast(df2, V1~V2, value.var = "V3") 
    A B C D 
1 1 2 3 <NA> 
2 1 <NA> 2