Comment vérifier un data.frame pour tout non-fini

J'aimerais vérifier si un ensemble de données.cadre a tout non-éléments finis.

Cela semble pour l'évaluation de chaque colonne, retourner FALSE pour chacun (je devine ses évaluer les données.l'image comme une liste):

any( !is.finite( x ) )

Je ne comprends pas pourquoi il se comporte différemment de ce qui précède, mais il fonctionne très bien si juste vérifier pour les NAs:

any( !is.na( x ) )

J'aimerais que la solution soit aussi efficace que possible. Je me rends compte que je peux le faire...

any( !is.finite( as.matrix( x ) ) )

source d'informationauteur SFun28

  1. 16

    Si vous tapez methods(is.na) vous verrez qu'il a une data.frame méthode, ce qui explique probablement pourquoi il fonctionne de la même façon que vous attendez, où is.finite ne le fait pas. La solution habituelle serait à l'écrire vous-même, puisque c'est une seule ligne. Quelque chose comme ceci peut-être,

    is.finite.data.frame <- function(obj){
    sapply(obj,FUN = function(x) all(is.finite(x)))
}
  2. 6

    Je suis en supposant que l'erreur que vous obtenez est la suivante:

    > any( is.infinite( z ) )
Error in is.infinite(z) : default method not implemented for type 'list'

    Cette erreur est parce que le is.infinite() et la is.finite() fonctions ne sont pas mis en œuvre une méthode pour les données.les cadres. Le is.na() fonction a un données.cadre de la méthode.

    La façon de contourner cela est de apply() la fonction à chaque ligne, colonne, ou dans l'élément de données.cadre. Voici un exemple d'utilisation sapply() pour appliquer la is.infinite() fonction à chaque élément:

    x <- c(1:10, NA)
y <- c(1:11)
z <- data.frame(x,y)
any( sapply(z, is.infinite) )
 ## or

any( ! sapply(z, is.finite) )
  3. 4

    Votre solution d'appeler as.matrix ne fonctionnera que si la data.frame a seulement colonnes numériques. Sinon, la matrice va généralement de devenir un personnage de la matrice et le résultat sera faux partout...

    @joran a une bonne approche, mais vous aurez des problèmes avec le facteur de colonnes, à moins d'ajouter une méthode pour les facteurs de trop etc...

    is.finite(letters[1:3])         # FALSE - OK
is.finite(factor(letters[1:3])) # TRUE - WRONG!!

is.finite.factor <- function(obj){
    logical(length(obj))
}

is.finite(factor(letters[1:3])) # FALSE - OK

    Aussi, si vous voulez le vérifier pour être aussi rapide que possible, vous devriez éviter de sapply et aller pour vapply à la place.

    d <- data.frame(matrix(runif(1e6), nrow=10), letters[1:10])

# @joran's method
is.finite.data.frame <- function(obj){
    sapply(obj,FUN = function(x) all(is.finite(x)))
}

system.time( x <- is.finite(d) ) # 0.42 secs

# Using vapply instead...
is.finite.data.frame <- function(obj) {
    vapply(obj,FUN = function(x) all(is.finite(x)), logical(1))
}

system.time( y <- is.finite(d) ) # 0.20 secs

identical(x,y) # TRUE