nato <- c("alpha", "bravo", "charlie", "delta", "echo", "foxtrot", "golf", "hotel", "india", "juliett", "kilo", "lima", "mike", "november", "oscar", "papa", "quebec", "romeo", "sierra", "tango", "uniform", "victor", "whiskey", "x-ray", "yankee", "zulu")
tr <- setNames(nato, letters)

stringr::str_replace_all(notation, "[a-z]", ~ tr[.x])
# [1] "1.delta4 Nfoxtrot6 2.charlie4 echo6 3.golf3 delta5 4.Bgolf2 Becho7 5.Nfoxtrot3 0-0 6.0-0 deltax-raycharlie4 7.Qcharlie2 alpha6 8.Qx-raycharlie4 bravo5 9.Qcharlie2 Bbravo7 10.Bdelta2 Ralpha7"

[a-z]将只匹配小写字母。str_replace_all的第三个参数是模式匹配的替换值。不经常使用的是你可以提供一个函数（从?str_replace_all）：
或者，提供一个函数，该函数将为每个匹配（从右到左）调用一次，其返回值将用于替换匹配。

基本R使用gregexpr和regmatches：

phonetic <- c(a="alpha", b="bravo", c="charlie", d="delta", e="echo", f="foxtrot", g="golf", h="hotel")
gre <- gregexpr(paste0("[", paste(names(phonetic), collapse=""), "]"), notation)
regmatches(notation, gre)[[1]] <- phonetic[ regmatches(notation, gre)[[1]] ]
notation
# [1] "1.delta4 Nfoxtrot6 2.charlie4 echo6 3.golf3 delta5 4.Bgolf2 Becho7 5.Nfoxtrot3 0-0 6.0-0 deltaxcharlie4 7.Qcharlie2 alpha6 8.Qxcharlie4 bravo5 9.Qcharlie2 Bbravo7 10.Bdelta2 Ralpha7 "

我使用了看起来更复杂的paste(names(phonetic),collapse="")，因为您的示例包含了语音字母表的一个子集。如果您使用的是完整（a-z）版本，则不需要：

gre <- gregexpr("[a-z]", notation)
# ...

这个答案使用dplyr和stringr通过将你的国际象棋符号转换成一个棋盘格来进行替换。这种方法的好处是让你更好地控制被替换的文本，因为你是一步一步地做的，而不是像其他答案那样只对一个函数做。
首先，我们将字符串分割成一个向量：

library(dplyr)
library(stringr)

notation <- "1.d4 Nf6 2.c4 e6 3.g3 d5 4.Bg2 Be7 5.Nf3 0-0 6.0-0 dxc4 7.Qc2 a6 8.Qxc4 b5 9.Qc2 Bb7 10.Bd2 Ra7 "

notation_split <- notation |> str_split(pattern = " ") |> unlist()

然后，我们用语音词典创建一个框架：

phonetic_dictionary <- tribble(~letter, ~word,
                               "a", "alpha",
                               "b", "bravo",
                               "c", "charlie",
                               "d", "delta",
                               "e", "echo",
                               "f", "foxtrot",
                               "g", "golf",
                               "h", "hotel")

我们将移动向量转换为一个字符串，然后提取我们想要替换的字母到语音单词中，然后使用left_join附加相应的语音单词，最后，我们将字母替换为单词：

replacement_table <- tibble(moves = notation_split) |> 
    mutate(letter = str_extract(moves, "a|b|c|d|e|f|g|h")) |> 
    left_join(phonetic_dictionary, join_by(letter)) |> 
    mutate(moves_phonetic = str_replace(moves, letter, paste0(" ", word, " "))) |> 
    mutate(moves_phonetic = ifelse(is.na(moves_phonetic), moves, moves_phonetic)) |> 
    print(n=Inf)

最后，我们提取结果列以给予您期望的结果：

replacement_table |> pull(moves_phonetic) |> paste(collapse = " ")

# [1] "1. delta 4 N foxtrot 6 2. charlie 4  echo 6 3. golf 3  delta 5 4.B golf 2 B echo 7 5.N foxtrot 3 0-0 6.0-0  delta xc4 7.Q charlie 2  alpha 6 8.Qx charlie 4  bravo 5 9.Q charlie 2 B bravo 7 10.B delta 2 R alpha 7 "