Mapping Hans Island
library('mapmisc')
library('knitr')
haveRgdal = require('rgdal', quietly=TRUE)
opts_chunk$set(dpi=40,dev.args=list(bg='white'), out.width='400')
# higher resolution images
# opts_chunk$set(dpi=72)
coords = rbind(Alert = c(-62.338889, 82.501389),
Qaanaaq = c(-69.238685,77.466335),
'Alex Fjord' = c(-75.999722, 78.9),
'Hans island' = c(-66.459722, 80.828056)
)
x = SpatialPointsDataFrame(
coords,
data=data.frame(name=rownames(coords)),
proj4string=crsLL
)
if(haveRgdal){
map = openmap(x, path='osm', verbose=TRUE, maxTiles=20, buffer=c(30,3))
map.new(map)
plot(map,add=TRUE)
points(x)
text(x, label=x$name, pos=4)
scaleBar(x, 'bottom')
scaleBar(x, 'left', seg.len=0, bty='n')
}
## zoom is 4 , 12 tiles
## osm
## http://tile.openstreetmap.org/
## downloading http://tile.openstreetmap.org/4/3/0.png
## downloading http://tile.openstreetmap.org/4/3/1.png
## downloading http://tile.openstreetmap.org/4/3/2.png
## downloading http://tile.openstreetmap.org/4/4/0.png
## downloading http://tile.openstreetmap.org/4/4/1.png
## downloading http://tile.openstreetmap.org/4/4/2.png
## downloading http://tile.openstreetmap.org/4/5/0.png
## downloading http://tile.openstreetmap.org/4/5/1.png
## downloading http://tile.openstreetmap.org/4/5/2.png
## downloading http://tile.openstreetmap.org/4/6/0.png
## downloading http://tile.openstreetmap.org/4/6/1.png
## downloading http://tile.openstreetmap.org/4/6/2.png
## reprojecting 786432 cells...done
## copying colortable for osm
if(haveRgdal){
mapSat = openmap(x, path='mapquest', verbose=TRUE, maxTiles=20, buffer=c(30,3))
map.new(mapSat)
if(nlayers(mapSat) > 2) plotRGB(mapSat,add=TRUE)
points(x)
text(x, label=x$name, pos=4)
scaleBar(x, 'bottom')
scaleBar(x, 'left', seg.len=0, bty='n')
}
## zoom is 4 , 12 tiles
## mapquest
## http://otile1.mqcdn.com/tiles/1.0.0/osm/
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/3/0.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/3/1.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/3/2.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/4/0.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/4/1.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/4/2.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/5/0.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/5/1.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/5/2.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/6/0.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/6/1.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/4/6/2.png
## reprojecting 786432 cells...done
if(haveRgdal){
mapSat = openmap(x=x[x$name=='Hans island',], path='mapquest',
verbose=TRUE, buffer=c(4,1), zoom=6)
map.new(x[x$name=='Hans island',], buffer=0.3)
if(nlayers(mapSat) > 2) plotRGB(mapSat,add=TRUE)
points(x, pch=4, col='#FF000040', cex=5)
text(x, label=x$name, pos=4)
scaleBar(x, 'bottomright')
}
## zoom is 6 , 6 tiles
## mapquest
## http://otile1.mqcdn.com/tiles/1.0.0/osm/
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/6/19/5.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/6/19/6.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/6/19/7.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/6/20/5.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/6/20/6.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/6/20/7.png
## reprojecting 393216 cells...done
if(haveRgdal){
mapSat = openmap(x[x$name=='Qaanaaq',], path='mapquest',
verbose=TRUE, buffer=c(2,1), zoom=5)
map.new(x[x$name=='Qaanaaq',], buffer=0.5)
if(nlayers(mapSat) > 2) plotRGB(mapSat,add=TRUE)
points(x, pch=4, col='red', cex=5)
text(x, label=x$name, pos=4, col='red')
scaleBar(x, 'bottomleft')
}
## zoom is 5 , 4 tiles
## mapquest
## http://otile1.mqcdn.com/tiles/1.0.0/osm/
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/5/9/4.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/5/9/5.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/5/10/4.png
## downloading http://otile1.mqcdn.com/tiles/1.0.0/osm/5/10/5.png
## reprojecting 262144 cells...done
if(haveRgdal){
xMerc = spTransform(x, omerc(x))
mapMerc = openmap(xMerc, path='osm', verbose=TRUE,
maxTiles=20, buffer=c(50,200)*1000)
map.new(xMerc, buffer=50000)
plot(mapMerc,add=TRUE)
points(xMerc)
text(xMerc, label=xMerc$name, pos=4)
scaleBar(xMerc, 'bottomleft')
scaleBar(xMerc, 'left', seg.len=0, bty='n')
}
## zoom is 4 , 6 tiles
## osm
## http://tile.openstreetmap.org/
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./4/4/0.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./4/4/1.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./4/4/2.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./4/5/0.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./4/5/1.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./4/5/2.png cached
## reprojecting 393216 cells...done
## copying colortable for osm
if(haveRgdal){
xOmerc = spTransform(
x,
omerc(x,angle=5)
)
map = openmap(xOmerc,
path=c('nrcan', 'nrcan-text'),
verbose=TRUE, fact=3,
maxTiles=10, buffer=c(20,100,100,0)*10*1000)
mapText = rgbtToIndex(map, pattern='nrcan.text')
map.new(map)
plotRGB(map[[grep("text", names(map), invert=TRUE)]],
add=TRUE)
gridlinesWrap(map, easts=seq(-180,0,by=2), col='red')
plot(mapText,add=TRUE)
points(xOmerc)
text(xOmerc, label=xOmerc$name, pos=4)
scaleBar(xOmerc, 'bottom', bg='white')
scaleBar(xOmerc, 'left', seg.len=0, bty='n')
}
## zoom is 3 , 9 tiles
## nrcan-text
## http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/0/1
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/1/1
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/2/1
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/0/2
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/1/2
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/2/2
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/0/3
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/1/3
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_TXT_3857/MapServer/tile/3/2/3
## nrcan
## http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/0/1
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/1/1
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/2/1
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/0/2
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/1/2
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/2/2
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/0/3
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/1/3
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/3/2/3
## Warning in `[<-`(`*tmp*`, i, value = <S4 object of class
## structure("RasterLayer", package = "raster")>): implicit list embedding of
## S4 objects is deprecated
## Warning in `[<-`(`*tmp*`, i, value = <S4 object of class
## structure("RasterLayer", package = "raster")>): implicit list embedding of
## S4 objects is deprecated
## Warning in `[<-`(`*tmp*`, i, value = <S4 object of class
## structure("RasterLayer", package = "raster")>): implicit list embedding of
## S4 objects is deprecated
## reprojecting 589824 cells...done
if(haveRgdal){
map = openmap(x[x$name=='Alex Fjord',],
path='nrcan',
verbose=TRUE, buffer=c(5,5,2,1))
map.new(map)
plotRGB(map, add=TRUE)
points(x, pch=4, col='red', cex=5)
text(x, label=x$name, pos=1, col='red')
scaleBar(x, 'bottomleft')
}
## zoom is 6 , 9 tiles
## nrcan
## http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/7/17
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/8/17
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/9/17
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/7/18
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/8/18
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/9/18
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/7/19
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/8/19
## downloading http://geoappext.nrcan.gc.ca/arcgis/rest/services/BaseMaps/CBMT_CBCT_GEOM_3857/MapServer/tile/6/9/19
## reprojecting 589824 cells...done
Mapping Antipodes Island
Check to see that Mount Waterhouse and a rocky island are correctly positioned
waterhouseLL = SpatialPoints(
cbind(x=178.7729285, y=-49.6941201),
proj4string=crsLL
)
rockLL = SpatialPoints(
cbind(x=178.80112, y=-49.69171),
proj4string=crsLL
)
if(haveRgdal) {
waterhouseMerc <- spTransform(waterhouseLL, crsMerc)
rockMerc = spTransform(rockLL, crsMerc)
#dput(rockMerc, file='')
#dput(waterhouseMerc, file='')
} else {
waterhouseMerc = new("SpatialPoints"
, coords = structure(c(19900911.3682423, -6393470.38497316), .Dim = 1:2, .Dimnames = list(
NULL, c("x", "y")))
, bbox = structure(c(19900911.3682423, -6393470.38497316, 19900911.3682423,
-6393470.38497316), .Dim = c(2L, 2L), .Dimnames = list(c("x",
"y"), c("min", "max")))
, proj4string = new("CRS"
, projargs = "+proj=merc +ellps=sphere +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +no_defs"
)
)
rockMerc = new("SpatialPoints"
, coords = structure(c(19904049.631667, -6393055.64126258), .Dim = 1:2, .Dimnames = list(
NULL, c("x", "y")))
, bbox = structure(c(19904049.631667, -6393055.64126258, 19904049.631667,
-6393055.64126258), .Dim = c(2L, 2L), .Dimnames = list(c("x",
"y"), c("min", "max")))
, proj4string = new("CRS"
, projargs = "+proj=merc +ellps=sphere +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +no_defs"
)
)
}
mapMerc = openmap(waterhouseMerc, buffer=4000, crs=NA, verbose=TRUE)
## zoom is 13 , 4 tiles
## http://tile.openstreetmap.org/
## http://tile.openstreetmap.org/
## downloading http://tile.openstreetmap.org/13/8163/5402.png
## downloading http://tile.openstreetmap.org/13/8163/5403.png
## downloading http://tile.openstreetmap.org/13/8164/5402.png
## downloading http://tile.openstreetmap.org/13/8164/5403.png
## copying colortable for http...tile.openstreetmap.org.
map.new(mapMerc)
plot(mapMerc, add=TRUE)
points(waterhouseMerc, col='blue', cex=5)
scaleBar(mapMerc, 'bottomleft')
mapMercFine = openmap(rockMerc, buffer=100, crs=NA, verbose=TRUE)
## zoom is 18 , 4 tiles
## http://tile.openstreetmap.org/
## http://tile.openstreetmap.org/
## downloading http://tile.openstreetmap.org/18/261270/172890.png
## downloading http://tile.openstreetmap.org/18/261270/172891.png
## downloading http://tile.openstreetmap.org/18/261271/172890.png
## downloading http://tile.openstreetmap.org/18/261271/172891.png
## copying colortable for http...tile.openstreetmap.org.
map.new(mapMercFine)
plot(mapMercFine, add=TRUE)
points(rockMerc, col='blue',cex=5)
scaleBar(mapMercFine, 'bottomleft')
if(haveRgdal) {
mapLL = openmap(waterhouseLL, buffer=0.02, verbose=TRUE)
map.new(mapLL)
plot(mapLL, add=TRUE)
points(waterhouseLL, pch=3, cex=5)
scaleBar(mapLL, 'bottomleft')
}
## zoom is 13 , 4 tiles
## http://tile.openstreetmap.org/
## http://tile.openstreetmap.org/
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./13/8163/5402.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./13/8163/5403.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./13/8164/5402.png cached
## tile /tmp/Rtmpij1NTZ/Xhttp...tile.openstreetmap.org./13/8164/5403.png cached
## reprojecting 262144 cells...done
## copying colortable for http...tile.openstreetmap.org.
if(haveRgdal) {
mapLLfine = openmap(rockLL, zoom=19, verbose=TRUE, buffer=0.0002)
map.new(mapLLfine)
plot(mapLLfine, add=TRUE)
points(rockLL, col='blue', pch=3, cex=5)
scaleBar(mapLL, 'bottomleft')
}
## zoom is 19 , 4 tiles
## http://tile.openstreetmap.org/
## http://tile.openstreetmap.org/
## downloading http://tile.openstreetmap.org/19/522541/345781.png
## downloading http://tile.openstreetmap.org/19/522541/345782.png
## downloading http://tile.openstreetmap.org/19/522542/345781.png
## downloading http://tile.openstreetmap.org/19/522542/345782.png
## reprojecting 262144 cells...done
## copying colortable for http...tile.openstreetmap.org.
h