如何从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)

现在应包含：

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

这是一种方法gsub：

cs <- c("foo_bar","bar_foo","apple","beer")
gsub('.{3}$', '', cs)
# [1] "foo_" "bar_" "ap"   "b"

尽管这与@nfmcclure的答案基本相同，但我更喜欢使用stringrpackage，因为它提供了一组函数，这些函数的名称比基R中的名称最一致和更具描述性（实际上，我一直在搜索“如何获取R”中的字符，因为我忘记了名称nchar()）。

library(stringr)
str_sub(iris$Species, end=-4)
#or 
str_sub(iris$Species, 1, str_length(iris$Species)-3)

这将从Species列中每个值中删除最后3个字符。

使用stringi包可以实现相同的目的：

library('stringi')
char_array <- c("foo_bar","bar_foo","apple","beer")
a <- data.frame("data"=char_array, "data2"=1:4)
(a$data <- stri_sub(a$data, 1, -4)) # from the first to the last but 4th char
## [1] "foo_" "bar_" "ap"   "b" 

类似于@Matthew_Plourde使用 gsub

但是，使用的模式将修剪为零个字符，即，如果原始字符串短于要剪切的字符数，则返回“” ：

cs <- c("foo_bar","bar_foo","apple","beer","so","a")
gsub('.{0,3}$', '', cs)
# [1] "foo_" "bar_" "ap"   "b"    ""    ""

区别在于，{0,3}量词表示0到3个匹配项，而{3}恰好需要3个匹配项，否则找不到匹配项，在这种情况下gsub将返回未经修改的原始字符串。

注意，NB的使用{,3}等效于{0,3}，我只是更喜欢后者。

有关正则表达式量词的更多信息，请参见此处：https : //www.regular-expressions.info/refrepeat.html