Как объединить фреймы данных, используя префикс в качестве совпадения?

Вы можете использовать fuuzy_inner_join с str_detect в качестве функции сопоставления. Символ «^» взят из регулярного выражения и означает начало строки, поэтому нам нужно добавить его к вашему шаблону, чтобы сопоставлять только строки, начинающиеся с paste.

library(fuzzyjoin)
library(tidyverse)

fuzzy_inner_join(data, selection, by = c("x" = "x_prefix"), 
                 match_fun = \(x, y) str_detect(x, paste0("^", y))) |> 
  select(-x_prefix)

# A tibble: 2 x 2
  x       type      
  <chr>   <chr>     
1 ANOTHER One type  
2 COMMON  Other type

Очевидным решением является создание временного столбца x_prefix и внутреннего соединения по нему.

data %>%
  mutate(x_prefix = substr(x, 1, 1)) %>%
  inner_join(selection, by = "x_prefix") %>%
  select(-x_prefix)
#> # A tibble: 2 x 2
#>   x       type      
#>   <chr>   <chr>     
#> 1 ANOTHER One type  
#> 2 COMMON  Other type

Решение на базе R (но может быть не таким эффективным с точки зрения памяти из-за outer)

> (d <- outer(data$x, selection$x_prefix, Vectorize(startsWith)))
      [,1]  [,2]  [,3]
[1,]  TRUE FALSE FALSE
[2,] FALSE FALSE  TRUE
[3,] FALSE FALSE FALSE

> (idx <- rowSums(col(d) * d))
[1] 1 3 0

> cbind(data[idx > 0, ], selection[idx[idx > 0], "type"])
        x       type
1 ANOTHER   One type
2  COMMON Other type