Как можно увеличить размер облаков слов в R - PullRequest
12 голосов
/ 12 февраля 2012

пытается повторить пример здесь;

http://onertipaday.blogspot.com/2011/07/word-cloud-in-r.html

Нужна помощь в выяснении, как увеличить нанесенную площадь облака слова. Изменение параметров высоты и ширины в png ("wordcloud_packages.png", width = 1280, height = 800) изменяет только высоту и ширину холста ... но область печати остается маленькой.

require(XML)
require(tm)
require(wordcloud)
require(RColorBrewer)
u = "http://cran.r-project.org/web/packages/available_packages_by_date.html"
t = readHTMLTable(u)[[1]]
ap.corpus <- Corpus(DataframeSource(data.frame(as.character(t[,3]))))
ap.corpus <- tm_map(ap.corpus, removePunctuation)
ap.corpus <- tm_map(ap.corpus, tolower)
ap.corpus <- tm_map(ap.corpus, function(x) removeWords(x, stopwords("english")))
ap.tdm <- TermDocumentMatrix(ap.corpus)
ap.m <- as.matrix(ap.tdm)
ap.v <- sort(rowSums(ap.m),decreasing=TRUE)
ap.d <- data.frame(word = names(ap.v),freq=ap.v)
table(ap.d$freq)
pal2 <- brewer.pal(8,"Dark2")
png("wordcloud_packages.png", width=1280,height=800)
wordcloud(ap.d$word,ap.d$freq, scale=c(8,.2),min.freq=3,
max.words=Inf, random.order=FALSE, rot.per=.15, colors=pal2)
dev.off()

Ответы [ 2 ]

17 голосов
/ 12 февраля 2012

Попробуйте использовать параметр res вместо:

...
png("wordcloud_packages.png", width=12,height=8, units='in', res=300)
...

enter image description here

0 голосов
/ 10 января 2018

Если вы включите par(mar = rep(0, 4)) в качестве отдельной строки сразу после вызова png, вы удалите поля, и облако слов будет использовать все доступное пространство. С этим и, возможно, настройкой параметра res, как предложено в предыдущем ответе, вы получите то, что хотели.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...