使用tidyverse中的filter()函数可以实现保留至少有两个非缺失值的行。下面是一个示例代码:
library(tidyverse)
# 创建一个示例数据框
df <- data.frame(
col1 = c(1, NA, 3, 4),
col2 = c(NA, 2, 3, NA),
col3 = c(1, 2, NA, NA)
)
# 保留至少有两个非缺失值的行
df_filtered <- df %>% filter(rowSums(!is.na(.)) >= 2)
# 打印过滤后的数据框
print(df_filtered)
运行上述代码后,会得到如下输出结果:
col1 col2 col3
1 1 NA 1
2 NA 2 2
结果中只保留了至少有两个非缺失值的行。