Google Map Data Test

1.Read table

#install.packages("RgoogleMaps")
library("RgoogleMaps")

## Warning: package 'RgoogleMaps' was built under R version 3.4.2

#getwd()
sales <- read.csv("C:\\Users\\keunm\\Desktop\\R_Prac_Data\\Ellie_SourceCode\\Rdata\\Data\\SalesRevenue.csv", header = TRUE)
sales

##            City Latitude Longitude Sales
## 1        Dallas  32.7766  -96.7969  1200
## 2 Grand Prairie  32.7388  -97.0031   330
## 3        Denton  33.2148  -97.1331   880
## 4    Fort Worth  32.7688  -97.3093  2330
## 5         Plano  33.0198  -96.6989   370
## 6     Arlington  32.7357  -97.1081   440
## 7      McKinney  33.2012  -96.6679   980

2. Visualization

salesMap <- GetMap(center = c(lon = -96.7969, lat = 32.7766), zoom = 9, size = c(480, 480), maptype = "terrain")
bubbleMap(sales, coords = c("Longitude", "Latitude"), map = salesMap, zcol = 'Sales', key.entries = 100*2^(1:5))