Подставить фактор по уровням NA

Question

У меня есть коэффициент R, с уровнем NA.

set.seed(1)
x <- sample(c(1, 2, NA), 25, replace=TRUE)
x <- factor(x, exclude = NULL)
> x
 [1] 1    2    2    <NA> 1    <NA> <NA> 2    2    1    1   
[12] 1    <NA> 2    <NA> 2    <NA> <NA> 2    <NA> <NA> 1   
[23] 2    1    1   
Levels: 1 2 <NA>

Как мне установить этот коэффициент на уровень <NA>? Оба метода, которые я попробовал, не сработали.

> x[is.na(x)]
factor(0)
Levels: 1 2 <NA>
> x[x=='<NA>']
factor(0)
Levels: 1 2 <NA>

Answer 1

Удивительно для меня, что ваши попытки сделать это не сработали, но, похоже, это:

x[is.na(levels(x)[x])]

Я попал туда, посмотрев на str(x) и увидев, что уровни являются NA, а не базовыми кодами:

str(x)
 Factor w/ 3 levels "1","2",NA: 1 2 2 3 1 3 3 2 2 1 ...

Answer 2

Как продолжение до Бена:

str(x) показывает вам проблему. Факторы хранятся в виде целых чисел с помощью своего рода «поиска». Итак:

> all(is.na(x))
[1] FALSE

но

> any(is.na(levels(x)))
[1] TRUE

и, как показал бен, вывести фактические значения вектора:

> levels(x)[x]
 [1] "1" "2" "2" NA  "1" NA  NA  "2" "2" "1" "1" "1" NA  "2" NA  "2" NA  NA  "2" NA  NA       "1" "2" "1" "1"

против

> x
 [1] 1    2    2    <NA> 1    <NA> <NA> 2    2    1    1    1    <NA> 2    <NA> 2    <NA> <NA> 2    <NA> <NA> 1    2    1    1
Levels: 1 2 <NA>