基础 R
string <- "lowercase UPPERCASE more lower case UPPER 1143 + 40 = !!!"
gsub(" {2,}", " ", # replace 2 or more consecutive spaces with one space
gsub("[^A-Z ]", "", string) # remove anything that's not a space or an uppercase letter
)
#> [1] " UPPERCASE UPPER "
由reprex package (v2.0.0) 于 2021 年 7 月 2 日创建
Stringr 包
require(stringr)
#> Loading required package: stringr
string <- "lowercase UPPERCASE more lower case UPPER 1143 + 40 = !!!"
str_squish( # remove excess whitespace
str_remove_all(string, "[^[:UPPER:] ]") #remove everything except uppecase and spaces
)
#> [1] "UPPERCASE UPPER"
由reprex package (v2.0.0) 于 2021-07-02 创建