从列表中给出的字符串中提取子字符串

Question

我有两个小标题，一个带有一些长度不均匀的系列代码，一个带有国家/地区代码

codes <- as.tibble(c("brcomec", "frcomopf", "decombwf", "ezcomop", 
       "jpcomop", "aewheob", "ezcompis", "decomipf"))
countries <- as.tibble(c("br", "fr", "advecos", "af", "africa", "al", "dz", "as", "ad", 
                     "ao", "ai", "aq", "ag"))

根据国家/地区的信息，我如何从“代码”中提取国家/地区，即我希望有类似的东西

dta <- data.frame( 
~country , ~ rest , 
br       , comec  ,
fr       , comopf ,
...
) 

我尝试使用 filter(str_detect(code, paste(countries))) 但这没有成功，因此非常感谢任何帮助。

Answer 1

你想要这样的东西吗？

library(tidyverse)
codes1 <- substr(codes$value, start = 1, stop = 2)
codes2 <- substr(codes$value, start = 3, stop = 10)

codes3 = tibble(codes1, codes2)
codes3

哪个返回这个？

# A tibble: 8 x 2
  codes1 codes2
  <chr>  <chr> 
1 br     comec 
2 fr     comopf
3 de     combwf
4 ez     comop 
5 jp     comop 
6 ae     wheob 
7 ez     compis
8 de     comipf