Entfernen NA/NaN/Inf in einer matrix

Will ich versuchen, zwei Dinge :

  1. Wie lösche ich Zeilen mit NA/NaN/Inf
  2. Wie lege ich Wert des Datenpunkts von NA/NaN/Inf in 0.

So weit, ich habe versucht mit der folgenden für die NA-Werte, aber immer Warnungen.

> eg <- data[rowSums(is.na(data)) == 0,]
 Error in rowSums(is.na(data)) : 
       'x' must be an array of at least two dimensions
     In addition: Warning message:
     In is.na(data) : is.na() applied to non-(list or vector) of type 'closure'

InformationsquelleAutor der Frage user2199881 | 2013-04-02

  1. 31

    Ich glaube, ich werfe meinen Hut in den ring mit meiner bevorzugten Methoden:

    # sample data
m <- matrix(c(1,2,NA,NaN,1,Inf,-1,1,9,3),5)
# remove all rows with non-finite values
m[!rowSums(!is.finite(m)),]
# replace all non-finite values with 0
m[!is.finite(m)] <- 0

    InformationsquelleAutor der Antwort Joshua Ulrich

  2. 12
    library(functional)
m[apply(m, 1, Compose(is.finite, all)),]

    Demonstration:

    m <- matrix(c(1,2,3,NA,4,5), 3)
m
##      [,1] [,2]
## [1,]    1   NA
## [2,]    2    4
## [3,]    3    5

m[apply(m, 1, Compose(is.finite, all)),]
##      [,1] [,2]
## [1,]    2    4
## [2,]    3    5

    Hinweis: Compose(is.finite, all) entspricht function(x) all(is.finite(x))

    Stellen Sie die Werte auf 0, die Verwendung von matrix-Indizierung:

    m[!is.finite(m)] <- 0
m
##      [,1] [,2]
## [1,]    1    0
## [2,]    2    4
## [3,]    3    5

    InformationsquelleAutor der Antwort Matthew Lundberg

  3. 9

    NaRV.weglassen(x) ist meine bevorzugte option für Frage 1. Merksatz NaRV bedeutet "nicht ein regulärer Wert".

    require(IDPmisc)
m <- matrix(c(1,2,3,NA,5, NaN, 7, 8, 9, Inf, 11, 12, -Inf, 14, 15), 5)
> m
     [,1] [,2] [,3]
[1,]    1  NaN   11
[2,]    2    7   12
[3,]    3    8 -Inf
[4,]   NA    9   14
[5,]    5  Inf   15
> NaRV.omit(m)
     [,1] [,2] [,3]
[1,]    2    7   12
attr(,"na.action")
[1] 1 3 4 5
attr(,"class")
[1] "omit"

    InformationsquelleAutor der Antwort BruceSpencer.Ca

  4. 3

    Nur einen anderen Weg (für die erste Frage):

    m <- structure(c(1, 2, 3, NA, 4, 5, Inf, 5, 6, NaN, 7, 8), 
              .Dim = c(4L, 3L))
#      [,1] [,2] [,3]
# [1,]    1    4    6
# [2,]    2    5  NaN
# [3,]    3  Inf    7
# [4,]   NA    5    8

m[complete.cases(m * 0), , drop=FALSE]
#      [,1] [,2] [,3]
# [1,]    1    4    6

    Ich kann nicht denken, nichts anderes als Matthäus die Antwort für den zweiten Teil.

    InformationsquelleAutor der Antwort Arun

Schreibe einen Kommentar