facet_wrap needs labeller parameter like facet_grid

[hadley]

No description provided.

[bbolker]

bump? I would love to have this ... should I try to dig in and write it myself or is it likely to be tricky?

[hadley]

Hmmm, it shouldn't be too hard if you follow a parallel path to facet_grid. One roadblock is figuring out what arguments the function should accept.

[lselzer]

I'm trying to implent this. However, I cannot figure out why it doesn't render the parsed labels, instead I get expression(...).
Here's my modified code:
facet_strips.wrap <- function(facet, panel, theme) {
labeller <- match.fun(facet$labeller)

labels_df <- panel$layout[names(facet$facets)]
labels_df[] <- llply(labels_df, function(df) labeller(names(df), df))

labels <- apply(labels_df, 1, paste, collapse=", ")

list(t = llply(labels, ggstrip, theme = theme))
}

What am I missing?

[peacej]

Bump.. facet_wrap indeed needs a labeller parameter like facet_grid...

[johnfrombluff]

If +1 is of any value, +1. If not, NULL

[jklontz]

👍

[hadley]

This sounds like a great feature, but unfortunately we don't currently have the development bandwidth to support it. If you'd like to submit a pull request that implements this feature, please follow the instructions in the development vignette.