Como colocar o pipe

#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

1 curtida

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. :blush:

1 curtida