R语言中可以使用is.na()函数来判断数据是否为NA类型。但是，有时需要进一步判断NA数据的类型，可以使用下面的代码示例：

创建一个包含不同类型NA数据的向量

na_vec <- c(NA, NaN, Inf, -Inf)

判断每个元素是否为NA类型

is.na(na_vec) [1] TRUE TRUE FALSE FALSE

判断每个元素的NA类型

sapply(na_vec, function(x) ifelse(is.na(x), ifelse(is.nan(x), "NaN", ifelse(is.infinite(x) & x > 0, "+Inf", "-Inf")), "Not NA"))

该示例代码将向量中的每个元素判断为是否为NA类型，并返回该元素的NA类型。如果元素为NaN，则返回字符串“NaN”；如果元素为正无穷，则返回字符串“+Inf”；如果元素为负无穷，则返回字符串“-Inf”；如果元素为非NA类型，则返回字符串“Not NA”。