Comment déplacer seul NA en bas de la colonne en R

Question

je la trame de données suivantes:

example=data.frame(x=c(1,2,3),y=c(4,5,6)) 


    x  y 
1 1  4 
2 2  5 
3 3  6 

Je veux supprimer une valeur unique, de 1 des colonnes, donc je reçois ce (que j'ai réussi en utilisant example$x[example$x==2]<-NA):

 x  y 
1 1  4 
2 NA 5 
3 3  6 

Mais maintenant, je suis coincé, parce que je veux maintenant passer les valeurs restantes, de sorte que les agences nationales sont en bas:

 x  y 
1 1  4 
2 3  5 
3 NA 6 

En fin de compte, je veux être en mesure de le faire pour les deux colonnes, avec des valeurs uniques dans les différentes lignes, par exemple:

de:

 x  y 
1 1  NA 
2 NA 5 
3 3  6 

Pour:

 x  y 
1 1  5 
2 3  6 
3 NA NA 

Espérons que quelqu'un a une solution simple! Merci

Answer 1

Voici une méthode utilisant is.na et sous-ensemble [. À partir de cet ensemble de données.

example=data.frame(x=c(1,NA,3),y=c(NA,5,6)) 
example 
    x y 
1 1 NA 
2 NA 5 
3 3 6 

vous traversent chaque variable avec lapply et prendre des variables qui ne manquent pas, et ajouter à ces valeurs manquantes à la fin. Ensuite, réinjectez ce résultat dans l'ensemble de données d'origine à l'aide de example[] <-, qui conserve la structure data.frame.

example[] <- lapply(example, function(x) c(x[!is.na(x)], x[is.na(x)])) 
example 
    x y 
1 1 5 
2 3 6 
3 NA NA 

Nous pouvons également utiliser la plus récente (R 3.3.3) fonction grouping comme celui-ci

example[] <- lapply(example, function(x) x[grouping(is.na(x))]) 

ou order

example[] <- lapply(example, function(x) x[order(is.na(x))]) 

Dans les deux dernières, la clé est de commander sur is.na plutôt que les éléments eux-mêmes. De cette façon, vous préservez l'ordre d'origine des éléments non vides.

Answer 2

Nous pouvons également utiliser tidyverse

library(dplyr) 
example %>% 
    mutate_all(funs(.[order(is.na(.))])) 
# x y 
#1 1 5 
#2 3 6 
#3 NA NA 

Si les colonnes doivent dépendre

example %>% 
     arrange_all(funs(is.na(.)))