Comment remplacer NA les valeurs dans un tableau pour les colonnes sélectionnées

Il y a beaucoup de posts sur le remplacement de NA valeurs. Je suis conscient que l'on pourrait remplacer NAs dans le tableau suivant/cadre avec le texte suivant:

x[is.na(x)]<-0

Mais, que faire si je veux de la restreindre à seulement certaines colonnes? Laissez-moi vous montrer un exemple.

D'abord, nous allons commencer avec un ensemble de données.

set.seed(1234)
x <- data.frame(a=sample(c(1,2,NA), 10, replace=T),
                b=sample(c(1,2,NA), 10, replace=T), 
                c=sample(c(1:5,NA), 10, replace=T))

Qui donne:

    a  b  c
1   1 NA  2
2   2  2  2
3   2  1  1
4   2 NA  1
5  NA  1  2
6   2 NA  5
7   1  1  4
8   1  1 NA
9   2  1  5
10  2  1  1

Ok, donc je ne veux limiter le remplacement de colonnes 'a' et 'b'. Ma tentative a été:

x[is.na(x), 1:2]<-0

et:

x[is.na(x[1:2])]<-0

Qui ne fonctionne pas.

Mes données.tableau tentative, où y<-data.table(x), a de toute évidence ne marchera jamais:

y[is.na(y[,list(a,b)]), ]

Je veux passer colonnes à l'intérieur de l'est.na argument, mais qui de toute évidence ne fonctionne pas.

Je voudrais faire cela dans un ensemble de données.cadre et un ensemble de données.table. Mon objectif final est de recoder le 1:2 0:1 dans 'a' et 'b', tout en gardant 'c' la façon dont il est, puisqu'il n'est pas une variable logique. J'ai un tas de colonnes, donc je ne veux pas le faire un par un. Et, je voudrais juste savoir comment faire cela.

Avez-vous des suggestions?

InformationsquelleAutor jnam27 | 2013-10-15

data.table dataframe na r replace

96

