# NOT RUN {
library(ggplot2)
# basically swap out facet_wrap for facet_trelliscope
qplot(cty, hwy, data = mpg) +
facet_trelliscope(~ class + manufacturer)
# not required, but if you set labels, these will be added as
# descriptions to the cognostics that are automatically computed
mpg <- set_labels(mpg, mpg_labels)
qplot(cty, hwy, data = mpg) +
theme_bw() +
facet_trelliscope(~ manufacturer + class, nrow = 2, ncol = 4)
# using plotly
library(plotly)
qplot(cty, hwy, data = mpg) +
theme_bw() +
facet_trelliscope(~ manufacturer + class, nrow = 2, ncol = 4, as_plotly = TRUE)
qplot(class, cty, data = mpg, geom = c("boxplot", "jitter")) +
facet_trelliscope(~ class, ncol = 7, height = 800, width = 200,
state = list(sort = list(sort_spec("cty_mean")))) +
theme_bw()
library(gapminder)
qplot(year, lifeExp, data = gapminder) +
xlim(1948, 2011) + ylim(10, 95) + theme_bw() +
facet_trelliscope(~ country + continent, nrow = 2, ncol = 7,
width = 300, as_plotly = TRUE,
plotly_cfg = list(displayModeBar = FALSE))
# }
Run the code above in your browser using DataLab