Łączenie kolumn i alfabetowanie ich zawartości [duplikat]
Dec 02 2020
Mam ramkę danych o nazwie issuesdata
, którą utworzyłem z większej ramki,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
Mam dwa cele:
- Scalenie tych kolumn razem tak, że jest czwarta kolumna zawierająca wszystkie problemy w jeden ciąg znaków (nazwę kolumny:
allissues
) - Tekst numerów w numerze
allissues
jest alfabetyczny
Na przykład wiersz 2 z allissues
pozostanie w formie, economic unification
ale będzie jednym ciągiem znaków. Rząd 4 byłby Aviation Transportation
, a rząd 6 economic humanrights slavery
.
Jak mam to zrobić?
Odpowiedzi
1 RonakShah Dec 02 2020 at 13:01
Rzędy upuść wartości NA, posortuj je i wklej razem.
W bazie R:
issuesdata$combine <- apply(issuesdata, 1, function(x)
toString(sort(na.omit(x))))
Lub z 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