Mudanças entre as edições de "Linguagem R:Wordcloud"
Ir para navegação
Ir para pesquisar
| Linha 24: | Linha 24: | ||
s_dirty | s_dirty | ||
| − | + | Função '''str_splip''', separa a frase por palavras tendo como delimitador o [[character]] definido na função | |
| − | |||
words <- str_split(s_dirty, fixed(' ')) | words <- str_split(s_dirty, fixed(' ')) | ||
| − | + | Mostar a variável words | |
words | words | ||
| − | + | Problemas de padronização e caracteres especiais | |
| − | + | Colocando tudo em caixa baixa '''str_to_lower''' | |
s <- str_to_lower(s_dirty) | s <- str_to_lower(s_dirty) | ||
s | s | ||
| − | + | Substitui os [[character]] ENTER (\\r) e NOVA LINHA (\\n) por espaço | |
s_clean <- str_replace_all(s,'[\\r\\n]',' ') | s_clean <- str_replace_all(s,'[\\r\\n]',' ') | ||
| − | + | mostra o conteúdo de s_clean | |
s_clean | s_clean | ||
| − | + | separando novamente as palavras, agora da variável limpa | |
words <- str_split(s_clean, fixed(' ')) | words <- str_split(s_clean, fixed(' ')) | ||
words | words | ||
| − | + | Removendo outros caracteres especiais de pontuação , . ? ! : com ENTER e NOVA LINHA | |
s_clean <- str_replace_all(s,'[\\r\\n,.?!:;]',' ') | s_clean <- str_replace_all(s,'[\\r\\n,.?!:;]',' ') | ||
s_clean <- str_replace_all(s_clean,' ',';') | s_clean <- str_replace_all(s_clean,' ',';') | ||
| − | + | Remove espaços em branco | |
| − | + | Loop - Programação | |
s_clean <- str_replace_all(s_clean,';;',';') | s_clean <- str_replace_all(s_clean,';;',';') | ||
s_clean <- str_replace_all(s_clean,';;',';') | s_clean <- str_replace_all(s_clean,';;',';') | ||
| Linha 58: | Linha 57: | ||
s_clean | s_clean | ||
| − | + | Separando novamente as palavras, agora da variável limpa novamente | |
words <- str_split(c(s_clean), fixed(';')) | words <- str_split(c(s_clean), fixed(';')) | ||
words | words | ||
| − | + | Transforma a array em uma tabela de dados e frequencia | |
freq <- table(words) | freq <- table(words) | ||
freq | freq | ||
| − | + | Ordena da maior frequencia para meno | |
freq <- sort(freq, decreasing=TRUE) | freq <- sort(freq, decreasing=TRUE) | ||
freq | freq | ||
| − | + | Convert a lista em uma tabela | |
freq_t <- as.matrix(freq) | freq_t <- as.matrix(freq) | ||
colnames(freq_t) <- "Freq" | colnames(freq_t) <- "Freq" | ||
| Linha 76: | Linha 75: | ||
freq[freq["Freq"] >1] | freq[freq["Freq"] >1] | ||
| − | + | Filtra dados com frequencia maior que 1 | |
freq_t[freq_t[,1] > 1,] | freq_t[freq_t[,1] > 1,] | ||
freq_t[freq_t$freq > 1,] | freq_t[freq_t$freq > 1,] | ||
| − | + | Exportar dados para o CSV | |
palavras <- paste(names(freq), freq, sep=";") | palavras <- paste(names(freq), freq, sep=";") | ||
cat("Palavra;Frequencia", palavras, file="d:/lixo/frequencias.csv", sep="\n") | cat("Palavra;Frequencia", palavras, file="d:/lixo/frequencias.csv", sep="\n") | ||
| − | + | Mostra dados gráficos | |
plot(freq) | plot(freq) | ||
| − | + | Histograma - Cluster pela frequência | |
hist(freq) | hist(freq) | ||
Edição das 14h49min de 7 de junho de 2020
WordCloud
Pacotes
- stringr (R:Instalar pacotes)
Machado de Assis - Circulo Vicioso
s_dirty <- 'Bailando no ar, gemia inquieto vaga-lume: - Quem me dera que fosse aquela loura estrela, que arde no eterno azul, como uma eterna vela ! Mas a estrela, fitando a lua, com ciúme: - Pudesse eu copiar o transparente lume, que, da grega coluna á gótica janela, contemplou, suspirosa, a fronte amada e bela ! Mas a lua, fitando o sol, com azedume: - Misera ! tivesse eu aquela enorme, aquela claridade imortal, que toda a luz resume ! Mas o sol, inclinando a rutila capela: - Pesa-me esta brilhante aureola de nume... Enfara-me esta azul e desmedida umbela... Porque não nasci eu um simples vaga-lume?'
- Mostra o conteúdo da [Variável]
s_dirty
Função str_splip, separa a frase por palavras tendo como delimitador o character definido na função
words <- str_split(s_dirty, fixed(' '))
Mostar a variável words
words
Problemas de padronização e caracteres especiais Colocando tudo em caixa baixa str_to_lower
s <- str_to_lower(s_dirty) s
Substitui os character ENTER (\\r) e NOVA LINHA (\\n) por espaço
s_clean <- str_replace_all(s,'[\\r\\n]',' ')
mostra o conteúdo de s_clean
s_clean
separando novamente as palavras, agora da variável limpa
words <- str_split(s_clean, fixed(' '))
words
Removendo outros caracteres especiais de pontuação , . ? ! : com ENTER e NOVA LINHA
s_clean <- str_replace_all(s,'[\\r\\n,.?!:;]',' ') s_clean <- str_replace_all(s_clean,' ',';')
Remove espaços em branco Loop - Programação
s_clean <- str_replace_all(s_clean,';;',';') s_clean <- str_replace_all(s_clean,';;',';') s_clean <- str_replace_all(s_clean,';;',';') s_clean <- str_replace_all(s_clean,';;',';') s_clean
Separando novamente as palavras, agora da variável limpa novamente
words <- str_split(c(s_clean), fixed(';'))
words
Transforma a array em uma tabela de dados e frequencia
freq <- table(words) freq
Ordena da maior frequencia para meno
freq <- sort(freq, decreasing=TRUE) freq
Convert a lista em uma tabela
freq_t <- as.matrix(freq) colnames(freq_t) <- "Freq" freq_t freq[freq["Freq"] >1]
Filtra dados com frequencia maior que 1
freq_t[freq_t[,1] > 1,] freq_t[freq_t$freq > 1,]
Exportar dados para o CSV
palavras <- paste(names(freq), freq, sep=";")
cat("Palavra;Frequencia", palavras, file="d:/lixo/frequencias.csv", sep="\n")
Mostra dados gráficos
plot(freq)
Histograma - Cluster pela frequência
hist(freq)
