r - 如何获得匹配的字符？

Question

我正在尝试从两个单独的向量中获取常用字符。

例子:

x <- c("abcde")
y <- c("efghi")
df <- data.frame(x, y)

期望的输出

    x       y     z 
abcde   efghi     e     
lmnop   uvmxw     m

我试过这样的事情，但结果很糟糕:

df |> mutate(m = unique(x, y))

如果有多个匹配项，返回一个列表会很好。

Answer 1

str_intersect <- function(s1,s2) {
  paste0(intersect(strsplit(s1,"")[[1]],strsplit(s2,"")[[1]]),collapse = "")
}

x <- c("abcde","abc")
y <- c("efghi","b")
df <- data.frame(x, y)

library(dplyr)
df %>%
  rowwise() %>%
  mutate(m = str_intersect(x,y))