data(CityPopularity)
G <- gvisGeoMap(CityPopularity, locationvar='City' ,numvar='Popularity',
options=list(region='US',
dataMode='markers',
colors='[0xFF8747, 0xFFB581, 0xc06000]'))
plot(G)
Run the code above in your browser using DataLab