基本R方法是使用apply进行索引，其中grepl跨行：

XDF[apply(XDF, 1, function(x) grepl(x[2], x[1])),]

#  Xsz Xal
#1   A A|B
#3   C B|C

看起来你想用Xal作为正则表达式的模式。你不能很容易地用grepl来做这个，因为它一次搜索一个模式，你有一个模式向量。你可以用stringr::str_detect()来代替。

library(tidyverse)       
Xsz<-c("A", "B", "C")
Xal<-c("A|B", "A|C", "B|C")
XDF<-data.frame(Xsz,Xal)  

XDF %>%
  filter(str_detect(Xsz, pattern = Xal))
#>   Xsz Xal
#> 1   A A|B
#> 2   C B|C

创建于2023年3月1日，使用reprex v2.0.2

另一个基本R选项使用sapply和grepl，如下所示：

XDF[diag(sapply(XDF$Xsz, \(x) grepl(x, XDF$Xal, fixed = TRUE))),]
#>   Xsz Xal
#> 1   A A|B
#> 3   C B|C

创建于2023年3月1日，使用reprex v2.0.2

如果需要完全匹配，您可以

XDF %>% group_by(Xsz) %>% filter(Xsz %in% strsplit(Xal, "|")[[1]])

• • 结果**

# A tibble: 2 × 2
# Groups:   Xsz [2]
  Xsz   Xal  
  <chr> <chr>
1 A     A|B  
2 C     B|C

• • 数据**

XDF <- data.frame(
  Xsz = c("A", "B", "C", "AA"),
  Xal = c("A|B", "A|C", "B|C", "A|B")
)