从字符串中删除特殊字符和空格

Question

name1 <- "Adam & Eve"
name2 <- "Spartacus"
name3 <- "Fitness and Health"

我想去掉名字之间的所有空格和特殊字符，比如%&,.和and，然后把每个字符串都大写，这样名字就变成了:

name1 <- "ADAMEVE"
name2 <- "SPARTACUS"
name3 <- "FITNESSHEALTH"

Answer 1

我们可以使用 sub 删除 和 字符串，然后使用 gsub 删除其他所有内容 (^)比字母(大写，小写)并将大小写转换为大写(toupper)

f1 <- function(x) toupper(gsub("[^A-Za-z]", "", sub("and", "", x, fixed = TRUE)))

-测试

> f1(name1)
[1] "ADAMEVE"
> f1(name2)
[1] "SPARTACUS"
> f1(name3)
[1] "FITNESSHEALTH"