Déplacer les NA à droite dans un data.frame

Hello,
J'ai un data.frame ayant des valeurs manquantes (NA) et je cherche à les déplacer vers la droite.
Le code suivant permet de générer des exemples de mon problème :
Code:

1 2 genExample <- function(nbCol=7,nbLin=4) data.frame(matrix(runif(nbCol*nbLin)+sample(c(0,NA),nbCol*nbLin,TRUE,c(0.8,0.2)),ncol=nbCol))
Si je l'exécute, j'obtiens par exemple :
Code:

1 2 3 4 5 6 > (dd <- genExample()) X1 X2 X3 X4 X5 X6 X7 1 0.4885394 0.7426915 NA 0.2103834 NA NA 0.08311188 2 0.2607933 NA 0.4812214 NA 0.04364146 0.1707916 NA 3 0.7486880 0.2456087 0.4043528 NA 0.13251084 NA 0.87925675 4 0.5115420 0.8985941 NA NA 0.40280238 NA 0.36108639
Et je voudrais obtenir ceci:
Code:

1 2 3 4 5 X1 X2 X3 X4 X5 X6 X7 1 0.4885394 0.7426915 0.2103834 0.08311188 NA NA NA 2 0.2607933 0.4812214 0.04364146 0.1707916 NA NA NA 3 0.7486880 0.2456087 0.4043528 0.13251084 0.87925675 NA NA 4 0.5115420 0.8985941 0.40280238 0.36108639 NA NA NA
Pour faire ceci, j'ai déjà réalisé un code qui utilise une boucle. Mais dans mon vrai problème, je n'ai pas 6 lignes mais plus de 100000 lignes et mon code est bien trop lent (plus de 8 heures!).
Pourriez-vous svp m'aider à faire un code optimal (apply(), vectorisation, ...) pour résoudre ce problème?
Merci :)

Salut
On peut procéder comme ça :

On crée une fonction qui permet de le faire sur un vecteur simple

Code:

1
2
pushRightNA <- function(x)
    c(x[!is.na(x)], x[is.na(x)]))

On génère une base de donnée avec ton code (utilise set.seed la prochaine fois pour rendre reproductible le résultat)

Code:

1
2
3
4
5
6
7
8
set.seed(12345)
(dd <- genExample())
 
##        X1      X2       X3        X4      X5      X6      X7
## 1 0.72090 0.45648       NA 0.7356850 0.38814 0.45373 0.64454
## 2 0.87577 0.16637       NA 0.0011366 0.40249 0.32675 0.38983
## 3 0.76098 0.32510 0.034535        NA 0.17896      NA 0.69854
## 4 0.88612 0.50922 0.152373 0.4624947 0.95166      NA 0.54406

Donc on peut maintenant appliquer la fonction pushRightNA à chaque ligne en utilisant apply

Code:

1
2
3
4
5
6
7
dd2 <- apply(dd, 1, pushRightNA)
(dd2 <- as.data.frame(t(dd2), row.names = 1))
##        V1      V2        V3      V4      V5      V6 V7
## 1 0.72090 0.45648 0.7356850 0.38814 0.45373 0.64454 NA
## 2 0.87577 0.16637 0.0011366 0.40249 0.32675 0.38983 NA
## 3 0.76098 0.32510 0.0345354 0.17896 0.69854      NA NA
## 4 0.88612 0.50922 0.1523735 0.46249 0.95166 0.54406 NA

Ok super merci ! :)