Que vous pouvez faire:
```
x[, 1:2][is.na(x[, 1:2])] <- 0
```
ou mieux (à mon humble avis), utiliser des noms de variables:
```
x[c("a", "b")][is.na(x[c("a", "b")])] <- 0
```
Dans les deux cas, 1:2 ou c("a", "b") peut être remplacé par un pré-définis vecteur.
- Qui fait le travail. Mais si je veux de recherche pour '1'? J'ai essayé de le changer mais je ne pouvais pas le faire fonctionner.
- Sans doute comme cela: x[, 1:2][x[, 1:2] == 1] <- 0
- pourquoi le datatable x accepter une matrice comme premier membre uniquement lors de l'assignation ? Cette fonction est documenté quelque part ? Aussi je pense que vous avez oublié de mettre une virgule avant les vecteurs avec des noms de colonne dans le deuxième exemple.
- Je pense que vous faites référence à la matrice d'indexation (voir ceci par exemple stackoverflow.com/a/13999583/1201032), mais il n'est pas limité aux missions, il peut également être utilisé pour extraire des données. Concernant le manque des virgules: non. Les données.les cadres sont des listes de colonnes ainsi, si vous utilisez un seul argument à [, il va extraire les colonnes spécifiées (voir stackoverflow.com/a/21137524/1201032). J'espère que cela répond à votre question, mais à l'avenir, merci d'éviter les commentaires sur les très vieux réponses comme celui-ci; au lieu de poster une nouvelle question.
- In both cases, 1:2 or c("a", "b") can be replaced by a pre-defined vector. Quand j'ai utilisé une prédéfinis vecteur comme ce x[Vpredefined][is.na(x[Vpredefined])] <- 0 il me donne l'erreur
- peut-être que votre x est une matrice et non pas un ensemble de données.cadre comme ce fut le cas dans cette question?
- Mon x est un ensemble de données.table
InformationsquelleAutor flodel
26

Cela fonctionne pour votre data.table version:
```
for (col in c("a", "b")) y[is.na(get(col)), (col) := 0]
```
Sinon, comme David Arenburg points ci-après, vous pouvez utiliser set (côté des avantages que vous pouvez l'utiliser soit sur data.frame ou data.table):
```
for (col in 1:2) set(x, which(is.na(x[[col]])), col, 0)
```
- merci pour cette. Je voulais juste savoir, 3 ans, si il y a des façons de le faire ci-dessus, sans une boucle for? J'imagine que cela aurait été fait plus concise par des données.le tableau de l'équipe? Merci.
- Je ne sais pas de façon plus concise
- y[ , (cols) := lapply(.SD, function(x){out <- x; out[is.na(out)] <- 0; out}), .SDcols = cols] "saute" de la boucle, mais est assez laid de l'OMI. Le simple fait de mentionner depuis au moins convient le "paradigme" de lapply/.SDcols mises à jour pour data.table. Je suppose qu'on pourrait aussi écrire na.to.0<-function(x){x[is.na(x)]<-0; x} puis faire y[ , (cols) := lapply(.SD, na.to.0), .SDcols = cols]...
- c'est une meilleure solution que la réponse sélectionnée par flodel. Flodel approche utilise l'opérateur d'affectation <- et implique donc inutile de copie de données.
InformationsquelleAutor eddi
15

C'est maintenant négligeable dans tidyr avec replace_na(). La fonction s'affiche à travailler pour les données.les tables et les données.images:
```
tidyr::replace_na(x, list(a=0, b=0))
```
InformationsquelleAutor Robert McDonald
5

Bâtiment sur @Robert McDonald tidyr::replace_na() réponse, voici quelques dplyr options pour contrôler les colonnes de la NAs sont remplacés:
```
library(tidyverse)

# by column type:
x %>%
  mutate_if(is.numeric, ~replace_na(., 0))

# select columns defined in vars(col1, col2, ...):
x %>%
  mutate_at(vars(a, b, c), ~replace_na(., 0))

# all columns:
x %>%
  mutate_all(~replace_na(., 0))
```
- Avec cette fonction, j'obtiens l'Erreur: Error in replace_na(., 0) : argument "value" is missing, with no default. Toutes les suggestions de ce qu'il faut changer?
InformationsquelleAutor sbha
1

Ne sais pas si c'est plus concis, mais cette fonction permettra également de trouver et de permettre le remplacement de NAs (ou une valeur que vous désirez) dans les colonnes de données.tableau:
```
update.mat <- function(dt, cols, criteria) {
  require(data.table)
  x <- as.data.frame(which(criteria==TRUE, arr.ind = TRUE))
  y <- as.matrix(subset(x, x$col %in% which((names(dt) %in% cols), arr.ind = TRUE)))
  y
}
```
Pour l'appliquer à:
```
y[update.mat(y, c("a", "b"), is.na(y))] <- 0
```
La fonction crée une matrice de la sélection des colonnes et des lignes (coordonnées des cellules) qui répondent aux critères d'entrée (dans ce cas, est.na == TRUE).

InformationsquelleAutor Amy M
1

On peut le résoudre en data.table façon avec tidyr::repalce_na fonction et lapply
```
library(data.table)
library(tidyr)
setDT(df)
df[,c("a","b","c"):=lapply(.SD,function(x) replace_na(x,0)),.SDcols=c("a","b","c")]
```
De cette façon, nous pouvons également résoudre coller des colonnes avec NA chaîne. Tout d'abord, nous replace_na(x,""),alors nous pouvons utiliser stringr::str_c de combiner des colonnes!
- Merci pour cet extrait de code, ce qui pourrait fournir quelques limitée, d'une aide immédiate. explication serait grandement améliorer sa valeur à long terme en montrant pourquoi c'est une bonne solution pour le problème et à le rendre plus utile pour les futurs lecteurs avec d'autres, des questions similaires. Veuillez modifier votre réponse à ajouter quelques explications, y compris les hypothèses que vous avez faites.
InformationsquelleAutor young Chen

D'une colonne spécifique, il existe une alternative avec sapply

DF <- data.frame(A = letters[1:5],
             B = letters[6:10],
             C = c(2, 5, NA, 8, NA))

DF_NEW <- sapply(seq(1, nrow(DF)),
                    function(i) ifelse(is.na(DF[i,3]) ==
                                       TRUE,
                                       0,
                                       DF[i,3]))

DF[,3] <- DF_NEW
DF

InformationsquelleAutor Rafa

c'est assez pratique avec {données.table} et {stringr}

library(data.table)
library(stringr)

x[, lapply(.SD, function(xx) {str_replace_na(xx, 0)})]

FYI

InformationsquelleAutor Grec001

-4

cela fonctionne très bien pour moi

DataTable DT = new DataTable();

DT = DT.AsEnumerable().Select(R =>
{
      R["Campo1"] = valor;
      return (R);
}).ToArray().CopyToDataTable();

est-ce R? regarde comme C#

InformationsquelleAutor Juanico Lasa

Vous devez vous connecter pour publier un commentaire.