Re: [R] using color coded colorbars for bar plots

From: hadley wickham <>
Date: Mon, 3 Dec 2007 10:30:19 -0600

On 12/2/07, Jim Lemon <> wrote:
> wrote:
> > Hi Jim,
> > Thanks for getting back to me so quickly.
> >
> > I did look at color.legend, but that seems to plot colored blocks for
> > the observations (in this case the mean) and not for the color.scale
> > (which represents variance in this case). Unless there is a
> > functionality that I haven't discovered yet. If you have created a
> > similar plot and would be happy to share some code I'd be very
> > apprecitive.
> >
> Part of the problem is that you seem to have two names for the same
> variable in your code (Standard.Deviance and Standard.Deviation - unless
> that was a typo). Notice how I calculate the colors twice, the second
> time with a simple integer sequence to get the right number of evenly
> spaced colors. In your example, you calculated the colors for
> RankVar$Standard.Deviance again, but you don't need all those colors for
> the legend, and they're in the wrong order anyway. What is generally
> wanted for a color legend is the minimum and maximum values on the ends
> and a few linear interpolations in the middle.
> barplot(RankVar$MeanDecreaseAccuracy,
> col=color.scale(RankVar$Standard.Deviance,
> c(0,1,1),c(1,1,0),0),
> ylab = "Variable Importance",
> names.arg = rownames(RankVar),
> cex.names = .7,
> main = "Variables from RandomFishForest",
> sub= "Mean Decrease in Accuracy")
> col.labels<- c("Low","Mid","High")
> color.legend(6,13,11,14,col.labels,
> rect.col=color.scale(1:5,c(0,1,1),c(1,1,0),0))

Another option would be to use ggplot2:


qplot(rownames(RankVar), MeanDecreaseAccuracy, data = RankVar, colour = Standard.Deviance)

and then use to control the choice of colours for the mapping.




______________________________________________ mailing list
PLEASE do read the posting guide
and provide commented, minimal, self-contained, reproducible code.
Received on Mon 03 Dec 2007 - 16:33:06 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Mon 03 Dec 2007 - 18:30:16 GMT.

Mailing list information is available at Please read the posting guide before posting to the list.