de ? na code>

NA est une constante logique de longueur 1 qui contient un indicateur de valeur manquante. NA peut être contraint à tout autre type de vecteur sauf brut. Il existe également des constantes Na_integer_, na_real_, na_complex_ et na_character_ des autres types de vecteur atomiques qui prennent en charge les valeurs manquantes: tous sont des mots réservés dans la langue r. P> blockQquote>

Vous devrez spécifier le type correct pour votre fonction pour fonctionner - p>

Vous pouvez contraindre dans la fonction pour correspondre au type de x code> (Notez que nous Besoin de n'importe quel code> pour que cela fonctionne pour fonctionner pour des situations avec plus de 1 rangée dans un sous-ensemble! p> xxx pré>

plus data.table * approche * ish * approche h1 >

Cela pourrait faire plus de données.Table sens d'utiliser définir code> (ou : = code>) pour définir / remplacer par référence. P>

library(data.table)

set.seed(1)
n <- 1e+07
DT <- data.table(a = sample(15, n, T))
setkeyv(DT, "a")
DTa <- copy(DT)
DTb <- copy(DT)
DTc <- copy(DT)
DTd <- copy(DT)
DTe <- copy(DT)

f <- function(x) {
    if (any(x == 9)) {
        return(as(NA, class(x)))
    } else {
        return(x)
    }
}

system.time({DT[a == 9, `:=`(a, NA_integer_)]})
##    user  system elapsed 
##    0.95    0.24    1.20 
system.time({DTa[a == 9, `:=`(a, NA)]})
##    user  system elapsed 
##    0.74    0.17    1.00 
system.time({DTb[J(9), `:=`(a, NA_integer_)]})
##    user  system elapsed 
##    0.02    0.00    0.02 
system.time({set(DTc, which(DTc[, a] == 9), j = "a", value = NA)})
##    user  system elapsed 
##    0.49    0.22    0.67 
system.time({set(DTc, which(DTd[, a] == 9), j = "a", value = NA_integer_)})
##    user  system elapsed 
##    0.54    0.06    0.58 
system.time({DTe[, `:=`(a, f(a)), by = a]})
##    user  system elapsed 
##    0.53    0.12    0.66 
# The are all the same!
all(identical(DT, DTa), identical(DT, DTb), identical(DT, DTc), identical(DT, 
    DTd), identical(DT, DTe))
## [1] TRUE