data(Andrew)
AndrewGeoMap <- gvisGeoMap(Andrew, locationvar='LatLong', numvar='Speed_kt',
hovervar='Category',
options=list(width=800,height=400, region='US'))
AndrewMap <- gvisMap(Andrew, 'LatLong' , 'Tip',
options=list(showTip=TRUE, showLine=TRUE,
enableScrollWheel=TRUE,
mapType='hybrid', useMapTypeControl=TRUE,
width=800,height=400))
AndrewTable <- gvisTable(Andrew,options=list(width=800))
## Combine the outputs into one page:
AndrewVis <- list(type='GeoMapTable',
chartid='Hurricane-Andrew',
html=list(header=AndrewGeoMap$html$header,
chart=list(AndrewGeoMap$html$chart,
AndrewMap$html$chart,
AndrewTable$html$chart
),
caption="Combination of various googleVis outputs <BR />",
footer=AndrewGeoMap$html$footer)
)
class(AndrewVis) <- list('gvis',class(AndrewVis))
plot(AndrewVis)Run the code above in your browser using DataLab