Bedingtes Concatenate String

Question

Ich habe einen Datenrahmen mit diesen 5 Spalten

val1 val2 val3 val4 val5 
1 0 3 0 5 
0 0 0 0 5 
1 2 0 0 0 

etc

Ich habe versucht, eine neue Spalten mit einer bedingten verketten zu erstellen (das Ergebnis darf nicht Nullen verketten)

val6 
1,3,5 
5 
1,2 

usw.

Irgendeine Idee?

Answer 1

Ich denke, das ist ein Duplikat. Allerdings konnte man keinen so antworten finden.

Wir können apply zeilenweise verwenden und entfernen Sie die Elemente mit dem Wert 0 und fügen Sie die übrigen Werte getrennt durch ein Komma.

df$val6 <- apply(df, 1, function(x) paste0(x[x!=0], collapse = ",")) 
df 

# val1 val2 val3 val4 val5 val6 
#1 1 0 3 0 5 1,3,5 
#2 0 0 0 0 5  5 
#3 1 2 0 0 0 1,2 

---

Eine weitere Option by

df$val6 <- by(df, 1:nrow(df), function(x) paste0(x[x!=0], collapse = ",")) 

Answer 2

verwenden werden kann, können wir versuchen, mit replace und gsub

gsub("NA\\s*|\\s*NA|NA+", "", do.call(paste,replace(df1, df1==0, NA))) 
#[1] "1 3 5" "5"  "1 2"