Comment supprimer des lignes avec inf à partir d'une image de données dans R

J'ai une très grande dataframe(df) avec environ 35-45 colonnes(variables) et des lignes de plus de 300. Certaines des lignes contient NA,NaN,Inf,-Inf valeurs dans un seul ou plusieurs variables, et j'ai utilisé
na.omit(df) pour supprimer les lignes avec NA et NaN, mais je ne peux pas supprimer les lignes avec l'Inf et -Inf valeurs à l'aide na.omettre fonction.

En cherchant je suis tombé sur ce thread Supprimer les lignes avec l'Inf et NaN dans la R et utilisé le code modifié df[is.finite(df)] mais ce n'est pas en supprimant les lignes avec l'Inf et -Inf et donne aussi cette erreur

Erreur dans l'est.finies(df) : méthode par défaut pas mis en œuvre pour le type
'liste'

ÉDITÉ

Supprimer la ligne entière, même le correspondant d'un ou de plusieurs colonnes ont inf et -inf

source d'informationauteur Eka | 2016-04-13

dataframe r

10

Pour supprimer les lignes avec +/-Inf je vous suggère le texte suivant:
```
df <- df[!is.infinite(rowSums(df)),]
```
ou, de manière équivalente,
```
df <- df[is.finite(rowSums(df)),]
```
La deuxième option (l'un avec is.finite() et sans la négation) supprime également les lignes contenant NA valeurs dans le cas où cela n'a pas déjà été fait.
5

La is.finite fonctionne sur vector et pas sur data.frame objet. Donc, on peut faire une boucle par la data.frame à l'aide de lapply et obtenir seulement le 'fini' valeurs.
```
lapply(df, function(x) x[is.finite(x)])
```
Si le nombre de Inf-Inf valeurs sont différentes pour chaque colonne, le code ci-dessus ont un list avec des éléments ayant inégale length. Donc, il peut être mieux de laisser comme un list. Si nous voulons un data.frameil doit avoir des longueurs égales.

Si nous voulons supprimer des lignes contiennent tout NA ou Inf/-Inf valeurs
```
df[Reduce(`&`, lapply(df, function(x) !is.na(x)  & is.finite(x))),]
```
Ou un compact option par @nicola
```
df[Reduce(`&`, lapply(df, is.finite)),]
```
Si nous sommes prêts à utiliser un paquet, un compact option serait NaRV.omit
```
library(IDPmisc)
NaRV.omit(df)
```
de données
```
set.seed(24)
df <- as.data.frame(matrix(sample(c(1:5, NA, -Inf, Inf), 
                      20*5, replace=TRUE), ncol=5))
```

De garder les lignes sans Inf nous pouvons faire:

df[apply(df, 1, function(x) all(is.finite(x))), ]

Aussi NAs sont gérés par ce parce que:

un rowindex avec la valeur NA va supprimer cette ligne dans le résultat.

Également des lignes avec NaN ne sont pas dans le résultat.

set.seed(24)
df <- as.data.frame(matrix(sample(c(0:9, NA, -Inf, Inf, NaN),  20*5, replace=TRUE), ncol=5))
df2 <- df[apply(df, 1, function(x) all(is.finite(x))), ]

Voici les résultats des différentes is.~-fonctions:

x <- c(42, NA, NaN, Inf)
is.finite(x)
# [1]  TRUE FALSE FALSE FALSE
is.na(x)
# [1] FALSE  TRUE  TRUE FALSE
is.nan(x)
# [1] FALSE FALSE  TRUE FALSE

Vous devez vous connecter pour publier un commentaire.