R删除每个单词末尾的s

R删除每个单词末尾的s,r,lapply,text-mining,gsub,R,Lapply,Text Mining,Gsub,我有以下R代码: temp <- strsplit(unlist(test_data$`Product Description`), split=" ") temp <- lapply(temp, function(x) gsub("s$", '', x)) temp将sub与模式(*)s$一起使用,然后替换为第一个捕获组 temp <- lapply(temp, function(x) sub("(.*)s$", '\\1', x)) temp

我有以下R代码:

temp <- strsplit(unlist(test_data$`Product Description`), split=" ")
temp <- lapply(temp, function(x) gsub("s$", '', x))

temp将
sub
与模式
(*)s$
一起使用,然后替换为第一个捕获组

temp <- lapply(temp, function(x) sub("(.*)s$", '\\1', x))
temp