如何从 select 列组中删除 na？

Question

非常新手 R 用户在这里。 我有一个数据集，并希望避免大量减少我的数据集（如果我使用 na.omit 或 complex.cases，它会删除所有包含 na 的行，这会大大缩小我的数据集）。 我只想删除与我的项目直接相关的列中的 na。 可以说第 1 列和第 2 列是相关的。 我尝试使用 foo2 <- na.omit(foo1[-3:-4]) 但遇到错误“警告，在 3:4 中，数值表达式有 2 个元素，只会使用第一个元素” .

我想从这个 go

       column 1    column 2   column 3   column 4

 1         NA         4           3         9
 2         5          NA          NA        10
 3         8          10          NA        4
 4         11         6           2         NA

对此

        column 1    column 2   column 3   column 4

    3      8          10          NA        4
    4      11         6           2         NA

因此，它没有删除每一行，而是只删除了第 1 行和第 2 行。

先感谢您。

Answer 1

我们可以使用complete.cases在列子集上返回一个逻辑向量（TRUE/FALSE - 对应于行中没有 NA/任何 NA），并将其用作行索引来子集整个数据集

df1[complete.cases(df1[c('column1', 'column2')]),]
#    column1 column2 column3 column4
#3       8      10      NA       4
#4      11       6       2      NA

---

应用于列子集的na.omit仅返回该子集数据没有任何 NA 的数据，而不是完整数据集。

数据

df1 <- data.frame(column1=c(NA,5,8,11),column2=c(4,NA,10,6),
         column3=c(3,NA,NA,2),column4=c(9,10,4,NA))

Answer 2

将df定义为 dataframe，您可以确定 column1 和 column2 都不是 NA 的行，然后进行选择：

df <- data.frame(column1=c(NA,5,8,11),column2=c(4,NA,10,6),column3=c(3,NA,NA,2),column4=c(9,10,4,NA))

df[with(df, !is.na(column1) & !is.na(column2)),]
  column1 column2 column3 column4
3       8      10      NA       4
4      11       6       2      NA

Answer 3

您可以使用drop_na package 中的tidyr ：

library(tidyr) # alternatively, you can load it from the tidyverse package

df <- tibble(
  col1 = c(NA_real_, 5, 8, 11),
  col2 = c(4, NA_real_, 10, 6),
  col3 = c(3, NA_real_, NA_real_, 2),
  col4 = c(9, NA_real_, 4, NA_real_)
)

drop_na(df, col1, col2)

# # A tibble: 2 x 4
#    col1  col2  col3  col4
#   <dbl> <dbl> <dbl> <dbl>
# 1     8    10    NA     4
# 2    11     6     2    NA