Tidyverse：根据部分匹配替换整个字符串

我希望使用中的函数根据部分匹配替换数据中的整个字符串条目stringr包裹。

我尝试过的唯一方法是使用替换精确匹配str_replace_all()但当有数十种变化需要纠正时，这就变得乏味且难以处理。我正在寻找基于部分匹配的替换。在下面的代表中，我通过直接指定替换了“西班牙人”和“哥伦比亚人”的变体。但是，我很乐意根据单词中存在“Spa”或“Col”的条件来执行这些替换。

library(tidyverse)
library(stringr)

data <- c(
  "Spanish",
  "SPANIARD",
  "Spainiard",
  "Colombian",
  "Columbian",
  "Ecuador",
  "Equador",
  "Ecuadorian",
  "VENEZUELAN"
)

str_replace_all(data,
                c(
                  "Spanish" = "Spaniard",
                  "SPANIARD" = "Spaniard",
                  "Spainiard" = "Spaniard",
                  "Columbian" = "Colombian"
                ))
#> [1] "Spaniard"   "Spaniard"   "Spaniard"   "Colombian"  "Colombian" 
#> [6] "Ecuador"    "Equador"    "Ecuadorian" "VENEZUELAN"

^{Created on 2019-05-21 by the reprex package https://reprex.tidyverse.org (v0.2.1)}

So str_replace_all()正如所宣传的那样，但我正在寻找一种方法来简化 tidyverse 中的此过程。任何帮助深表感谢。

我更喜欢使用距离测量（例如 Jaro-winkler 距离或其他距离测量），但它们确实有其缺点。对部分匹配可能带来的改变感到厌倦。如果您正在进行部分匹配，那么明智的做法是看看有哪些可能性。但是，您可以使用 tidyverse 中概述的操作case_when with startsWith or grepl:

tibble(data = data) %>%
  mutate(
    v1 = tolower(data),
    new_name = case_when(
      startsWith(v1, "spa") ~ "Spanaird",
      startsWith(v1, "col") ~ "Colombian",
      startsWith(v1, "eq") | startsWith(v1, "ec") ~ "Equadorian",
      startsWith(v1, "ven") ~ "Venezuelan",
      TRUE ~ as.character(data)))

# A tibble: 9 x 3
  data       v1         new_name  
  <chr>      <chr>      <chr>     
1 Spanish    spanish    Spanaird  
2 SPANIARD   spaniard   Spanaird  
3 Spainiard  spainiard  Spanaird  
4 Colombian  colombian  Colombian 
5 Columbian  columbian  Colombian 
6 Ecuador    ecuador    Equadorian
7 Equador    equador    Equadorian
8 Ecuadorian ecuadorian Equadorian
9 VENEZUELAN venezuelan Venezuelan

要查看可能性，您可以执行此操作（或其他一些操作）：

tibble(data = data) %>%
  arrange(data) %>%
  count(tolower(data))