data(LA_places)
plot.new()
par(mar=c(.5,.5,2.25,.5), oma=c(1,1,1,1))
plot.window(c(-1.3515289593271725E7,-1.2869549578318553E7),c(3787607.625475114,4260905.704606224),
xaxs = 'i', yaxs = 'i')
plot(openmap(c(35.71083783530009,-121.409912109375),c(32.18491105051798,-115.609130859375),7,'osm'),add=TRUE)
var <- LA_places@data[,'ID']
var <- round(100*(var+min(var))/max(var))
clrs <- heat.colors(100,alpha=.1) #set alpha here
var <- clrs[var]
x <- coordinates(LA_places)[,1]
y <- coordinates(LA_places)[,2]
points(x,y,col=var)
title('')