Fusion de colonnes et classement par ordre alphabétique de leur contenu [dupliquer]

Dec 02 2020

J'ai un bloc de données appelé appelé issuesdataque j'ai créé à partir d'un cadre plus grand,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

J'ai deux objectifs:

  1. Fusionner ces colonnes ensemble de telle sorte qu'il existe une quatrième colonne contenant toutes les questions dans une chaîne de caractères (nom de colonne: allissues)
  2. Le texte des numéros dans allissuessont classés par ordre alphabétique

Par exemple, la ligne 2 de allissuesresterait dans le formulaire, economic unificationmais ne serait qu'une chaîne de caractères. La ligne 4 serait Aviation Transportation, tandis que la ligne 6 l'est economic humanrights slavery.

Comment dois-je procéder?

Réponses

1 RonakShah Dec 02 2020 at 13:01

Rowwise déposez les valeurs NA, triez-les et collez-les ensemble.

En base R:

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

Ou avec 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