origMap = openmap(
c(-11, 9),
path='cartodb-nolabels',
buffer=2, verbose=TRUE
)
oldpar= map.new(origMap, bg='green')
plot(origMap, add=TRUE)
transMap = tonerToTrans(origMap, mostCommon=1)
names(transMap)
map.new(transMap, bg='green')
plot(transMap, add=TRUE)
par(oldpar)
Run the code above in your browser using DataLab