# NOT RUN {
attach(iris)
map <- makecmap(Petal.Length)
pl.color <- cmap(Petal.Length, map = map)
plot(Sepal.Length, Sepal.Width, col = pl.color, pch = 16)
hkey(map, title = 'Petal length (hkey default)')
hkey(map, title = 'Another hkey', x = 3.8, y = 4.7, stretch = 3)
## looks bad with default margins
vkey(map, title = 'vkey default')
vkey(map, title = 'Small vkey', x = 7.8, y = 4, stretch = 0.3)
# }
Run the code above in your browser using DataLab