help with x axis on lattice barchart--R-Beginner

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

help with x axis on lattice barchart--R-Beginner

Davis_fishgirl
Hi all,

I am trying to compare catch vs day over a ten year period, and the graph
looks great except for the individual dates. there are so many that my x
axis labels have become one giant black line. Can I only label some of the
days or will I be unable to fix this using a barchart?

data is called chipps

year.f<-factor(chipps$Year,levels=c(2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011))
 barchart(chipps$Catch~chipps$Day|year.f,layout=c(2,5),border="transparent",
col=c("red"),scales=list(x=list(tick.number=30)))

Day  year  catch
1/10 2001 1
1/10 2002 4
5/30 2002 5
2/27 2003 1
1/10 2004 3
5/30 2003 6
2/27 2006 3
6/5 2006 6
7/25 2006 7
 5/30 2006 6
2/27 2009 2
1/10  2011 8
5/30 2004 3
2/27 2007 7
6/5 2008 5
12/7  2006 4

Lauren L.
Beginner in R

        [[alternative HTML version deleted]]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: help with x axis on lattice barchart--R-Beginner

djmuseR
Hi:

Your example data don't exhibit the types of behavior that you're
concerned about if you keep it simple. Here's how you can get the
*example* data plotted in both lattice and ggplot2; if the example
data are a subset of a much larger data set, then see below.

This 'works' on the example data after reading in the observations:

# Define day as an ordered factor
chipps$day <- factor(chipps$Day, levels = c('1/10', '2/27', '5/30',
'6/5', '7/25', '12/7'))
library('ggplot2')
ggplot(chipps, aes(x = day, y = catch)) + theme_bw() + geom_bar(fill =
'red') + facet_wrap(~ year)

library('lattice')
chipps$year <- factor(chipps$year)
 barchart(Catch ~ Day| year, as.table = TRUE, col = 'red')

This assumes both year and Day are factors. The problem with your
definition of year.f and its subsequent use in barchart() is that it
contains year levels for which no data exists (specifically, 2005 and
2010). Using it as a conditioning factor in barchart() produces an
error:

barchart(chipps$catch ~ chipps$day | year.f, col = 'red')
Error in limits.and.aspect(default.prepanel, prepanel = prepanel,
have.xlim = have.xlim,  :
  need at least one panel

This is why I converted year to factor and used it as the conditioning
variable.

I don't know what your scales code was intended to do. A wild guess
would be that the 30 tick numbers are supposed to represent days of
the month, but the problem is that each panel represents a year. You
may want to think more carefully about how you want the dates
rendered.

Since there were only six unique dates within year, it was more
convenient to treat Day as an ordered factor rather than a Date
variable. It's less messy that way.

If your example data is much larger than this with many more
individual dates within year, one suggestion would be to create a Date
variable, but the problem then is to condition each panel by year and
to plot catch by month/day within panel. It's not clear to me how one
would easily do that in either lattice or ggplot2, so perhaps someone
else has a better idea and can suggest how one could do that with
dates.

HTH,
Dennis



On Wed, Oct 19, 2011 at 11:51 AM, Lauren Ledesma <[hidden email]> wrote:

> Hi all,
>
> I am trying to compare catch vs day over a ten year period, and the graph
> looks great except for the individual dates. there are so many that my x
> axis labels have become one giant black line. Can I only label some of the
> days or will I be unable to fix this using a barchart?
>
> data is called chipps
>
> year.f<-factor(chipps$Year,levels=c(2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011))
>  barchart(chipps$Catch~chipps$Day|year.f,layout=c(2,5),border="transparent",
> col=c("red"),scales=list(x=list(tick.number=30)))
>
> Day  year  catch
> 1/10 2001 1
> 1/10 2002 4
> 5/30 2002 5
> 2/27 2003 1
> 1/10 2004 3
> 5/30 2003 6
> 2/27 2006 3
> 6/5 2006 6
> 7/25 2006 7
>  5/30 2006 6
> 2/27 2009 2
> 1/10  2011 8
> 5/30 2004 3
> 2/27 2007 7
> 6/5 2008 5
> 12/7  2006 4
>
> Lauren L.
> Beginner in R
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> [hidden email] 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.
>

______________________________________________
[hidden email] 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.