facet_trelliscope scales

[schloerke]

works with

• continuous: free, sliced, same
• discrete: free, same

library(ggplot2)

mpg2 <- mpg
mpg2$drv <- as.factor(mpg2$drv)
mpg2$cyl <- as.factor(mpg2$cyl)

for_types <- function(p, formu = ~ drv) {
  for (type in c("free", "same", "sliced")) {
    q <- p +
      labs(title = type) +
      facet_trelliscope(formu, ncol = 3, nrow = 1, scales = type)
    print(q)
  }
}

for_types(qplot(displ, hwy, data = mpg2))

for_types(qplot(displ, hwy, data = mpg2) + facet_wrap(~ fl))

for_types(qplot(cyl, hwy, data = mpg2, geom = "violin") + coord_flip())

# fails for auto-cog computation, but would theoretically work for the faceting.
for_types(qplot(displ, hwy, data = mpg2), ~ hwy > 20)