Not in ggplot2 as far as I know. As Jim Lemon says the plotrix package should
handle this.
An alternative that probably gives better data interpretation might be to use
facet.grid() or perhaps facet_wrap() in ggplot2.
Crude example
library(ggplot2)
xx <- data.frame(aa = c(10, 12, 15, 55, 65), cc <- 1:5, bb =
c("a","a","a","b","b"))
str(xx)
gbar <- ggplot(xx, aes(cc, aa, fill= cc)) + geom_bar(stat="identity")
gbar + facet_grid(bb ~ .)
John Kane
Kingston ON Canada
> -----Original Message-----
> From: patze...@umn.edu
> Sent: Fri, 19 Oct 2012 09:50:49 -0500
> To: r-help@r-project.org
> Subject: [R] Axis Breaks with ggplot2
>
> R-help -
>
> I'm trying to create axis breaks similar to this :
> http://www.r-bloggers.com/wp-content/uploads/2010/08/bar-chart-natural-axis-split1.png
> .
>
> Is there a way to do this in R? Here's my code thus far:
>
> structure(list(condition = structure(c(2L, 1L, 3L), .Label = c("con",
> "exp", "unedit"), class = "factor"), trial.avg = c(4.04583333333333,
> 4.33541666666667, 4.61875), trial.sd = c(0.928718367573187,
> 0.851822141963017,
> 1.03502368980692), s.e. = c(0.0232179591893297, 0.0212955535490754,
> 0.163651614601074), N = c(40, 40, 40), condition2 = structure(1:3, .Label
> =
> c("Interaction Censured",
> "Control Censured", "Uncensured"), class = "factor")), .Names =
> c("condition",
> "trial.avg", "trial.sd", "s.e.", "N", "condition2"), row.names = c(NA,
> -3L), class = "data.frame")
>
> library(ggplot2)
> none <- theme_blank()
> err1$condition <- as.factor(err1$condition)
> censorA <- ggplot() + geom_bar(aes(y = trial.avg, x =
> as.factor(condition2), fill = as.factor(condition2), position = "dodge"),
> data = err1)
>
> censorB <- censorA + geom_errorbar(aes(x = err1$condition2, ymin =
> (err1$trial.avg-(err1$trial.sd/sqrt(40))), ymax = (err1$trial.avg+(err1$
> trial.sd/sqrt(40))), data = err1, width = .4))
>
> censorC <- censorB + opts(panel.background = none) + opts(panel.border =
> none) + opts(panel.grid.minor = none) + opts(panel.grid.major = none) +
> opts(axis.line = theme_segment(colour = "grey35")) + opts(background.fill
> =
> none)
>
>
> censorC + scale_y_continuous(limits = c(0,7), expand = c(0,0), 'Rating')
> +
> opts(legend.position = "none")
>
> Best,
>
> --
> Edward H. Patzelt
> Research Assistant ? TRiCAM Lab
> University of Minnesota ? Psychology/Psychiatry
> VA Medical Center
> S355 Elliot Hall: 612-626-0072
> www.psych.umn.edu/research/tricam
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
____________________________________________________________
GET FREE SMILEYS FOR YOUR IM & EMAIL - Learn more at
http://www.inbox.com/smileys
Works with AIM®, MSN® Messenger, Yahoo!® Messenger, ICQ®, Google Talk™ and most
webmails
______________________________________________
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.
