2012-02-12 9 views
10

のプロット領域のワードクラウドのサイズをどのように大きくすることができますか。この例をここで複製しようとすると、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() 

答えて

17

代わりに、resパラメータを使用してみてください:

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

enter image description here

+0

これは参考になります。より良い答えが見つかると、私はこの質問を更新します。 –

+0

チップのおかげで。テキストサイズが単語の頻度に比例しない問題を見つけたのかどうか疑問に思っていますか?私のシステムで例を実行すると、単語はすべて同じサイズです。システムフォントに問題がある可能性があります。ティア。 –

+0

nvm、確かに、それはシステムフォントの問題でした!いずれにせよ、追加のフォントをインストールするには良い方法があります:http://blog.revolutionanalytics.com/2012/09/how-to-use-your-favorite-fonts-in-r-charts.html –

0

をすぐにpngを呼び出した後、別の行としてpar(mar = rep(0, 4))を含める場合は、余白を削除し、よwordcloudは利用可能なスペースをすべて使用します。前回の回答で提案されているように、これを使ってresパラメータを調整すると、あなたが望むものを得ることができます。