Description Usage Arguments Value Author(s) References See Also Examples
gvisMerge merges two gvis-objects, either next or below each other into one gvis-object. The objects are arranged in a HTML table.
| 1 2 | 
| x | a  | 
| y | a  | 
| horizontal | boolean. Default  | 
| tableOptions | a valid HTML table option string. Default  | 
| chartid | character. If missing (default) a random chart id will be generated based on
chart type and  | 
gvisMerge returns list of class "gvis" and "list". 
An object of class "gvis" is a list containing at least the following components:
|  | Google visualisation type, here 'gvisMerge' | 
|  | character id of the chart object. Unique chart ids are required to place several charts on the same page. | 
|  | a list with the building blocks for a page 
 | 
Markus Gesmann markus.gesmann@gmail.com,
Google Chart Tools API: http://code.google.com/apis/chart/index.html
Follow the link for Google's data policy.
See also print.gvis, plot.gvis for
printing and plotting methods
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | ## Please note that by default the googleVis plot command
## will open a browser window and requires Internet
## connection to display the visualisation.
G <- gvisGeoChart(Exports, "Country", "Profit", 
                  options=list(width=250, height=100))
T <- gvisTable(Exports, 
                  options=list(width=250, height=300))
GT <- gvisMerge(G,T, horizontal=FALSE) 
plot(GT)
M <- gvisMotionChart(Fruits, "Fruit", "Year",
                     options=list(width=400, height=410))
GTM <- gvisMerge(GT, M, horizontal=TRUE,
                     tableOptions="cellspacing=10")
plot(GTM)
line <- gvisLineChart(OpenClose, "Weekday", c("Open", "Close"), 
	      options=list(legend='none', width=300, height=150))
column <- gvisColumnChart(OpenClose, "Weekday", c("Open", "Close"),
              options=list(legend='none', width=300, height=150))
area <- gvisAreaChart(OpenClose, "Weekday", c("Open", "Close"),
              options=list(legend='none', width=300, height=150))
bar <- gvisBarChart(OpenClose, "Weekday", c("Open", "Close"),
              options=list(legend='none', width=300, height=150))
LBCA <- gvisMerge(gvisMerge(line, bar), gvisMerge(column, area),
                  horizontal=TRUE, tableOptions="bgcolor=\"#AABBCC\"") 
plot(LBCA)
## Applying gvisMerge successively
p <- Reduce(gvisMerge, list(line, column, area, bar))
plot(p)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.