r - R: 尽管有 !is.na 还是返回了 NA

Question

我有一个简单的数据框：

> df <- data.frame(i=c(1:20), x=c(1:10, rep(NA, 10)))
> df
    i  x
1   1  1
2   2  2
3   3  3
4   4  4
5   5  5
6   6  6
7   7  7
8   8  8
9   9  9
10 10 10
11 11 NA
12 12 NA
13 13 NA
14 14 NA
15 15 NA
16 16 NA
17 17 NA
18 18 NA
19 19 NA
20 20 NA

我想提取非 NA 部分的行名，我可以执行以下操作：

> rownames(df[c(1:20),][!is.na(df$x),])
 [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"

到目前为止，一切都很好。现在我想跳过第一行，但由于某种原因，该命令返回相同长度的输出，现在甚至包含一个 NA 单元格。

> rownames(df[c(2:20),][!is.na(df$x),])
 [1] "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10" "11"

获得相同大小的向量甚至包含假定排除行的向量是没有意义的。正如您在上面的数据框中看到的那样，df$x[11] 绝对是 NA，那么为什么它包含 !is.na() 通常应该去掉的东西？更具体地说：我正在尝试观察数据框的提取，但排除包含 NA 的行。我会很高兴每一条建议！

Answer 1

我们可以rownames直接从逻辑输出中提取

tail(rownames(df)[!is.na(df$x)], -1)
#[1] "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"

或者tail，我们可以使用

rownames(df)[!is.na(df$x)][-1]
#[1] "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"

Answer 2

问题是!is.na(df$x)索引到df，而不是df[c(2:20)。!is.na(df$x)前 10 个元素为真。因此，rownames(df[c(2:20),][!is.na(df$x),])返回元素 2 到 11 的行名df。

df2 <- df[c(2:20),]
rownames(df2[!is.na(df2$x),])    

# [1] "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"