Untitled

#hola malu tienes que hacer esto, primero instala estos paquetes y librerias

install.packages("tm")
install.packages("stringr")

library(tm)
library(stringr)

#despues creas vector de palabras
palabras <- c("acción", "acciones", "accionar", "accionó", "maestra", "maestro")

#define funcion para agregar palabras
agrupar_palabras <- function(palabras) {
  grupos <- list()
  
  for (palabra in palabras) {
    raiz <- str_extract(palabra, "^[a-zA-Z]+")
    if (is.null(grupos[[raiz]])) {
      grupos[[raiz]] <- c()
    }
    grupos[[raiz]] <- c(grupos[[raiz]], palabra)
  }
  
  return(grupos)
}

#aplica la funcion de vector
grupos_de_palabras <- agrupar_palabras(palabras)
print(grupos_de_palabras)

#el resultado debe ser algo asi

$acción
[1] "acción"  "acciones" "accionar" "accionó"

$maestr
[1] "maestra" "maestro"