Zusammenführen von Spalten und Alphabetisieren ihres Inhalts [Duplikat]

Dec 02 2020

Ich habe einen Datenrahmen namens namens issuesdata, den ich aus einem größeren Rahmen erstellt habe.clean.data

issue1 <- as.vector(clean.data$issue1) issue2 <- as.vector(clean.data$issue2)
issue3 <- as.vector(clean.data$issue3)
issuesdata <- data.frame(issue1, issue2, issue3)

issuesdata %>% dplyr::slice(10:15)
          issue1      issue2      issue3
1       economic        <NA>        <NA>
2       economic unification        <NA>
3       economic        <NA>        <NA>
4 transportation    aviation        <NA>
5        justice        <NA>        <NA>
6        slavery    economic humanrights

Ich habe zwei Ziele:

  1. Merge diese Spalten zusammen , so dass es eine vierte Spalte alle Probleme in einer Zeichenkette , die (Spaltenname: allissues)
  2. Der Text der Ausgaben in allissuesist alphabetisch sortiert

Zum Beispiel allissueswürde Zeile 2 von in der Form bleiben, economic unificationaber eine Zeichenfolge sein. Zeile 4 wäre Aviation Transportation, während Zeile 6 ist economic humanrights slavery.

Wie mache ich das?

Antworten

1 RonakShah Dec 02 2020 at 13:01

Legen Sie NA-Werte zeilenweise ab, sortieren Sie sie und fügen Sie sie zusammen.

In Basis R:

issuesdata$combine <- apply(issuesdata, 1, function(x) 
                            toString(sort(na.omit(x))))

Oder mit dplyr:

library(dplyr)

issuesdata %>%
  rowwise() %>%
  mutate(combine = toString(sort(na.omit(c_across()))))

#  issue1         issue2      issue3      combine_data                  
#  <chr>          <chr>       <chr>       <chr>                         
#1 economic       NA          NA          economic                      
#2 economic       unification NA          economic, unification         
#3 economic       NA          NA          economic                      
#4 transportation aviation    NA          aviation, transportation      
#5 justice        NA          NA          justice                       
#6 slavery        economic    humanrights economic, humanrights, slavery