R 删除每个单词末尾的 s

Question

我有以下 R 代码：

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

我要做的是去掉“产品描述”列中每个单词末尾的 s。

代码的第一步完美运行，它通过为每个描述创建一个单词列表来按应有的方式拆分数据。

但是，第二步不起作用。它不会去掉's'

Answer 1

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

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

这里的想法是，如果模式匹配，我们将替换为最终的s 剥离。如果模式不匹配，那么sub 将只返回整个未触及的字符串。

Demo