这里有一个选择

library(Unicode)
library(stringr)
unname(str_to_title(sapply(df$names, \(x) {
   x <- u_char_name(as.u_char(utf8ToInt(x)))
   paste(ifelse(x != "SPACE", substring(x, nchar(x)), " "), collapse = "")
 })))

• 输出

[1] "Enyis Suaza"     "Victoria Langel"

一个不完美的方法是识别代表字母的ASCII码，然后找出ASCII码和代表字母“正常”文本的代码之间的区别。由于这里有多种非标准类型，不幸的是（据我所知），必须对每种类型都进行区分。

utf8ToInt("🅴") - utf8ToInt("E")
# [1] 127279

utf8ToInt("𝐕") - utf8ToInt("V")
# [1] 119743

由于所有字母之间的差异都相同，因此您可以使用utf8ToInt和intToUtf8应用此差异来转换：

# using `names` instead of `names` since `names` is a function 
nnames <- c("🅴🅽🆈🅸🆂 🆂🆄🅰🆉🅰", "𝐕𝐈𝐂𝐓𝐎𝐑𝐈𝐀 𝐋𝐀𝐍𝐆𝐄𝐋")

# Use Vectorize() to vectorize the utf8ToInt
vec.utf8ToInt <- Vectorize(utf8ToInt)

# the `ifelse` accounts for the normal space (" ") between the names
enyis_ASCII <- ifelse(vec.utf8ToInt(nnames)[[1]] - 127279 < 0, 
                      32, vec.utf8ToInt(nnames)[[1]] - 127279)
enyis_char <- intToUtf8(enyis_ASCII)
enyis_char
# [1] "ENYIS SUAZA"

victoria_ASCII <- ifelse(vec.utf8ToInt(nnames)[[2]] - 119743 < 0, 
                         32, vec.utf8ToInt(nnames)[[2]] - 119743)
victoria_char <- intToUtf8(victoria_ASCII)
victoria_char
# [1] "VICTORIA LANGEL"

您可以通过在函数中进行 Package 并将格式类型保留为向量的名称来使其更简洁一些，但仍然特定于格式类型：

fixchars <- Vectorize(function(x){
  ints <- vec.utf8ToInt(x)
  if(all((ints[!(ints == 32)] - 127279) %in% 65:90)){
    ints[!(ints == 32)] <- ints[!(ints == 32)] - 127279
  }
  if(all((ints[!(ints == 32)] - 119743) %in% 65:90)){
    ints[!(ints == 32)] <- ints[!(ints == 32)] - 119743
  }
  intToUtf8(ints)
})

fixchars(nnames)
#  🅴🅽🆈🅸🆂 🆂🆄🅰🆉🅰   𝐕𝐈𝐂𝐓𝐎𝐑𝐈𝐀 𝐋𝐀𝐍𝐆𝐄𝐋 
# "ENYIS SUAZA" "VICTORIA LANGEL"

我希望一个比我更聪明的编码器可以通过使它可扩展来改进这个答案。好问题-祝你好运！