Plot the locations of all of the pokemon in the Vanpoke table, overlayed on a map of Vancouver. Provide the resulting graphic. The following code segment may be useful:

Table Vanpoke is like this:

library(RSQLite)

library(DBI)

devon = dbConnect(SQLite(), dynamo = 'vanPoke')

Thank you.

library(rworldmap) ## Loading required package: sp ## ### Welcome to rworldmap ### ## For a short introduction type : vignette('rworldmap') library(rworldxtra) worldmap = getMap(resolution = "high") NrthAm = worldmap [which (worldmap$REGION =="North America"),] plot (NrthAm, xlim=c(-123.35,-122.65), ylim=c(49,49.35), main = "Pokemon in Vancouver") query = "PRAGMA table_info('Vanpoke')" dbGetQuery(dbcon, query) al x Oly_ads" "POP 2006" "POP2011" [7] "in " tickets zip R Console data.frame 13 x 6 cid name type notnull dflt_value pk O date TEXT TEXT NA TEXT NA 1 time_until 2 name 3 cp 4 level INTEGER NA INTEGER NA TEXT NA TEXT NA 5 iv 6 moveset 7 gender 8 address 9 city TEXT NA TEXT NA TEXT NA 1-10 of 13 rows Previous 1 2 Next query = "PRAGMA table_info('Vanpoke')" dbGetQuery(dbcon, query) a x [1] "CA" "Olym ds" "POP 2006 "POP2011 [7] "in " tickets "zip" R Console data. frame - 13 x 6 cid name type notnull pk dflt_value NA 0 10 latitude 11 longitude REAL REAL TEXT ooo NA 12 weather NA 11-13 of 13 rows Previous 1 2 Next library(rworldmap) ## Loading required package: sp ## ### Welcome to rworldmap ### ## For a short introduction type : vignette('rworldmap') library(rworldxtra) worldmap = getMap(resolution = "high") NrthAm = worldmap [which (worldmap$REGION =="North America"),] plot (NrthAm, xlim=c(-123.35,-122.65), ylim=c(49,49.35), main = "Pokemon in Vancouver") query = "PRAGMA table_info('Vanpoke')" dbGetQuery(dbcon, query) al x Oly_ads" "POP 2006" "POP2011" [7] "in " tickets zip R Console data.frame 13 x 6 cid name type notnull dflt_value pk O date TEXT TEXT NA TEXT NA 1 time_until 2 name 3 cp 4 level INTEGER NA INTEGER NA TEXT NA TEXT NA 5 iv 6 moveset 7 gender 8 address 9 city TEXT NA TEXT NA TEXT NA 1-10 of 13 rows Previous 1 2 Next query = "PRAGMA table_info('Vanpoke')" dbGetQuery(dbcon, query) a x [1] "CA" "Olym ds" "POP 2006 "POP2011 [7] "in " tickets "zip" R Console data. frame - 13 x 6 cid name type notnull pk dflt_value NA 0 10 latitude 11 longitude REAL REAL TEXT ooo NA 12 weather NA 11-13 of 13 rows Previous 1 2 Next