Question

我试图同时基于多个列中的向量值（来自循环）来过滤数据帧。

由于这是循环发生的，因此以下是相关步骤：

name.id = NamesList$`First Name` [i]

在上面，我确定了要在此循环中传递的唯一行（名称）。

接下来，我想根据我的数据框（在此示例中称为test.df）对该值进行过滤，以在所有以'x'开头的列中查找（因为在实际应用程序中将有3个以上）目标名称在“ A”组中出现的行。

output.df = test.df %>% filter(grepl('A', Group) & (c(x1, x2, x3) %in% name.id))

例如，使用下面的示例数据，对于循环的第一遍，“ JOE”将被标识并过滤。我知道我可以创建一个长列表，上面写着x1％in％name.id，x2％in％name.id，但是会有5列以上的列，而且我知道有比这更优雅的方法来引用要过滤的列。

样本数据：

x1 <- c('JOE','JOE','JOE','JOE', 'JOE', 'JOE', 'JOE', 'JOE', 'JOE', 'JOE', '','','','', 'FRED','FRED','FRED','FRED', 'FRED','FRED','JOE','JOE', 'FRED','FRED','JOE','JOE')

x2 <- c('ERIC','ERIC','ERIC','ERIC', 'ERIC', 'ERIC', 'ERIC', 'ERIC', 'ERIC', 'ERIC', '','','','', 'JOE','JOE','JOE','RON', 'RON','RON','RON','RON', 'RON','RON','FRED','FRED')

x3 <- c('SARAH','SARAH','SARAH','SARAH', 'SARAH', 'SARAH', 'SARAH', 'JOE', 'JOE', 'JOE', 'JOE','','','', 'JAY','JAY','JAY','JAY', 'JAY','JAY','JAY','JAY','JAY','','RON','RON')

State <- c('1','1','1','1', '1', '1', '1', '1', '1', '1', '2','2','2','2', '2','2','2','2', '2','2','2','2', '2','1','1','1')

Group <- c('A','A','A','B', 'B', 'B', 'A', 'B', 'A', 'B', 'A','A','A','B', 'A','A','A','B', 'NA','B','B','B', 'B', 'A','B','A')

test.df=cbind.data.frame(x1, x2, x3, State, Group)

Answer 1

使用tidyverse。

require(tidyverse)

dta <- data_frame(State, Group, x1, x2, x3)
dta %>% 
    gather(key = "key", value = "value", x1:x3) %>%
    filter(value %in% [condition to match])

gather函数将三列x1，x2，x3移到包含键值对的两列中。然后，您可以仅在值列上进行过滤。

R中多列中的过滤值

1 个答案: