library(ggplot2)
p <- ggplot(data=tempTable, aes(x=Bands8, y=AvailableMWNewFormat,
fill=as.factor(FuelTypeNum))) +
geom_bar(position="stack", stat="identity")+
coord_flip() + scale_fill_discrete("test") +
scale_fill_manual("FuelTypeNum",values= c("1" = "blue", "2" = "red", "4"
="green", "5"="orange"),
breaks=c("1", "2", "4", "5"),
labels=c("biomass", "coal", "gas", "hydro"))
Hydro? Canadian, eh?
By the way, I just stole the solution from the Cookbook for R
http://wiki.stdout.org/rcookbook/Graphs/Legends%20%28ggplot2%29/
Here is a slightly different approach using the RColorBrewer package. The
colours are a bit less garish than the ones I randomly picked.
library(ggplot2)
p <- ggplot(data=tempTable, aes(x=Bands8, y=AvailableMWNewFormat,
fill=as.factor(FuelTypeNum))) +
geom_bar(position="stack", stat="identity")+
coord_flip() +
scale_fill_brewer(palette="Set1", name="Energy\nSources",
breaks=c("1", "2", "4", "5"),
labels=c("biomass", "coal", "gas", "hydro"))
p
John Kane
Kingston ON Canada
> -----Original Message-----
> From: ja...@crosb.ie
> Sent: Fri, 8 Jun 2012 10:29:11 -0700 (PDT)
> To: r-help@r-project.org
> Subject: Re: [R] ggplot incorrect legend
>
> Thank you, that was very helpful.
>
> Would it be possible to rename the legend values as well. Example 1 as
> Biomass, 2 as coal, 4 as gas, 5 as hydro?
>
> ggplot(data=tempTable, aes(x=Bands8, y=AvailableMWNewFormat,
> fill=as.factor(FuelTypeNum))) +
> geom_bar(position="stack", stat="identity")+
> guides(fill = guide_legend(title = "Fuel Type", title.position =
> "top"))+
> xlab( "Price Bands")+
> ylab("Available MW")
____________________________________________________________
FREE ONLINE PHOTOSHARING - Share your photos online with your friends and
family!
Visit http://www.inbox.com/photosharing to find out more!
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
