आर

2012-02-12 31 views
10

में यहां उदाहरण दोहराने की कोशिश कर रहे प्लॉट किए गए क्षेत्र वर्डक्लोउड के आकार को कैसे बढ़ाया जा सकता है;आर

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

पता लगाना शब्द बादल के लिए साजिश रची क्षेत्र में वृद्धि करने के लिए कैसे की आवश्यकता है। पीएनजी ("wordcloud_packages.png", चौड़ाई = 1280, ऊंचाई = 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

एनवीएम, वास्तव में, यह सिस्टम फोंट के साथ एक मुद्दा था! किसी भी मामले में, यहां अतिरिक्त फोंट स्थापित करने के लिए एक अच्छा तरीका है: 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 पैरामीटर को संभवतः ट्वीव करना, आपको जो चाहिए था उसे प्राप्त करना चाहिए।