adding lines to a barchart
On 12/19/07, Spilak,Jacqueline [Edm] <Jacqueline.Spilak at ec.gc.ca> wrote:
Hi all I can't find what I am looking for so I am asking here. I have a dataset that looks something like this. Year season percent_below 2000 Winter 6.9179870 2000 Spring 1.6829436 2000 Summer 1.8463501 2000 Autumn 3.8184993 2001 Winter 2.8832806 2001 Spring 2.5870511 2001 Summer 0.0000000 2001 Autumn 4.7248240 2002 Winter 4.4532238 2002 Spring 3.7468846 2002 Summer 1.0784311 2002 Autumn 3.7061533 I have plotted this nicely using barchart(percent_below ~ factor(Season, levels=Season), data= dataset1, group=Year) This gives me a barplot by season with each year shown in that season. Now the tricky part. My data is from 2000 to 2007 and 2007 is an important year. I have an upper and lower limit for percent_below for 2007 for each season. I would like to add the upper and lower limit of 2007 as a black line to each season. The upper and lower limit will be different for each season. This is being done so for a comparison so I need it done this way.
I would suggest a slightly different format. Here's an example with
one set of limits; you can add another set similarly. If you really
want a single panel, you could use panel.segments().
barchart(percent_below ~ factor(Year) | factor(season, levels=unique(season)),
data= dataset1, origin = 0, layout = c(4, 1),
upper_2007 = c(6, 4, 5, 3),
panel = function(..., upper_2007) {
panel.abline(h = upper_2007[packet.number()])
panel.barchart(...)
})
-Deepayan