r - 位置に基づいて文字列から文字を削除する

Question

文字列から特定の文字を削除する簡単な方法はありますか? 以下の例では、ベクターの各要素から最後の 3 文字を削除したいと考えています。

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であるため、最後の 3 文字を削除すると-1 - 3 = -4.

Answer 2

別の正規表現のアプローチ:

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