install.packages('googleVis')
注意消息。
然后,创建gvis对象:
library(googleVis)
M <- gvisMotionChart(Fruits, "Fruit", "Year")
您可以通过以下方式找到M的内容:
> M
你可以在浏览器上找到图表:
> plot(M)
那么,生成图表所需的是M $html $ chart:
> M$html$chart
[1] "<!-- MotionChart ... omitted... \">\n</div>\n"
将其保存到文件中:
> cat(M$html$chart, file="tmp.html")
如果你以文件形式打开“tmp.html”(例如,地址为files:///***/tmp.html),可能会出现安全警告。你需要通过http://访问html。# demo data from manual
M <- gvisMotionChart(Fruits, "Fruit", "Year")
# write the HTML body to a temporary file without header and footer
cat(M$html$chart, file="temp.html")
# or with caption included:
cat(paste(M$html[c("chart", "caption")], collapse="\n"), file="temp.html")
将temp.html的内容复制并粘贴到您的Joomla网站上。请注意,应将代码作为HTML内容粘贴,而不是在所见即所得编辑器(例如Tiny MCE)中粘贴!
如果您想在单独的页面上显示它,请不要忘记包括页眉和页脚:
# demo data from manual
M <- gvisMotionChart(Fruits, "Fruit", "Year")
# write the HTML to a temporary file with header and footer all included
cat(paste(M$html, collapse="\n"), file="temp.html")
print(M,"chart", file="myfile")
myfile.html
在Chrome/Firefox中呈现为空白页面。 - narendra-choudharyFlash内容可能无法在本地计算机上运行。我不得不更改{{link1:Adobe网站}}上的安全限制才能使其正常工作。
现在,按照daroczig的说明,可以在本地浏览器中查看内容,而不必完全依赖于R.rsp。
library(RCurl)
library(googleVis)
制作 visChart
write(visChart$html$chart, file='visChart.html')
ftpUpload('visChart.html', "ftp://username:password@example.com/path/to/'visChart.html")
visChart$html$chart
只提供图表的 HTML,不包括页脚,因此我在我的 HTML 中使用 iframe 访问此图表。如果您正在使用 Google 网站、博客或想要一个 Google 小工具,您可以使用 createGoogleGadget():
write(createGoogleGadget(visChart), file='visChart.xml')
ftpUpload('visChart.xml', "ftp://username:password@example.com/path/to/'visChart.xml")