使用来自另一个数据帧的完整条目更新列中的字段，其中找到匹配的前几个字符

Question

我有一个英国邮编行业数据列表，如下所示

tbody> <<tr>

PostcodeSector
PE4 5
PE28 8

library(dplyr)
library(stringr)
data  <-
tibble::tribble(
~PostcodeSector,
"PE4 5",
"PE28 8"
)
postcode <- c("PE4 5BS", "PE28 8LN", "PE4 8DB", "LA2 8LN")
data %>% 
rowwise() %>% 
mutate(PostcodeSector = postcode[which(str_detect(postcode,PostcodeSector))] )
# A tibble: 2 x 1
# Rowwise: 
PostcodeSector
<chr>         
1 PE4 5BS       
2 PE28 8LN