日本語できるかな。
summary(cars)
## speed dist
## Min. : 4.0 Min. : 2
## 1st Qu.:12.0 1st Qu.: 26
## Median :15.0 Median : 36
## Mean :15.4 Mean : 43
## 3rd Qu.:19.0 3rd Qu.: 56
## Max. :25.0 Max. :120
これを埋め込む
plot(cars)
数式は？
\[ f(a) + \frac{f'(a)}{1!} \]
suppressPackageStartupMessages(library(googleVis))
T <- gvisTable(Exports, options = list(width = 200, height = 280))
G <- gvisGeoChart(Exports, locationvar = "Country", colorvar = "Profit",
options = list(width = 360, height = 280, dataMode = "regions"))
TG <- gvisMerge(T, G, horizontal = TRUE, tableOptions = "bgcolor=\"#CCCCCC\" cellspacing=10")
print(TG, "chart")
## <!-- Table generated in R 2.15.0 by googleVis 0.2.16 package -->
## <!-- Fri Jun 8 10:02:15 2012 -->
##
##
## <!-- jsHeader -->
## <script type="text/javascript" src="http://www.google.com/jsapi">
## </script>
## <script type="text/javascript">
##
## // jsData
## function gvisDataTableIDe63e2362dde6 ()
## {
## var data = new google.visualization.DataTable();
## var datajson =
## [
## [
## "Germany",
## 3,
## true
## ],
## [
## "Brazil",
## 4,
## false
## ],
## [
## "United States",
## 5,
## true
## ],
## [
## "France",
## 4,
## true
## ],
## [
## "Hungary",
## 3,
## false
## ],
## [
## "India",
## 2,
## true
## ],
## [
## "Iceland",
## 1,
## false
## ],
## [
## "Norway",
## 4,
## true
## ],
## [
## "Spain",
## 5,
## true
## ],
## [
## "Turkey",
## 1,
## false
## ]
## ];
## data.addColumn('string','Country');
## data.addColumn('number','Profit');
## data.addColumn('boolean','Online');
## data.addRows(datajson);
## return(data);
## }
##
##
## // jsData
## function gvisDataGeoChartIDe63e2fd63930 ()
## {
## var data = new google.visualization.DataTable();
## var datajson =
## [
## [
## "Germany",
## 3
## ],
## [
## "Brazil",
## 4
## ],
## [
## "United States",
## 5
## ],
## [
## "France",
## 4
## ],
## [
## "Hungary",
## 3
## ],
## [
## "India",
## 2
## ],
## [
## "Iceland",
## 1
## ],
## [
## "Norway",
## 4
## ],
## [
## "Spain",
## 5
## ],
## [
## "Turkey",
## 1
## ]
## ];
## data.addColumn('string','Country');
## data.addColumn('number','Profit');
## data.addRows(datajson);
## return(data);
## }
##
## // jsDrawChart
## function drawChartTableIDe63e2362dde6() {
## var data = gvisDataTableIDe63e2362dde6();
## var options = {};
## options["allowHtml"] = true;
## options["width"] = 200;
## options["height"] = 280;
##
## var chart = new google.visualization.Table(
## document.getElementById('TableIDe63e2362dde6')
## );
## chart.draw(data,options);
##
##
## }
##
##
##
## // jsDrawChart
## function drawChartGeoChartIDe63e2fd63930() {
## var data = gvisDataGeoChartIDe63e2fd63930();
## var options = {};
## options["width"] = 360;
## options["height"] = 280;
## options["dataMode"] = "regions";
##
## var chart = new google.visualization.GeoChart(
## document.getElementById('GeoChartIDe63e2fd63930')
## );
## chart.draw(data,options);
##
##
## }
##
##
## // jsDisplayChart
## function displayChartTableIDe63e2362dde6()
## {
## google.load("visualization", "1", { packages:["table"] });
## google.setOnLoadCallback(drawChartTableIDe63e2362dde6);
## }
##
##
## // jsDisplayChart
## function displayChartGeoChartIDe63e2fd63930()
## {
## google.load("visualization", "1", { packages:["geochart"] });
## google.setOnLoadCallback(drawChartGeoChartIDe63e2fd63930);
## }
##
## // jsChart
## displayChartTableIDe63e2362dde6()
##
##
## // jsChart
## displayChartGeoChartIDe63e2fd63930()
##
## <!-- jsFooter -->
## //-->
## </script>
##
## <table bgcolor="#CCCCCC" cellspacing=10>
## <tr>
## <td>
##
## <!-- divChart -->
##
## <div id="TableIDe63e2362dde6"
## style="width: 200px; height: 280px;">
## </div>
##
## </td>
## <td>
##
## <!-- divChart -->
##
## <div id="GeoChartIDe63e2fd63930"
## style="width: 360px; height: 280px;">
## </div>
##
## </td>
## </tr>
## </table>
これでいいの？