月曜日, 1月 10, 2011

GoogleVis Example for data iris

here is a well-known dataset iris version of googleVis.

code:
iris$time <- rep(1:50, 3)
r <- gvisMotionChart(iris, "Species", "time")
plot(r)



Data: iris, Chart ID: MotionChart_2011-01-11-00-28-04


R version 2.12.1 (2010-12-16),

Google Terms of Use

googleVis Example

Here is an example of googleVis chart.



Data: Fruits, Chart ID: MotionChart_2011-01-10-21-41-52


R version 2.12.1 (2010-12-16),

Google Terms of Use



Here is the source code of this page:

<script type="text/javascript" src="http://www.google.com/jsapi">
</script>
<script type="text/javascript">
google.load("visualization", "1", { packages:["motionchart"] });
google.setOnLoadCallback(drawChart);
function drawChart() {
var data = new google.visualization.DataTable();
var datajson = [
 [
 "Apples",
  2008,
"West",
    98,
    78,
    20,
"2008-12-31" 
],
[
 "Apples",
  2009,
"West",
   111,
    79,
    32,
"2009-12-31" 
],
[
 "Apples",
  2010,
"West",
    89,
    76,
    13,
"2010-12-31" 
],
[
 "Oranges",
  2008,
"East",
    96,
    81,
    15,
"2008-12-31" 
],
[
 "Bananas",
  2008,
"East",
    85,
    76,
     9,
"2008-12-31" 
],
[
 "Oranges",
  2009,
"East",
    93,
    80,
    13,
"2009-12-31" 
],
[
 "Bananas",
  2009,
"East",
    94,
    78,
    16,
"2009-12-31" 
],
[
 "Oranges",
  2010,
"East",
    98,
    91,
     7,
"2010-12-31" 
],
[
 "Bananas",
  2010,
"East",
    81,
    71,
    10,
"2010-12-31" 
] 
];
data.addColumn('string','Fruit');
data.addColumn('number','Year');
data.addColumn('string','Location');
data.addColumn('number','Sales');
data.addColumn('number','Expenses');
data.addColumn('number','Profit');
data.addColumn('string','Date');
data.addRows(datajson);
var chart = new google.visualization.MotionChart(
   document.getElementById('MotionChart_2011-01-10-21-41-52')
);
var options ={};
options["width"] =    600;
options["height"] =    500;
chart.draw(data,options);
}
</script>
<div id="MotionChart_2011-01-10-21-41-52" style="width: 600px; height: 500px;">
</div>
 Data: Fruits, Chart ID: MotionChart_2011-01-10-21-41-52
<BR>
R version 2.12.1 (2010-12-16),
<a href="http://code.google.com/apis/visualization/terms.html">
Google Terms of Use</a>
<BR>
<BR>




You can get these code by
M1 <- gvisMotionChart(Fruits, idvar="Fruit", timevar="Year")
print(M1)
#or
M1$html$chart