代码之家 › 专栏 › 技术社区 › antecessor

选择r中多个列中包含complete.cases的行[重复]

antecessor · 技术社区 · 8 年前

让我们从一些数据开始,使示例重现:

x <- structure(list(DC1 = c(5, 5, NA, 5, 4, 6, 5, NA, 4, 6, 6, 6, 
5, NA, 5, 5, 7), DC2 = c(4, 7, 4, 5, NA, 4, 6, 4, 4, 5, 5, 5, 
5, NA, 6, 5, 5), DC3 = c(4, 7, 4, 4, NA, 4, 5, 4, 5, 4, 5, 5, 
6, 4, 6, 6, 5), DC4 = c(4, 7, 5, NA, NA, 4, 6, 5, 5, 4, 3, 4, 
6, 5, 5, 6, 3), DC5 = c(7, 8, 5, NA, NA, 10, 7, 6, 8, 6, 6, 7, 
11, 10, 5, 7, 6), DC6 = c(8, 8, NA, NA, NA, 11, 9, 8, 9, 9, 10, 
10, 12, 16, 6, 8, 9), DC7 = c(10, 10, 10, NA, NA, 8, 9, 8, 13, 
8, 11, 9, 14, 13, 8, 8, 11), DC8 = c(17, 10, 10, NA, NA, 10, 
10, 10, 15, 10, 14, 11, 23, 15, 14, 13, 14), DC9 = c(16, 9, 9, 
NA, NA, 12, 13, 11, 13, 15, 15, 13, 17, 15, 25, 17, 12)), .Names = c("DC1", 
"DC2", "DC3", "DC4", "DC5", "DC6", "DC7", "DC8", "DC9"), class = "data.frame", row.names = c(NA, 
-17L))

如何过滤数据框,将包含数据的行从列DC3保留到列DC10?

3 回复 | 直到 8 年前

akrun 8 年前

我们可以对数据进行子集并应用 complete.cases

x[complete.cases(x[3:9]),]

或使用列名

x[complete.cases(x[paste0("DC", 3:9)]),]

sbha 8 年前

这是一个 dplyr 选项:

library(dplyr)
x %>% 
  filter_at(vars(DC3:DC9), all_vars(!is.na(.)))

或:

x %>% 
  filter_at(vars(DC3:DC9), all_vars(complete.cases(.)))

这里有一个 tidyr 选项:

x %>% tidyr::drop_na(DC3:DC9)

Ferand Dalatieh 8 年前

你可以用函数 str_extract 从包 stringr ,它可以从数据帧中的列名中提取数字。

# get number from column name
col_num <- as.numeric(stringr::str_extract(names(x), "\\d"))

# rows that contain data from column DC3 to DC10
x[(col_num >= 3) & (col_num < 10)]

编辑注释: 安装 桁条 请使用 install.packages("stringr")

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前