如何在R的列中合并具有特定字符串匹配的两个数据框？

library(dplyr)
library(stringr)

df1 <- data.frame(ID = c(1, 2, 3),
                  Name = c("John Doe", "Jane Smith", "Mike Johnson"))

df2 <- data.frame(ID = c(2, 3, 4),
                  Address = c("123 Main St", "456 Oak Ave", "789 Elm Dr"))

pattern <- "Smith"  # 指定要匹配的特定字符串
matches <- str_detect(df1$Name, pattern)  # 创建逻辑向量

filtered_df1 <- df1 %>% filter(matches) %>% select(ID, Name)
filtered_df2 <- df2 %>% filter(matches) %>% select(ID, Address)

merged_df <- left_join(filtered_df1, filtered_df2, by = "ID")