24.9 Stemming

https://cran.r-project.org/web/packages/corpus/vignettes/stemmer.html

library(corpus)

text <- "love loving lovingly loved lover lovely love"
text_tokens(text, stemmer = "en") # english stemmer
## [[1]]
## [1] "love"  "love"  "love"  "love"  "lover" "love"  "love"

Using tm

library(tm)
## Loading required package: NLP
## 
## Attaching package: 'NLP'
## The following object is masked from 'package:ggplot2':
## 
##     annotate

complicate <- c("complicated", "complication", "complicatedly")

stemDocument(complicate)
## [1] "complic" "complic" "complic"