# NOT RUN {
## Distances between European cities
distogram(eurodist, title = 'Distance (km)')
## Some variations
map <- distogram(eurodist, key = FALSE, colFn = jet, right = TRUE)
vkey(map, title = 'Distance (km)', x = -8)
# }
Run the code above in your browser using DataLab