Question

我有一个数据框中的列列表，我想检查所有这些列是否为NA并创建一个新列，告诉我它们是否为NA。

以下是使用一列的示例，其中Any_Flag是我的新列：

ItemStats_2014$Any_Flag <- ifelse(is.na(ItemStats_2014$Item_Flag_A), "Y", "N")

当我尝试对多列进行检查时，我得到了我期望的结果：

ItemStats_2014$Any_Flag <- ifelse(all(is.na(ItemStats_2014[ ,grep("Flag", names(ItemStats_2014), value = T)])), "Y", "N")

它将所有内容返回为false或＆＃34; N＆＃34;。

Answer 1

我不确定grep部分应该做什么，但这是一种更简单的方法来实现您的目标：

 apply(ItemStats_2014[, 2:10], MARGIN = 1, FUN = function(x) all(is.na(x)))

将2:10替换为您要检查的列。

修正案：如果你想检测哪些列包含单词＆＃34; Flag＆＃34;而不是硬编码他们的指数 - 无论如何会更好！ - 我喜欢使用包stringr来处理文本。您可以这样做以选择列：

 library(stringr)
 MyCols <- which(str_detect(names(ItemStats_2014), "Flag"))

现在，将2:10替换为上面MyCols代码中的apply(...。

Answer 2

我认为您正在尝试测试行（不是列）是否包含至少一个NA。

这是一个数据集

x = c(1:10, NA)
df = data.frame(A = sample(x), B = sample(x), C = sample(x))

这是一个用anyNA

测试的循环

df$Any_na = apply(df[,2:3], 1, anyNA)
df

    A  B  C Any_na
1  NA  8  9  FALSE
2   5  9 NA   TRUE
3   9  3 10  FALSE
4   7  5  1  FALSE
5   4  2  3  FALSE
6  10  4  6  FALSE
7   3  1  2  FALSE
8   6  6  5  FALSE
9   1 10  7  FALSE
10  2 NA  8   TRUE
11  8  7  4  FALSE

Answer 3

数据

set.seed(1) data <- c(LETTERS, NA) df <- data.frame(Flag_A = sample(data), Flag_B = sample(data), C = sample(data), D = sample(data), Flag_E = sample(data)) df <- rbind(NA, df)

<强>代码

识别每行的所有NA：

> df$All_NA <- apply(df[, grep("Flag", names(df))], 1, function(x) all(is.na(x))) > head(df) Flag_A Flag_B C D Flag_E All_NA 1 <NA> <NA> <NA> <NA> <NA> TRUE 2 H K B T Y FALSE 3 J W C K P FALSE 4 O I H I <NA> FALSE 5 V L M S R FALSE 6 E N P E I FALSE

每行至少识别一个NA：

> df$Any_NA <- apply(df[, grep("Flag", names(df))], 1, function(x) anyNA(x)) > head(df) Flag_A Flag_B C D Flag_E Any_NA 1 <NA> <NA> <NA> <NA> <NA> TRUE 2 H K B T Y FALSE 3 J W C K P FALSE 4 O I H I <NA> TRUE 5 V L M S R FALSE 6 E N P E I FALSE

Answer 4

没有任何data.table的{{1}}方式是：

apply

Answer 5

这可能会帮助您入门：

# Sample dataframe
dfx <- data.frame(
x = c(21L, 21L, 21L, 22L, 22L, NA),
y = c(1449, 1814, 582, 582, 947, 183),
s = c(26.4, 28.7, 32, 25.3, NA, 25.7),
z = c(NA,NA,NA,NA,NA,NA)
)

# Sapply works well here 
ifelse(sapply(dfx, function(x)all(is.na(x))) == TRUE, "Y","N")

输出：

 x   y   s   z 
"N" "N" "N" "Y"

r - 检查每列是否为na

5 个答案: