[解決済み] Rベクトルの各要素から最後のn文字を削除する方法

質問

私はRの初心者ですが、ベクトル（配列？）の各要素から最後のn文字を削除する方法についての簡単な例をオンラインで見つけることができませんでした。

私はJavaの背景から来て、私がしたいことは、すべての要素に対して反復することです a$data のすべての要素を繰り返し、すべての要素から最後の 3 文字を削除することです。

どうやるんですか？

どのように解決するのですか？

以下は、私が行うことの例です。 あなたが探しているものであることを願っています。

char_array = c("foo_bar","bar_foo","apple","beer")
a = data.frame("data"=char_array,"data2"=1:4)
a$data = substr(a$data,1,nchar(a$data)-3)

a が含まれるようになったはずです。

  data data2
1 foo_ 1
2 bar_ 2
3   ap 3
4    b 4