#Queria colocar pipe neste código, como faço?
doc_matrix <- as.matrix(TermDocumentMatrix(EAD_text_corpus))
counts <- sort(rowSums(doc_matrix), decreasing = TRUE)
frame_counts <- data.frame(word = names(counts), freq = counts)
frame_counts
#Queria colocar pipe neste código, como faço?
doc_matrix <- as.matrix(TermDocumentMatrix(EAD_text_corpus))
counts <- sort(rowSums(doc_matrix), decreasing = TRUE)
frame_counts <- data.frame(word = names(counts), freq = counts)
frame_counts
Oi Edlaine,
Esse código ficaria assim:
library(tidyverse)
counts <- EAD_text_corpus %>%
TermDocumentMatrix() %>%
as.matrix() %>%
rowSums() %>%
sort(decreasing = TRUE)
frame_counts <- data.frame(word = names(counts), freq = counts)
frame_counts
Eu não testei em nada, mas poderia tentar (chute!):
frame_counts <- EAD_text_corpus %>%
TermDocumentMatrix() %>%
as.matrix() %>%
rowSums() %>%
sort(decreasing = TRUE) %>%
enframe()
frame_counts
Muito Obrigada.