OpenStreetMap (version 0.3.1)

plot.OpenStreetMap: Plot an OpenStreetMap object.

Description

Plot an OpenStreetMap object.

Usage

## S3 method for class 'OpenStreetMap':
plot(x, y = NULL, add = FALSE,
    removeMargin = TRUE, ...)

Arguments

x

the OpenStreetMap

y

ignored

add

add to current plot

removeMargin

remove margins from plotting device

...

additional parameters to be passed to plot

Examples

#
#	The following examples
#	plot using native mercator coordinates,
#	transforming the data where needed
#
m <- c(25.7738889,-80.1938889)
j <- c(58.3019444,-134.4197222)
miami <- projectMercator(25.7738889,-80.1938889)
jun <- projectMercator(58.3019444,-134.4197222)
data(states)
map <- openmap(j,m,4,type="stamen-terrain")
plot(map,removeMargin=FALSE)
plot(states,add=TRUE)

data(LA_places)
longBeachHarbor <- openmap(c(33.760525217369974,-118.22052955627441),
		c(33.73290566922855,-118.17521095275879),14,'bing')
coords <- coordinates(LA_places)
x <- coords[,1]
y <- coords[,2]
txt <- slot(LA_places,"data")[,'NAME']
plot(longBeachHarbor)
points(x,y,col="red")
text(x,y,txt,col="white",adj=0)

if(require(UScensus2010)){
	#install with: install.tract("linux")
	if(require(UScensus2010tract)){
		lat <- c(43.834526782236814,30.334953881988564)
		lon <- c(-131.0888671875  ,-107.8857421875)
		southwest <- openmap(c(lat[1],lon[1]),c(lat[2],lon[2]),5,'osm')
		data(california.tract10)
		cali <- spTransform(california.tract10,osm())

		plot(southwest)
		plot(cali,add=TRUE)
	}
}

#
#	The same plot using apple's maps and long-lat coordinates,
#   transforming the raster map.
#
if(require(UScensus2010)){
	#install with: install.tract("linux")
	if(require(UScensus2010tract)){
		lat <- c(43.834526782236814,30.334953881988564)
		lon <- c(-131.0888671875  ,-107.8857421875)
		southwest <- openmap(c(lat[1],lon[1]),
				c(lat[2],lon[2]),5,"apple-iphoto")
		southwest_longlat <- openproj(southwest)
		data(california.tract10)
		plot(southwest_longlat)
		plot(california.tract10,add=TRUE)
	}
}