R：使用列表列的匹配值列表过滤数据框

Question

I'm new to R and have a Problem I just don't seem to get solved..

I have a table like this:

issue | teams
-------------
A     | team-A,team-B
B     | team-C
C     | team-A
D     | team-A,team-B
E     | team-B

The column teams is of the type "list" Now I have another "list" with teams the current user is in. For example "team-B,team-C" . What I want to achive is to filter the dataframe that it only shows rows where the teams the current user is in have at least on match in the teams-column. In this examle the output should be:

issue | teams
-------------
A     | team-A,team-B
B     | team-C
D     | team-A,team-B
E     | team-B

I tried with intersect which gives me on a length-check a boolean ("length(intersect(my_teams,teams)).= 0"). But if I use this in a dplyr-Filter it doesn't work, I think I didn't understand the data-structures with lists, vectors. dataframes and so on fully and their different behaviour in dataframes. As I said I'm just starting with R? Could someone give me a hand or hint how I can solve this filtering, I'm sure it's pretty easy, but I'm out of google-Skills ^^

Thanks in Advance!

Answer 1

If we have a list column, we can loop over the list with sapply to create a logical vector for subset ting

v1 <- c("team-B", "team-C")
subset(df1, sapply(teams, \(x) any(v1 %in% x)))

-output

 issue          teams
1     A team-A, team-B
2     B         team-C
4     D team-A, team-B
5     E         team-B

---

Or using tidyverse

library(dplyr)
library(purrr)
df1 %>% 
  filter(map_lgl(teams, ~ any(v1 %in% .x)))
  issue          teams
1     A team-A, team-B
2     B         team-C
3     D team-A, team-B
4     E         team-B

data

df1 <- structure(list(issue = c("A", "B", "C", "D", "E"), teams = list(
    c("team-A", "team-B"), "team-C", "team-A", c("team-A", "team-B"
    ), "team-B")), row.names = c(NA, -5L), class = "data.frame")