knitr::opts_chunk$set(echo = FALSE)
data("texts")
data("guris")

Hvem er vi? Google vet alt

res <- strat::makeWordCloud(guris, type = "url", max.words = 50, colorPalette = "Set1")

Stats

head(res$freqTable, 5)

Analyse

res <- strat::makeWordCloud(texts$anal, type = "text", max.words = 50, colorPalette = "PiYG")

Stats

head(res$freqTable, 5)

Sørvis

res <- strat::makeWordCloud(texts$serv, type = "text", max.words = 50, colorPalette = "RdBu")

Stats

head(res$freqTable, 5)

Alle sammen sammen

res <- strat::makeWordCloud(paste(texts$anal, texts$serv, collapse = ' '), type = "text", max.words = 50, colorPalette = "Purples")

Stats

head(res$freqTable, 5)


areedv/strat documentation built on Nov. 3, 2019, 1:56 p.m.