r substring string

Question

gsub(".*s$", "", c("book", "books", "chair", "tables"), perl=T)

gsub（＆＃34;。* s $＆＃34;，＆＃34;＆＃34;，c（＆＃34; book＆＃34;，＆＃34; books＆＃34;，＆＃34; ;主席＆＃34;，＆＃34;表＆＃34;），perl = T）

Answer 1

正如乔兰在评论中所说，你的匹配太多了。 .*s$匹配以s结尾的任何字符串。匹配整个字符串，因此整个字符串将替换为空字符串。

你想要这个：

gsub("s$", "", c("book", "books", "chair", "tables"))

请注意，此表达式不需要perl=TRUE。

Answer 2

很可能有一些单词以“s”结尾，而不是复数，你可能不想删除最后的“s”。这是另一种方法，使用tm包，但它源于“表”。

text <- c("book", "books", "chair", "tables", "glass", "mess")
library(tm)
text.stem <- stemDocument(text)
> text.stem
[1] "book"  "book"  "chair" "tabl"  "glass" "mess"