knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
Claudio Satio Amadatsu
Março/2021
Wordcloud:
knitr::include_graphics("text_wordcloud.png")
Resultados
Na base de dados, os reviews têm suas notas de 1 a 5. O modelo foi elaborado para determinar se o review é positivo (satisfeito=1) ou não (satisfeito=0).
Melhor resultado obtido com algoritmo TF-IDF Vectorizer, utilização de modelo classificador SVM.
Primeiros 50 registros dos resultados na base de teste:
library(tidyverse) library(readxl) reviews <- read.csv(file = 'text_mining_oList.csv', stringsAsFactors = TRUE,sep = ";") top50 <- head(reviews,50) knitr::kable(top50)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.