许多调查都有不同种类的缺失值代码，比如，代码手册可能会显示：
0-99 数据
-1 未提问
-5 不知道
-7 拒绝回答
-9 未参与模块
Stata具有处理这些多种缺失的美妙功能，它允许您将一个通用的“.”分配给缺失数据，但是也允许使用更具体的缺失类型（.a，.b，.c，...，.z）。所有查看缺失的命令都报告了所有指定的缺失条目的答案，但是您以后也可以区分各种缺失类型。当您认为拒绝回答对补全策略具有不同的影响时，这特别有帮助。
我从未在R中遇到过这样的功能，但我真的很想拥有这种能力。是否有标记几种不同类型NA的方法？我可以想象创建更多的数据（长度为nrow(my.data.frame)的向量，其中包含不同类型的缺失，或者更紧凑的索引，指示哪些行具有哪些类型的缺失），但这似乎非常笨拙。
我知道您想要什么，但在R中没有实现这个功能。我不知道是否有已经实现了这个功能的包，但是自己编写也不难。
一个可行的方法是将包含代码的数据框添加到属性中。为了防止整个数据框被重复并节省空间，我会在该数据框中添加索引，而不是重新构建完整的数据框。
例如：
NACode <- function(x,code){
Df <- sapply(x,function(i){
i[i %in% code] <- NA
i
})
id <- which(is.na(Df))
rowid <- id %% nrow(x)
colid <- id %/% nrow(x) + 1
NAdf <- data.frame(
id,rowid,colid,
value = as.matrix(x)[id]
)
Df <- as.data.frame(Df)
attr(Df,"NAcode") <- NAdf
Df
}
> Df <- data.frame(A = 1:10,B=c(1:5,-1,-2,-3,9,10) )
> code <- list("Missing"=-1,"Not Answered"=-2,"Don't know"=-3)
> DfwithNA <- NACode(Df,code)
> str(DfwithNA)
'data.frame': 10 obs. of 2 variables:
$ A: num 1 2 3 4 5 6 7 8 9 10
$ B: num 1 2 3 4 5 NA NA NA 9 10
- attr(*, "NAcode")='data.frame': 3 obs. of 4 variables:
..$ id : int 16 17 18
..$ rowid: int 6 7 8
..$ colid: num 2 2 2
..$ value: num -1 -2 -3
该函数还可以调整以添加一个额外的属性，为不同的值提供标签。详见此问题。您可以通过以下方式进行反转换：
ChangeNAToCode <- function(x,code){
NAval <- attr(x,"NAcode")
for(i in which(NAval$value %in% code))
x[NAval$rowid[i],NAval$colid[i]] <- NAval$value[i]
x
}
> Dfback <- ChangeNAToCode(DfwithNA,c(-2,-3))
> str(Dfback)
'data.frame': 10 obs. of 2 variables:
$ A: num 1 2 3 4 5 6 7 8 9 10
$ B: num 1 2 3 4 5 NA -2 -3 9 10
- attr(*, "NAcode")='data.frame': 3 obs. of 4 variables:
..$ id : int 16 17 18
..$ rowid: int 6 7 8
..$ colid: num 2 2 2
..$ value: num -1 -2 -3
这样可以只更改您想要的代码，如果有必要的话。当没有参数时，该函数可以适应返回所有代码。可以构建类似的函数来基于代码提取数据，我猜你自己可以想出那个。
但简单来说：使用属性和索引可能是一种不错的方法。
NA - 就像 @Ralph 建议的那样。 - aL3xaattr添加到您的数据中是最终解决方案（尽管它仍然是一种解决方法）...我的回答真是无用啊！=） - aL3xa我通常将它们用作值，正如Ralph已经建议的那样，因为缺失值的类型似乎是数据，但在一两个场合，我主要想用它来进行文档记录，所以我已经在值上使用了一个属性，例如：
> a <- NA
> attr(a, 'na.type') <- -1
> print(a)
[1] NA
attr(,"na.type")
[1] -1
code列表可以接受NAs而不仅仅是负整数和正整数，那将会很好。 - Matt Bannert