Вопрос по r – Установите NA на 0 в R

19

После объединения кадра данных с другим им остается случайный NA для случайной строки. Я хотел бы установить эти NA равными 0, чтобы я мог выполнять вычисления с ними.

Я пытаюсь сделать это с:

    bothbeams.data = within(bothbeams.data, {
      bothbeams.data$x.x = ifelse(is.na(bothbeams.data$x.x) == TRUE, 0, bothbeams.data$x.x)
      bothbeams.data$x.y = ifelse(is.na(bothbeams.data$x.y) == TRUE, 0, bothbeams.data$x.y)
    })

Где $ x.x - это один столбец, а $ x.y - другой, конечно, но это, похоже, не работает.

Ваш Ответ

4   ответа
47

is.na заменить непосредственно на подмножество:

bothbeams.data[is.na(bothbeams.data)] <- 0

Или с воспроизводимым примером:

dfr <- data.frame(x=c(1:3,NA),y=c(NA,4:6))
dfr[is.na(dfr)] <- 0
dfr
  x y
1 1 0
2 2 4
3 3 5
4 0 6
7

mutate_all отdplyr если вы хотите добавить это к вашемуdplyr трубопровод:

library(dplyr)
df %>%
  mutate_all(funs(ifelse(is.na(.), 0, .)))

Result:

   A B C
1  1 1 2
2  2 2 5
3  3 1 2
4  0 2 0
5  1 1 0
6  2 2 0
7  3 1 3
8  0 2 0
9  1 1 3
10 2 2 3
11 3 1 0
12 0 2 3
13 1 1 4
14 2 2 4
15 3 1 0
16 0 2 0
17 1 1 1
18 2 2 0
19 3 1 2
20 0 2 0

Если в любом случае вы хотите заменить только NA в числовых столбцах, что, как я полагаю, может иметь место в моделировании, вы можете использоватьmutate_if:

library(dplyr)
df %>%
  mutate_if(is.numeric, funs(ifelse(is.na(.), 0, .)))

или в базе R:

replace(is.na(df), 0)

Result:

   A  B C
1  1  0 2
2  2 NA 5
3  3  0 2
4  0 NA 0
5  1  0 0
6  2 NA 0
7  3  0 3
8  0 NA 0
9  1  0 3
10 2 NA 3
11 3  0 0
12 0 NA 3
13 1  0 4
14 2 NA 4
15 3  0 0
16 0 NA 0
17 1  0 1
18 2 NA 0
19 3  0 2
20 0 NA 0

Data:

set.seed(123)
df <- data.frame(A=rep(c(0:3, NA), 5), B=rep(c("0", "NA"), 10), C=c(sample(c(0:5, NA), 20, replace = TRUE)))
1

кажется, что вы всегда должны создавать промежуточное звено при выполнении вычислений для NA-содержащих фреймов данных.

Например, добавление двух столбцов (A и B) вместе из фрейма данныхdfr:

temp.df <- data.frame(dfr) # copy the original
temp.df[is.na(temp.df)] <- 0
dfr$C <- temp.df$A + temp.df$B # or any other calculation
remove('temp.df')

Когда я делаю это, я потом выбрасываю промежуточноеremove/rm.

-2

  na.zero <- function (x) {
        x[is.na(x)] <- 0
        return(x)
    }
    na.zero(df)
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded

Похожие вопросы