1

使用 R，我希望能够在 github 的存储库中呈现包含图表的.html或.md文件（通过knitr或其他方式创建） 。googleVis

我试图在运行时遵循帮助文件?plot.gvis，并且我尝试将gvisData.jsandgvisFunctions.js文件推送到 repo 并更改 html 以引用这些文件，但我觉得我没有正确的 baseURL 以使 github 成为能够正确渲染它。

有没有人有一个简单的 URL 示例，该 URL 引用了呈现 googleVis 图表的 Github？

我试过使用这个http://lamages.blogspot.co.uk/2013/07/googlevis-tutorial-at-user2013.html但没有看到它如何与 github 一起工作......

所以使用这里给出的例子?plot.gvis是我尝试过的

myChartID <- "mtnc"
baseURL <- "https://raw.github.com/USER/REPO"
wwwdir <- getwd() ## the working directory is the local directory of the repo


## Create a motion chart
M <- gvisMotionChart(Fruits, "Fruit", "Year", chartid=myChartID)



## Write the data and functions into separate files:
cat(M$html$chart['jsData'], file=file.path(wwwdir, "gvisData.js"))
cat(M$html$chart[c('jsDrawChart', 'jsDisplayChart', 'jsChart')], 
                file=file.path(wwwdir, "gvisFunctions.js"))


## Create a html page with reference to the above
## JavaScript files 

html <- sprintf('
<html>
  <head>
  <script type="text/javascript" src="http://www.google.com/jsapi">
  </script>
  <script type="text/javascript" src="%s/gvisFunctions.js"></script>
  <script type="text/javascript" src="%s/gvisData.js"></script>
  <script type="text/javascript">
  displayChart%s()
  </script>
  </head>
  <body>
  <div id="%s" style="width: 600px; height: 500px;"></div>
  </body>
  </html>
  ', baseURL, baseURL, myChartID, myChartID)

## Write html scaffold into a file
cat(html, file=file.path(wwwdir, paste("Chart", myChartID, ".html", sep="")))

### from this point I push up to the repo the following files 
### gvisData.js, gvsiFunctions.js and Chartmtnc.html

## Display the result via
URL <- paste(baseURL,"/Chart", myChartID, ".html", sep="")
browseURL(URL)

任何建议都会很有用...

4

1 回答 1

1

你不必要地把它复杂化了。googleVis当您尝试在文档中使用图表时，您只需要做一件事，knitr即设置

options(gvis.plot.tag = 'chart')

您可以在此处查看已发布的示例，并且可以在此处找到源文件

于 2013-07-11T00:40:49.853 回答