I have defined a colorRampPalette: my.colors = colorRampPalette(c("light green", "yellow", "orange", "red")) How can I plot a colorbar "legend" item for it, preferably using only the base package...