根据位置从字符串中删除字符

Question

是否有一种简单的方法可以从字符串中删除特定字符。在下面的示例中，我想从向量的每个元素中删除最后三个字符。

string<-c("Autauga AL", "Bald Win Av", "Barbour AL", "Bibb AL" ,   "Blount At" , "Bullock AL")

Answer 1

strtrim和nchar呢？

strtrim(string, nchar(string)-3)
# [1] "Autauga"  "Bald Win" "Barbour"  "Bibb"     "Blount"   "Bullock" 

您也可以使用“stringi”包：

library(stringi)
stri_sub(string, 1, -4)
# [1] "Autauga"  "Bald Win" "Barbour"  "Bibb"     "Blount"   "Bullock" 

stri_sub的默认设置为to = -1L，因此要删除最后三个字符-1 - 3 = -4。

Answer 2

使用gsub()，删除$前面的三个字符（表示“字符串结尾”的正则表达式字符）：

gsub(".{3}$", "", string)
[1] "Autauga"  "Bald Win" "Barbour"  "Bibb"     "Blount"   "Bullock" 

Answer 3

另一种正则表达式方法：

gsub("(.*)\\s.*", "\\1", string)
## [1] "Autauga"  "Bald Win" "Barbour"  "Bibb"     "Blount"   "Bullock"