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)