r - 如何增加 R 中绘制区域词云的大小

标签 r text-mining tag-cloud word-cloud

尝试复制此处的示例;

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

需要帮助弄清楚如何增加词云的绘制区域。更改 png("wordcloud_packages.png", width=1280,height=800) 中的高度和宽度参数只会更改 Canvas 的高度和宽度。但绘制的区域仍然很小。

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()

最佳答案

尝试使用 res 参数:

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

enter image description here

关于r - 如何增加 R 中绘制区域词云的大小,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9245519/

相关文章:

r - 如何杀死R中的绘图过程?

twitter - tweepy 流媒体 API : full text

python - 从列中删除空格上的行

nlp - 文本挖掘 - 最常用的词,标准化

android - 如何创建类似 Foursquare 兴趣选择屏幕的 gridview?

c# - 在 C# 中标记云

r - dplyr 中的 substr %>% 变异

r - 如何在 R 中将 NULL 作为参数传递?

javascript - 用 ng Repeat 填充 tx3 标签云

R Shiny - 如何使用第 2 列中的嵌套行生成此布局