Question

我很难让googleVis渲染情节。例如，当我在RStudio

中运行此代码时

library(googleVis)
df=data.frame(country=c("US", "GB", "BR"), 
val1=c(10,13,14), 
val2=c(23,12,32))
Line <- gvisLineChart(df)
plot(Line)

我得到了这个输出

<!-- LineChart generated in R 3.1.3 by googleVis 0.5.8 package -->
<!-- Thu Mar 26 22:10:59 2015 -->


<!-- jsHeader -->
<script type="text/javascript">

// jsData 
function gvisDataLineChartID18a43b3b6397 () {
var data = new google.visualization.DataTable();
var datajson =
[
 [
 "US",
10,
23 
],
[
 "GB",
13,
12 
],
[
 "BR",
14,
32 
] 
];
data.addColumn('string','country');
data.addColumn('number','val1');
data.addColumn('number','val2');
data.addRows(datajson);
return(data);
}

// jsDrawChart
function drawChartLineChartID18a43b3b6397() {
var data = gvisDataLineChartID18a43b3b6397();
var options = {};
options["allowHtml"] = true;


    var chart = new google.visualization.LineChart(
    document.getElementById('LineChartID18a43b3b6397')
    );
    chart.draw(data,options);


}


// jsDisplayChart
(function() {
var pkgs = window.__gvisPackages = window.__gvisPackages || [];
var callbacks = window.__gvisCallbacks = window.__gvisCallbacks || [];
var chartid = "corechart";

// Manually see if chartid is in pkgs (not all browsers support Array.indexOf)
var i, newPackage = true;
for (i = 0; newPackage && i < pkgs.length; i++) {
if (pkgs[i] === chartid)
newPackage = false;
}
if (newPackage)
  pkgs.push(chartid);

// Add the drawChart function to the global list of callbacks
callbacks.push(drawChartLineChartID18a43b3b6397);
})();
function displayChartLineChartID18a43b3b6397() {
  var pkgs = window.__gvisPackages = window.__gvisPackages || [];
  var callbacks = window.__gvisCallbacks = window.__gvisCallbacks || [];
  window.clearTimeout(window.__gvisLoad);
  // The timeout is set to 100 because otherwise the container div we are
  // targeting might not be part of the document yet
  window.__gvisLoad = setTimeout(function() {
  var pkgCount = pkgs.length;
  google.load("visualization", "1", { packages:pkgs, callback: function() {
  if (pkgCount != pkgs.length) {
  // Race condition where another setTimeout call snuck in after us; if
  // that call added a package, we must not shift its callback
  return;
}
while (callbacks.length > 0)
callbacks.shift()();
} });
}, 100);
}

// jsFooter
</script>

<!-- jsChart -->  
<script type="text/javascript" src="https://www.google.com/jsapi?callback=displayChartLineChartID18a43b3b6397"></script>

<!-- divChart -->

<div id="LineChartID18a43b3b6397" 
  style="width: 500; height: automatic;">
</div>

但观众中没有任何内容。

你知道为什么我没有显示图表吗？

这是我的sessionInfo

R version 3.1.3 (2015-03-09)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252   
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] rCharts_0.4.5   googleVis_0.5.8 knitr_1.9       rmarkdown_0.5.1

loaded via a namespace (and not attached):
 [1] digest_0.6.8    evaluate_0.5.5  formatR_1.0     grid_3.1.3      htmltools_0.2.6
 [6] lattice_0.20-30 plyr_1.8.1      Rcpp_0.11.5     RJSONIO_1.3-0   stringr_0.6.2  
[11] tools_3.1.3     whisker_0.3-2   yaml_2.1.13

googleVis生成代码而不是图表

0 个答案: