从列表组合中选择数据框中的行 [英] Selecting rows from a data frame from combinations of lists

问题描述

我有一个数据框，dat:

I have a dataframe, dat:

dat<-data.frame(col1=rep(1:4,3),
                col2=rep(letters[24:26],4),
                col3=letters[1:12])

我只想使用数据帧filter中各行给出的组合来过滤两个不同列上的dat:

I want to filter dat on two different columns using ONLY the combinations given by the rows in the data frame filter:

filter<-data.frame(col1=1:3,col2=NA)
lists<-list(list("x","y"),list("y","z"),list("x","z"))
filter$col2<-lists

例如，将选择包含(1，x)和(1，y)的行，但不选择(1，z)，(2，x)或(3，y).

So for example, rows containing (1,x) and (1,y), would be selected, but not (1,z),(2,x), or (3,y).

我知道如何使用for循环:

I know how I would do it using a for loop:

#create a frame to drop results in
results<-dat[1,]
for(f in 1:nrow(filter)){
  temp_filter<-filter[f,]
  temp_dat<-dat[dat$col1==temp_filter[1,1] &
                dat$col2%in%unlist(temp_filter[1,2]),]
  results<-rbind(results,temp_dat)
}

或者，如果您更喜欢dplyr风格:

Or if you prefer dplyr style:

require(dplyr)
results<-dat[0,]
for(f in 1:nrow(filter)){
  temp_filter<-filter[f,]
  temp_dat<-filter(dat,col1==temp_filter[1,1] & 
  col2%in%unlist(temp_filter[1,2])
  results<-rbind(results,temp_dat)
}

结果应返回

  col1 col2 col3
1    1    x    a
5    1    y    e
2    2    y    b
6    2    z    f
3    3    z    c
7    3    x    g

我通常会使用合并来进行过滤，但是由于我必须对照列表而不是单个值来检查col2，所以我现在不能. for循环有效，但我认为可能会有更有效的方法，可能使用apply或do.call的某些变体.

I would normally do the filtering using a merge, but I can't now since I have to check col2 against a list rather than a single value. The for loop works but I figured there would be a more efficient way to do this, probably using some variation of apply or do.call.

推荐答案

主要是在dplyr的帮助下进行的:

mostly base with a little help from dplyr:

dplyr::setdiff(dat,merge(dat,setNames(as.data.frame(filter),names(dat)[1:2])))

  col1 col2 col3
1    4    x    d
2    1    y    e
3    2    z    f
4    3    x    g
5    4    y    h
6    1    z    i
7    2    x    j
8    3    y    k
9    4    z    l

一个真正的基础R解决方案，虽然不是那么漂亮，但是却失去了行顺序:

A real base R solution though not so pretty and you lose the row order:

subset(merge(dat,`[[<-`(setNames(as.data.frame(filter),names(dat)[1:2]),"x",value=1),all.x=T),is.na(x),-4)

   col1 col2 col3
2     1    y    e
3     1    z    i
4     2    x    j
6     2    z    f
7     3    x    g
8     3    y    k
10    4    x    d
11    4    y    h
12    4    z    l

这篇关于从列表组合中选择数据框中的行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！