An embedded and charset-unspecified text was scrubbed... Name: not available URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20121019/b033ef05/attachment.pl>
Axis Breaks with ggplot2
3 messages · Edward Patzelt, Jim Lemon, John Kane
On 10/20/2012 01:50 AM, Edward Patzelt wrote:
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 .
Hi Edward, The gap.barplot function in the plotrix package does something like this, but it is not ggplot2. Jim
2 days later
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: patze003 at umn.edu Sent: Fri, 19 Oct 2012 09:50:49 -0500 To: r-help at 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 at 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