Intensity Map by rStudio

datamap <- sqlQuery(channel, "select chCountryCode as Country from vCompany group by chCountryCode")


dataframe <- sqlQuery(channel, "select chCountryCode as Country, count(iCompanyId) as Total from vCompany group by chCountryCode  order by 2 desc")


Geo=gvisGeoChart(dataframe)

plot(Geo)