如何增加R
问题描述:
中试图复制示例的绘图区域wordcloud的大小;如何增加R
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()
答
尝试使用res
参数,而不是:
...
png("wordcloud_packages.png", width=12,height=8, units='in', res=300)
...
答
如果包含par(mar = rep(0, 4))
的调用png
你会去除边缘后,立即单独的线, wordcloud将使用所有可用空间。有了这个,并可能调整res
参数的建议在前面的答案,你应该得到你想要的。
这是有帮助的..谢谢。如果我找到更好的答案,我会更新这个问题。 – 2012-02-12 05:51:15
感谢您的提示。只是想知道您是否遇到过文字大小不按字词频率进行缩放的问题?在我的系统上运行示例,这些单词的大小都是相同的。可能是系统字体的问题。 TIA。 – 2013-08-07 08:53:16
nvm的确,这是系统字体的问题!无论如何,这里有一个很好的方法来安装额外的字体:http://blog.revolutionanalytics.com/2012/09/how-to-use-your-favorite-fonts-in-r-charts.html – 2013-08-07 09:01:43