r 函数将字符串中每个单词的首字母大写，除了“和”。用“和”代替“&”。可以应用于列表/向量

Posted 2021-05-24

cap_first <- function(X){
    simple_cap <- function(x) {
        s <- strsplit(x, " ")[[1]]
        out <- paste(toupper(substring(s, 1,1)), substring(s, 2),
                     sep="", collapse=" ")
        out <- gsub("And", "and", out)
        out <- gsub("&", "and", out)
        out <- gsub("Of", "of", out)
        out
    }
    sapply(X, simple_cap, USE.NAMES = F) 
}