R の専門家の皆様、こんにちは。
私はワード クラウドを持っていますが、それを html ファイルにしたかったので、他の人がこのワード クラウドを自分の Web サイトで使用できるようになりました。だから.. R2HTML を試しましたが、png ファイルを扱うにはいくつかのガイダンスが必要です。これが私のコードです:
library(tm)
library(RTextTools)
library(reshape)
library(plyr)
library(ggplot2)
library(stringr)
library(wordcloud)
library(RColorBrewer)
library(R2HTML)
c <- "HTML frame creates framed output, with commands in the left frame, linked to output in the right frame. By default, a CSS file named R2HTML.css controlling page look and feel is output to the same directory. Optionally, you can include a CSSFile= option to use your own formatting file"
corpus<- Corpus(VectorSource(c))
corpus<- tm_map(corpus, tolower)
corpus<- tm_map(corpus, removePunctuation)
corpus<- tm_map(corpus, removeNumbers)
corpus <- tm_map(corpus, removeWords, myStopwords)
dictCorpus<- corpus
corpus<- tm_map(corpus, stemDocument)
dtm<- DocumentTermMatrix(corpus)
dtm
dtm.df <- as.data.frame(inspect(dtm))
library(reshape)
dtm2.df <- t(dtm.df)
topx <- as.matrix(dtm2.df)
forwc <- sort(rowSums(topx),decreasing=TRUE)
forwc2 <- data.frame(word = names(forwc),freq= forwc)
pal1 <- brewer.pal(8,"Dark2")
### WORD CLOUD #######
#######################
png("wordcloud_html_test.png", width=1280,height=800)
wordcloud(forwc2$word,forwc2$freq, scale=c(8,.5),min.freq=3,max.words=Inf, random.order=FALSE, rot.per=0, colors=pal1, vfont=c("serif","bold"))
dev.off()
プロットをhtml形式で生成するために、以下のような他の例を見ました。
summary(cars)
out = plot(cars)
HTML(out, file = "testpage3.html")
だから..私はこのようなものを含むたくさんのことを試みました..
out <- {png("wordcloud_html_test.png", width=1280,height=800)
wordcloud(forwc2$word,forwc2$freq, scale=c(8,.5),min.freq=3,max.words=Inf, random.order=FALSE, rot.per=0, colors=pal1, vfont=c("serif","bold"))
dev.off()}
HTML(out, file = "wordcloud.html")
しかし、実際には何も機能しませんでした。誰かがここに何が欠けているか教えてもらえますか?
また、（http://cran.r-project.org/doc/Rnews/Rnews_2003-3.pdf）「これは、標準ヘッダーさえ含まれていないため、実際のHTMLファイルではありません....これを軽減できるパッケージはありますか? (R studio KnitR を試しましたが、R studio に問題があるため、あきらめました。)
ご指導ありがとうございました！