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

Question

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

我想删除所有空格和特殊字符，例如%&,.和and名称之间的单词，然后将每个字符串大写，因此名称变为：

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

Answer 1

我们可以使用sub删除and字符串，然后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"