facet-wrap

I've got a nice facet_wrap density plot that I have created with ggplot2 . I would like for each panel to have x and y axis labels instead of only having the y axis labels along the left side and the x labels along the bottom. What I have right now looks like this: library(ggplot2) myGroups <- sample(c("Mo", "Larry", "Curly"), 100, replace=T) myValues <- rnorm(300) df <- data.frame(myGroups, myValues) p <- ggplot(df) + geom_density(aes(myValues), fill = alpha("#335785", .6)) + facet_wrap(~ myGroups) p Which returns: (source: cerebralmastication.com ) It seems like this should be simple, but my

I seem unable to correctly color axis text on a faceted plot when the scales parameter is set to "free" . Consider the following dataset: library( ggplot2 ) X <- data.frame( V1 = LETTERS, V2 = runif( 26 ), V3 = rep( c("F1", "F2"), each = 13 ) ) We can plot the data on a single facet, highlighting the letters D, O, T as follows: v <- ifelse( X$V1 %in% c( "D", "O", "T" ), "red", "black" ) g <- ggplot( X, aes( x = V1, y = V2 ) ) + geom_point() + theme( axis.text.x = element_text( color = v ) ) Making the plot faceted using the default scales = "fixed" correctly highlights D, O, T on both facets.

Based on the example here Adding Regression Line Equation and R2 on graph , I am struggling to include the regression line equation for my model in each facet. However, I don't figure why is changing the limits of my x axis. library(ggplot2) library(reshape2) df <- data.frame(year = seq(1979,2010), M02 = runif(32,-4,6), M06 = runif(32, -2.4, 5.1), M07 = runif(32, -2, 7.1)) df <- melt(df, id = c("year")) ggplot(data = df, mapping = aes(x = year, y = value)) + geom_point() + scale_x_continuous() + stat_smooth_func(geom = 'text', method = 'lm', hjust = 0, parse = T) + geom_smooth(method = 'lm',

I am looking to flip the labels on a faceted panel of 1 row and 5 columns, so that the facet headers appear on bottom, and the x axis appears on top of facets. The reason is that I want to reuse those headers for a table that will be directly below the graph. So in this example... library(ggplot2) my.hist<-ggplot(diamonds, aes(clarity)) + geom_bar() my.hist + facet_wrap( ~ cut, ncol=5) + coord_flip() I would want the "cut" labels to show up below the chart. I was thinking that facet_grid might hold the key, but is only a guess. Anyone know how to accomplish this? Getting the facet strips below

Consider the following ggplot2 graph with long facet/strip text broken in two lines. The text goes outside the area devoted to facet titles. library(ggplot2) x <- c(1:3, 1:3) y <- c(3:1, 1:3) grp <- c(0, 0, 0, 1, 1, 1) p <- qplot(x=x, y=y) + geom_line() + facet_wrap(~ grp) grob <- ggplotGrob(p) strip.elem.y <- grid.ls(getGrob(grob, "strip.text.x", grep=TRUE, global=TRUE))$name grob <- geditGrob(grob, strip.elem.y[1], label="First line and\n second line" ) grid.draw(grob) Is there a way to increase the height of the strip text area ? I tried this a variety of ways but was frustrated getting the