Discussion :

[hoccha]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dickoa]

Salut
On peut procéder comme ça :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hoccha]

Ok super merci !