In sciencegraph/brinton: A Graphical EDA Tool
Specimen of the graphics that only require 1 input variable and that, up to now, are being considered by the brinton's wideplot(), longplot() and plotup() functions.
knitr::opts_chunk$set(
message=FALSE,
warning=FALSE,
comment=NA,
dev='png',
echo=FALSE
)
# length(unique(data$vars))/6 + 0.5
library(dplyr)
library(brinton)
Logical
data(ca2006, package = "pscl")
gridExtra::grid.arrange(plotup(ca2006, "open", "line graph", output = 'plots pane'),
plotup(ca2006, "open", "point graph", output = 'plots pane'),
plotup(ca2006, "open", "point-to-point graph", output = 'plots pane'),
heights=grid::unit(c(0.83), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/logical_01-1.png')
cat("logical = c('line graph', 'point graph', 'point-to-point graph')")
gridExtra::grid.arrange(plotup(ca2006, "open", "tile plot", output = 'plots pane'),
plotup(ca2006, "open", "linerange graph", output = 'plots pane'),
heights=grid::unit(c(0.83), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/logical_02-1.png')
cat("logical = c('tile plot', 'linerange graph')")
gridExtra::grid.arrange(plotup(ca2006, "open", "binned heatmap", output = 'plots pane'),
plotup(ca2006, "open", "bw binned heatmap", output = 'plots pane'),
plotup(ca2006, "open", "color binned heatmap", output = 'plots pane'),
heights=grid::unit(c(0.83), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/logical_03-1.png')
cat("logical = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(ca2006, "open", "bar graph", output = 'plots pane'),
plotup(ca2006, "open", "bw bar graph", output = 'plots pane'),
plotup(ca2006, "open", "color bar graph", output = 'plots pane'),
heights=grid::unit(c(0.83), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/logical_04-1.png')
cat("logical = c('bar graph', 'bw bar graph', 'color bar graph')")
Ordered factor
gridExtra::grid.arrange(plotup(esoph, "agegp", "line graph", output = 'plots pane'),
plotup(esoph, "agegp", "point graph", output = 'plots pane'),
plotup(esoph, "agegp", "point-to-point graph", output = 'plots pane'),
heights=grid::unit(c(1.5), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/ordered_01-1.png')
cat("ordered = c('line graph', 'point graph', 'point-to-point graph')")
gridExtra::grid.arrange(plotup(esoph, "agegp", "tile plot", output = 'plots pane'),
plotup(esoph, "agegp", "linerange graph", output = 'plots pane'),
heights=grid::unit(c(1.5), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/ordered_02-1.png')
cat("ordered = c('tile plot', 'linerange graph')")
gridExtra::grid.arrange(plotup(esoph, "agegp", "binned heatmap", output = 'plots pane'),
plotup(esoph, "agegp", "bw binned heatmap", output = 'plots pane'),
plotup(esoph, "agegp", "color binned heatmap", output = 'plots pane'),
heights=grid::unit(c(1.5), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/ordered_03-1.png')
cat("ordered = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(esoph , "agegp", "bar graph", output = 'plots pane'),
plotup(esoph , "agegp", "bw bar graph", output = 'plots pane'),
plotup(esoph , "agegp", "color bar graph", output = 'plots pane'),
heights=grid::unit(c(1.5), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/ordered_04-1.png')
cat("ordered = c('bar graph', 'bw bar graph', 'color bar graph')")
Factor
data(monica, package = "DAAG")
monica_mod <- monica[1:100,]
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "line graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "freq. reordered line graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "alphab. reordered line graph", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_01-1.png')
cat("factor = c('line graph', 'freq. reordered line graph', 'alphab. reordered line graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "point-to-point graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "freq. reordered point-to-point graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "alphab. reordered point-to-point graph", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_02-1.png')
cat("factor = c('point-to-point graph', 'freq. reordered point-to-point graph', 'alphab. reordered point-to-point graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "linerange graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "freq. reordered linerange graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "alphab. reordered linerange graph", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_03-1.png')
cat("factor = c('linerange graph', 'freq. reordered linerange graph', 'alphab. reordered linerange graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "point graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "freq. reordered point graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "alphab. reordered point graph", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_04-1.png')
cat("factor = c('point graph', 'freq. reordered point graph', 'alphab. reordered point graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "tile plot", output = 'plots pane'),
plotup(monica_mod, "smstat", "freq. reordered tile plot", output = 'plots pane'),
plotup(monica_mod, "smstat", "alphab. reordered tile plot", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_05-1.png')
cat("factor = c('tile plot', 'freq. reordered tile plot', 'alphab. reordered tile plot')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "binned heatmap", output = 'plots pane'),
plotup(monica_mod, "smstat", "bw binned heatmap", output = 'plots pane'),
plotup(monica_mod, "smstat", "color binned heatmap", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_06-1.png')
cat("factor = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "freq. reordered binned heatmap", output = 'plots pane'),
plotup(monica_mod, "smstat", "bw freq. reordered binned heatmap", output = 'plots pane'),
plotup(monica_mod, "smstat", "color freq. reordered binned heatmap", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_07-1.png')
cat("factor = c('freq. reordered binned heatmap',
'bw freq. reordered binned heatmap',
'color freq. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "alphab. reordered binned heatmap", output = 'plots pane'),
plotup(monica_mod, "smstat", "bw alphab. reordered binned heatmap", output = 'plots pane'),
plotup(monica_mod, "smstat", "color alphab. reordered binned heatmap", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_08-1.png')
cat("factor = c('alphab. reordered binned heatmap',
'bw alphab. reordered binned heatmap',
'color alphab. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "bar graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "bw bar graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "color bar graph", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_09-1.png')
cat("factor = c('bar graph', 'bw bar graph', 'color bar graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "freq. reordered bar graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "bw freq. reordered bar graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "color freq. reordered bar graph", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_10-1.png')
cat("factor = c('freq. reordered bar graph', 'bw freq. reordered bar graph', 'color freq. reordered bar graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "alphab. reordered bar graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "bw alphab. reordered bar graph", output = 'plots pane'),
plotup(monica_mod, "smstat", "color alphab. reordered bar graph", output = 'plots pane'),
heights=grid::unit(c(1.17), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/factor_11-1.png')
cat("factor = c('alphab. reordered bar graph', 'bw alphab. reordered bar graph', 'color alphab. reordered bar graph')")
Character
data(rockArt, package = "DAAG")
gridExtra::grid.arrange(plotup(rockArt, "District", "line graph", output = 'plots pane'),
plotup(rockArt, "District", "freq. reordered line graph", output = 'plots pane'),
plotup(rockArt, "District", "alphab. reordered line graph", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_01-1.png')
cat("character = c('line graph', 'freq. reordered line graph', 'alphab. reordered line graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "point-to-point graph", output = 'plots pane'),
plotup(rockArt, "District", "freq. reordered point-to-point graph", output = 'plots pane'),
plotup(rockArt, "District", "alphab. reordered point-to-point graph", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_02-1.png')
cat("character = c('point-to-point graph', 'freq. reordered point-to-point graph', 'alphab. reordered point-to-point graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "linerange graph", output = 'plots pane'),
plotup(rockArt, "District", "freq. reordered linerange graph", output = 'plots pane'),
plotup(rockArt, "District", "alphab. reordered linerange graph", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_03-1.png')
cat("character = c('linerange graph', 'freq. reordered linerange graph', 'alphab. reordered linerange graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "point graph", output = 'plots pane'),
plotup(rockArt, "District", "freq. reordered point graph", output = 'plots pane'),
plotup(rockArt, "District", "alphab. reordered point graph", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_04-1.png')
cat("character = c('point graph', 'freq. reordered point graph', 'alphab. reordered point graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "tile plot", output = 'plots pane'),
plotup(rockArt, "District", "freq. reordered tile plot", output = 'plots pane'),
plotup(rockArt, "District", "alphab. reordered tile plot", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_05-1.png')
cat("character = c('tile plot', 'freq. reordered tile plot', 'alphab. reordered tile plot')")
gridExtra::grid.arrange(plotup(rockArt, "District", "binned heatmap", output = 'plots pane'),
plotup(rockArt, "District", "bw binned heatmap", output = 'plots pane'),
plotup(rockArt, "District", "color binned heatmap", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_06-1.png')
cat("character = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(rockArt, "District", "freq. reordered binned heatmap", output = 'plots pane'),
plotup(rockArt, "District", "bw freq. reordered binned heatmap", output = 'plots pane'),
plotup(rockArt, "District", "color freq. reordered binned heatmap", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_07-1.png')
cat("character = c('freq. reordered binned heatmap',
'bw freq. reordered binned heatmap',
'color freq. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(rockArt, "District", "alphab. reordered binned heatmap", output = 'plots pane'),
plotup(rockArt, "District", "bw alphab. reordered binned heatmap", output = 'plots pane'),
plotup(rockArt, "District", "color alphab. reordered binned heatmap", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_08-1.png')
cat("character = c('alphab. reordered binned heatmap',
'bw alphab. reordered binned heatmap',
'color alphab. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(rockArt, "District", "bar graph", output = 'plots pane'),
plotup(rockArt, "District", "bw bar graph", output = 'plots pane'),
plotup(rockArt, "District", "color bar graph", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_09-1.png')
cat("character = c('bar graph', 'bw bar graph', 'color bar graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "freq. reordered bar graph", output = 'plots pane'),
plotup(rockArt, "District", "bw freq. reordered bar graph", output = 'plots pane'),
plotup(rockArt, "District", "color freq. reordered bar graph", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_10-1.png')
cat("character = c('freq. reordered bar graph', 'bw freq. reordered bar graph', 'color freq. reordered bar graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "alphab. reordered bar graph", output = 'plots pane'),
plotup(rockArt, "District", "bw alphab. reordered bar graph", output = 'plots pane'),
plotup(rockArt, "District", "color alphab. reordered bar graph", output = 'plots pane'),
heights=grid::unit(c(3), c("in")),
ncol=4)
knitr::include_graphics('../vignettes/figures/character_11-1.png')
cat("character = c('alphab. reordered bar graph', 'bw alphab. reordered bar graph', 'color alphab. reordered bar graph')")
Datetime
flights_dt <- nycflights13::flights %>%
dplyr::transmute(departure = lubridate::make_datetime(
year,
month,
day,
hour,
minute)
)
flights_dt50 <- as.data.frame(flights_dt[1:50,])
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "line graph", output = 'plots pane'),
plotup(flights_dt50, "departure", "stepped line graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/datetime_01-1.png')
cat("datetime = c('line graph', 'stepped line graph')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "point-to-point graph", output = 'plots pane'),
plotup(flights_dt50, "departure", "stepped point-to-point graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/datetime_02-1.png')
cat("datetime = c('point-to-point graph', 'stepped point-to-point graph')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "point graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/datetime_05-1.png')
cat("datetime = c('point graph')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "binned heatmap", output = 'plots pane'),
plotup(flights_dt50, "departure", "bw binned heatmap", output = 'plots pane'),
plotup(flights_dt50, "departure", "color binned heatmap", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/datetime_03-1.png')
cat("datetime = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "bw heatmap", output = 'plots pane'),
plotup(flights_dt50, "departure", "color heatmap", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/datetime_04-1.png')
cat("datetime = c('bw heatmap', 'color heatmap')")
Numeric
data(midwest, package = "ggplot2")
midwest <- as.data.frame(midwest)
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "area graph", output = 'plots pane'),
# plotup(midwest[1:50,], "area", "stepped area graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_01-1.png')
cat("numeric = c('area graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "stepped area graph", output = 'plots pane'),
plotup(midwest[1:50,], "area", "bw stepped area graph", output = 'plots pane'),
plotup(midwest[1:50,], "area", "color stepped area graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_17-1.png')
cat("numeric = c('stepped area graph', 'bw stepped area graph', 'color stepped area graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "seq. stripe graph", output = 'plots pane'),
plotup(midwest[1:50,], "area", "bw seq. stripe graph", output = 'plots pane'),
plotup(midwest[1:50,], "area", "color seq. stripe graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_18-1.png')
cat("numeric = c('seq. stripe graph', 'bw seq. stripe graph', 'color seq. stripe graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "line graph", output = 'plots pane'),
plotup(midwest[1:50,], "area", "stepped line graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_02-1.png')
cat("numeric = c('line graph', 'stepped line graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "point-to-point graph", output = 'plots pane'),
plotup(midwest[1:50,], "area", "stepped point-to-point graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_16-1.png')
cat("numeric = c('point-to-point graph', 'stepped point-to-point graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "point graph", output = 'plots pane'),
plotup(midwest, "area", "bw point graph", output = 'plots pane'),
plotup(midwest, "area", "color point graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_03-1.png')
cat("numeric = c('point graph', 'bw point graph', 'color point graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "binned point graph", output = 'plots pane'),
plotup(midwest, "area", "bw binned point graph", output = 'plots pane'),
plotup(midwest, "area", "color binned point graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_04-1.png')
cat("numeric = c('binned point graph', 'bw binned point graph', 'color binned point graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "point graph with trend line", output = 'plots pane'),
plotup(midwest, "area", "bw point graph with trend line", output = 'plots pane'),
plotup(midwest, "area", "color point graph with trend line", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_05-1.png')
cat("numeric = c('point graph with trend line', 'bw point graph with trend line', 'color point graph with trend line')")
gridExtra::grid.arrange(plotup(midwest, "area", "binned heatmap", output = 'plots pane'),
plotup(midwest, "area", "bw binned heatmap", output = 'plots pane'),
plotup(midwest, "area", "color binned heatmap", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_06-1.png')
cat("numeric = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(midwest, "area", "bw heatmap", output = 'plots pane'),
plotup(midwest, "area", "color heatmap", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_15-1.png')
cat("numeric = c('bw heatmap', 'color heatmap')")
gridExtra::grid.arrange(plotup(midwest, "area", "stripe graph", output = 'plots pane'),
plotup(midwest, "area", "bw stripe graph", output = 'plots pane'),
plotup(midwest, "area", "color stripe graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_07-1.png')
cat("numeric = c('stripe graph', 'bw stripe graph', 'color stripe graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "binned stripe graph", output = 'plots pane'),
plotup(midwest, "area", "bw binned stripe graph", output = 'plots pane'),
plotup(midwest, "area", "color binned stripe graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_08-1.png')
cat("numeric = c('binned stripe graph', 'binned stripe graph', 'binned stripe graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "bar graph", output = 'plots pane'),
plotup(midwest, "area", "bw bar graph", output = 'plots pane'),
plotup(midwest, "area", "color bar graph", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_09-1.png')
cat("numeric = c('bar graph', 'bw bar graph', 'color bar graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "histogram", output = 'plots pane'),
plotup(midwest, "area", "bw histogram", output = 'plots pane'),
plotup(midwest, "area", "color histogram", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_10-1.png')
cat("numeric = c('histogram', 'bw histogram', 'color histogram')")
gridExtra::grid.arrange(plotup(midwest, "area", "freq. polygon", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_11-1.png')
cat("numeric = c('freq. polygon')")
gridExtra::grid.arrange(plotup(midwest, "area", "density plot", output = 'plots pane'),
plotup(midwest, "area", "filled density plot", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_12-1.png')
cat("numeric = c('density plot', 'filled density plot')")
gridExtra::grid.arrange(plotup(midwest, "area", "violin plot", output = 'plots pane'),
plotup(midwest, "area", "filled violin plot", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_13-1.png')
cat("numeric = c('violin plot', 'filled violin plot')")
gridExtra::grid.arrange(plotup(midwest, "area", "box plot", output = 'plots pane'),
plotup(midwest, "area", "3 uniaxial", output = 'plots pane'),
plotup(midwest, "area", "normal qq plot", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_14-1.png')
cat("numeric = c('box plot', '3 uniaxial', 'qq plot')")
gridExtra::grid.arrange(plotup(midwest, "area", "ecdf plot", output = 'plots pane'),
plotup(midwest, "area", "point ecdf plot", output = 'plots pane'),
plotup(midwest, "area", "stepped ecdf plot", output = 'plots pane'),
heights=grid::unit(c(2.4), c("in")),
ncol=5)
knitr::include_graphics('../vignettes/figures/numeric_19-1.png')
cat("numeric = c('ecdf plot', 'point ecdf plot', 'stepped ecdf plot')")
sciencegraph/brinton documentation built on Jan. 27, 2023, 12:07 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Specimen of the graphics that only require 1 input variable and that, up to now, are being considered by the brinton's wideplot(), longplot() and plotup() functions.
knitr::opts_chunk$set( message=FALSE, warning=FALSE, comment=NA, dev='png', echo=FALSE ) # length(unique(data$vars))/6 + 0.5
library(dplyr) library(brinton)
Logical
data(ca2006, package = "pscl") gridExtra::grid.arrange(plotup(ca2006, "open", "line graph", output = 'plots pane'), plotup(ca2006, "open", "point graph", output = 'plots pane'), plotup(ca2006, "open", "point-to-point graph", output = 'plots pane'), heights=grid::unit(c(0.83), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/logical_01-1.png') cat("logical = c('line graph', 'point graph', 'point-to-point graph')")
gridExtra::grid.arrange(plotup(ca2006, "open", "tile plot", output = 'plots pane'), plotup(ca2006, "open", "linerange graph", output = 'plots pane'), heights=grid::unit(c(0.83), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/logical_02-1.png') cat("logical = c('tile plot', 'linerange graph')")
gridExtra::grid.arrange(plotup(ca2006, "open", "binned heatmap", output = 'plots pane'), plotup(ca2006, "open", "bw binned heatmap", output = 'plots pane'), plotup(ca2006, "open", "color binned heatmap", output = 'plots pane'), heights=grid::unit(c(0.83), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/logical_03-1.png') cat("logical = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(ca2006, "open", "bar graph", output = 'plots pane'), plotup(ca2006, "open", "bw bar graph", output = 'plots pane'), plotup(ca2006, "open", "color bar graph", output = 'plots pane'), heights=grid::unit(c(0.83), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/logical_04-1.png') cat("logical = c('bar graph', 'bw bar graph', 'color bar graph')")
Ordered factor
gridExtra::grid.arrange(plotup(esoph, "agegp", "line graph", output = 'plots pane'), plotup(esoph, "agegp", "point graph", output = 'plots pane'), plotup(esoph, "agegp", "point-to-point graph", output = 'plots pane'), heights=grid::unit(c(1.5), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/ordered_01-1.png') cat("ordered = c('line graph', 'point graph', 'point-to-point graph')")
gridExtra::grid.arrange(plotup(esoph, "agegp", "tile plot", output = 'plots pane'), plotup(esoph, "agegp", "linerange graph", output = 'plots pane'), heights=grid::unit(c(1.5), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/ordered_02-1.png') cat("ordered = c('tile plot', 'linerange graph')")
gridExtra::grid.arrange(plotup(esoph, "agegp", "binned heatmap", output = 'plots pane'), plotup(esoph, "agegp", "bw binned heatmap", output = 'plots pane'), plotup(esoph, "agegp", "color binned heatmap", output = 'plots pane'), heights=grid::unit(c(1.5), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/ordered_03-1.png') cat("ordered = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(esoph , "agegp", "bar graph", output = 'plots pane'), plotup(esoph , "agegp", "bw bar graph", output = 'plots pane'), plotup(esoph , "agegp", "color bar graph", output = 'plots pane'), heights=grid::unit(c(1.5), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/ordered_04-1.png') cat("ordered = c('bar graph', 'bw bar graph', 'color bar graph')")
Factor
data(monica, package = "DAAG") monica_mod <- monica[1:100,] gridExtra::grid.arrange(plotup(monica_mod, "smstat", "line graph", output = 'plots pane'), plotup(monica_mod, "smstat", "freq. reordered line graph", output = 'plots pane'), plotup(monica_mod, "smstat", "alphab. reordered line graph", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_01-1.png') cat("factor = c('line graph', 'freq. reordered line graph', 'alphab. reordered line graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "point-to-point graph", output = 'plots pane'), plotup(monica_mod, "smstat", "freq. reordered point-to-point graph", output = 'plots pane'), plotup(monica_mod, "smstat", "alphab. reordered point-to-point graph", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_02-1.png') cat("factor = c('point-to-point graph', 'freq. reordered point-to-point graph', 'alphab. reordered point-to-point graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "linerange graph", output = 'plots pane'), plotup(monica_mod, "smstat", "freq. reordered linerange graph", output = 'plots pane'), plotup(monica_mod, "smstat", "alphab. reordered linerange graph", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_03-1.png') cat("factor = c('linerange graph', 'freq. reordered linerange graph', 'alphab. reordered linerange graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "point graph", output = 'plots pane'), plotup(monica_mod, "smstat", "freq. reordered point graph", output = 'plots pane'), plotup(monica_mod, "smstat", "alphab. reordered point graph", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_04-1.png') cat("factor = c('point graph', 'freq. reordered point graph', 'alphab. reordered point graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "tile plot", output = 'plots pane'), plotup(monica_mod, "smstat", "freq. reordered tile plot", output = 'plots pane'), plotup(monica_mod, "smstat", "alphab. reordered tile plot", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_05-1.png') cat("factor = c('tile plot', 'freq. reordered tile plot', 'alphab. reordered tile plot')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "binned heatmap", output = 'plots pane'), plotup(monica_mod, "smstat", "bw binned heatmap", output = 'plots pane'), plotup(monica_mod, "smstat", "color binned heatmap", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_06-1.png') cat("factor = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "freq. reordered binned heatmap", output = 'plots pane'), plotup(monica_mod, "smstat", "bw freq. reordered binned heatmap", output = 'plots pane'), plotup(monica_mod, "smstat", "color freq. reordered binned heatmap", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_07-1.png') cat("factor = c('freq. reordered binned heatmap', 'bw freq. reordered binned heatmap', 'color freq. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "alphab. reordered binned heatmap", output = 'plots pane'), plotup(monica_mod, "smstat", "bw alphab. reordered binned heatmap", output = 'plots pane'), plotup(monica_mod, "smstat", "color alphab. reordered binned heatmap", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_08-1.png') cat("factor = c('alphab. reordered binned heatmap', 'bw alphab. reordered binned heatmap', 'color alphab. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "bar graph", output = 'plots pane'), plotup(monica_mod, "smstat", "bw bar graph", output = 'plots pane'), plotup(monica_mod, "smstat", "color bar graph", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_09-1.png') cat("factor = c('bar graph', 'bw bar graph', 'color bar graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "freq. reordered bar graph", output = 'plots pane'), plotup(monica_mod, "smstat", "bw freq. reordered bar graph", output = 'plots pane'), plotup(monica_mod, "smstat", "color freq. reordered bar graph", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_10-1.png') cat("factor = c('freq. reordered bar graph', 'bw freq. reordered bar graph', 'color freq. reordered bar graph')")
gridExtra::grid.arrange(plotup(monica_mod, "smstat", "alphab. reordered bar graph", output = 'plots pane'), plotup(monica_mod, "smstat", "bw alphab. reordered bar graph", output = 'plots pane'), plotup(monica_mod, "smstat", "color alphab. reordered bar graph", output = 'plots pane'), heights=grid::unit(c(1.17), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/factor_11-1.png') cat("factor = c('alphab. reordered bar graph', 'bw alphab. reordered bar graph', 'color alphab. reordered bar graph')")
Character
data(rockArt, package = "DAAG") gridExtra::grid.arrange(plotup(rockArt, "District", "line graph", output = 'plots pane'), plotup(rockArt, "District", "freq. reordered line graph", output = 'plots pane'), plotup(rockArt, "District", "alphab. reordered line graph", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_01-1.png') cat("character = c('line graph', 'freq. reordered line graph', 'alphab. reordered line graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "point-to-point graph", output = 'plots pane'), plotup(rockArt, "District", "freq. reordered point-to-point graph", output = 'plots pane'), plotup(rockArt, "District", "alphab. reordered point-to-point graph", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_02-1.png') cat("character = c('point-to-point graph', 'freq. reordered point-to-point graph', 'alphab. reordered point-to-point graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "linerange graph", output = 'plots pane'), plotup(rockArt, "District", "freq. reordered linerange graph", output = 'plots pane'), plotup(rockArt, "District", "alphab. reordered linerange graph", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_03-1.png') cat("character = c('linerange graph', 'freq. reordered linerange graph', 'alphab. reordered linerange graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "point graph", output = 'plots pane'), plotup(rockArt, "District", "freq. reordered point graph", output = 'plots pane'), plotup(rockArt, "District", "alphab. reordered point graph", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_04-1.png') cat("character = c('point graph', 'freq. reordered point graph', 'alphab. reordered point graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "tile plot", output = 'plots pane'), plotup(rockArt, "District", "freq. reordered tile plot", output = 'plots pane'), plotup(rockArt, "District", "alphab. reordered tile plot", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_05-1.png') cat("character = c('tile plot', 'freq. reordered tile plot', 'alphab. reordered tile plot')")
gridExtra::grid.arrange(plotup(rockArt, "District", "binned heatmap", output = 'plots pane'), plotup(rockArt, "District", "bw binned heatmap", output = 'plots pane'), plotup(rockArt, "District", "color binned heatmap", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_06-1.png') cat("character = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(rockArt, "District", "freq. reordered binned heatmap", output = 'plots pane'), plotup(rockArt, "District", "bw freq. reordered binned heatmap", output = 'plots pane'), plotup(rockArt, "District", "color freq. reordered binned heatmap", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_07-1.png') cat("character = c('freq. reordered binned heatmap', 'bw freq. reordered binned heatmap', 'color freq. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(rockArt, "District", "alphab. reordered binned heatmap", output = 'plots pane'), plotup(rockArt, "District", "bw alphab. reordered binned heatmap", output = 'plots pane'), plotup(rockArt, "District", "color alphab. reordered binned heatmap", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_08-1.png') cat("character = c('alphab. reordered binned heatmap', 'bw alphab. reordered binned heatmap', 'color alphab. reordered binned heatmap')")
gridExtra::grid.arrange(plotup(rockArt, "District", "bar graph", output = 'plots pane'), plotup(rockArt, "District", "bw bar graph", output = 'plots pane'), plotup(rockArt, "District", "color bar graph", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_09-1.png') cat("character = c('bar graph', 'bw bar graph', 'color bar graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "freq. reordered bar graph", output = 'plots pane'), plotup(rockArt, "District", "bw freq. reordered bar graph", output = 'plots pane'), plotup(rockArt, "District", "color freq. reordered bar graph", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_10-1.png') cat("character = c('freq. reordered bar graph', 'bw freq. reordered bar graph', 'color freq. reordered bar graph')")
gridExtra::grid.arrange(plotup(rockArt, "District", "alphab. reordered bar graph", output = 'plots pane'), plotup(rockArt, "District", "bw alphab. reordered bar graph", output = 'plots pane'), plotup(rockArt, "District", "color alphab. reordered bar graph", output = 'plots pane'), heights=grid::unit(c(3), c("in")), ncol=4) knitr::include_graphics('../vignettes/figures/character_11-1.png') cat("character = c('alphab. reordered bar graph', 'bw alphab. reordered bar graph', 'color alphab. reordered bar graph')")
Datetime
flights_dt <- nycflights13::flights %>% dplyr::transmute(departure = lubridate::make_datetime( year, month, day, hour, minute) ) flights_dt50 <- as.data.frame(flights_dt[1:50,])
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "line graph", output = 'plots pane'), plotup(flights_dt50, "departure", "stepped line graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/datetime_01-1.png') cat("datetime = c('line graph', 'stepped line graph')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "point-to-point graph", output = 'plots pane'), plotup(flights_dt50, "departure", "stepped point-to-point graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/datetime_02-1.png') cat("datetime = c('point-to-point graph', 'stepped point-to-point graph')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "point graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/datetime_05-1.png') cat("datetime = c('point graph')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "binned heatmap", output = 'plots pane'), plotup(flights_dt50, "departure", "bw binned heatmap", output = 'plots pane'), plotup(flights_dt50, "departure", "color binned heatmap", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/datetime_03-1.png') cat("datetime = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(flights_dt50, "departure", "bw heatmap", output = 'plots pane'), plotup(flights_dt50, "departure", "color heatmap", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/datetime_04-1.png') cat("datetime = c('bw heatmap', 'color heatmap')")
Numeric
data(midwest, package = "ggplot2") midwest <- as.data.frame(midwest) gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "area graph", output = 'plots pane'), # plotup(midwest[1:50,], "area", "stepped area graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_01-1.png') cat("numeric = c('area graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "stepped area graph", output = 'plots pane'), plotup(midwest[1:50,], "area", "bw stepped area graph", output = 'plots pane'), plotup(midwest[1:50,], "area", "color stepped area graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_17-1.png') cat("numeric = c('stepped area graph', 'bw stepped area graph', 'color stepped area graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "seq. stripe graph", output = 'plots pane'), plotup(midwest[1:50,], "area", "bw seq. stripe graph", output = 'plots pane'), plotup(midwest[1:50,], "area", "color seq. stripe graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_18-1.png') cat("numeric = c('seq. stripe graph', 'bw seq. stripe graph', 'color seq. stripe graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "line graph", output = 'plots pane'), plotup(midwest[1:50,], "area", "stepped line graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_02-1.png') cat("numeric = c('line graph', 'stepped line graph')")
gridExtra::grid.arrange(plotup(midwest[1:50,], "area", "point-to-point graph", output = 'plots pane'), plotup(midwest[1:50,], "area", "stepped point-to-point graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_16-1.png') cat("numeric = c('point-to-point graph', 'stepped point-to-point graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "point graph", output = 'plots pane'), plotup(midwest, "area", "bw point graph", output = 'plots pane'), plotup(midwest, "area", "color point graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_03-1.png') cat("numeric = c('point graph', 'bw point graph', 'color point graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "binned point graph", output = 'plots pane'), plotup(midwest, "area", "bw binned point graph", output = 'plots pane'), plotup(midwest, "area", "color binned point graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_04-1.png') cat("numeric = c('binned point graph', 'bw binned point graph', 'color binned point graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "point graph with trend line", output = 'plots pane'), plotup(midwest, "area", "bw point graph with trend line", output = 'plots pane'), plotup(midwest, "area", "color point graph with trend line", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_05-1.png') cat("numeric = c('point graph with trend line', 'bw point graph with trend line', 'color point graph with trend line')")
gridExtra::grid.arrange(plotup(midwest, "area", "binned heatmap", output = 'plots pane'), plotup(midwest, "area", "bw binned heatmap", output = 'plots pane'), plotup(midwest, "area", "color binned heatmap", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_06-1.png') cat("numeric = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
gridExtra::grid.arrange(plotup(midwest, "area", "bw heatmap", output = 'plots pane'), plotup(midwest, "area", "color heatmap", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_15-1.png') cat("numeric = c('bw heatmap', 'color heatmap')")
gridExtra::grid.arrange(plotup(midwest, "area", "stripe graph", output = 'plots pane'), plotup(midwest, "area", "bw stripe graph", output = 'plots pane'), plotup(midwest, "area", "color stripe graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_07-1.png') cat("numeric = c('stripe graph', 'bw stripe graph', 'color stripe graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "binned stripe graph", output = 'plots pane'), plotup(midwest, "area", "bw binned stripe graph", output = 'plots pane'), plotup(midwest, "area", "color binned stripe graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_08-1.png') cat("numeric = c('binned stripe graph', 'binned stripe graph', 'binned stripe graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "bar graph", output = 'plots pane'), plotup(midwest, "area", "bw bar graph", output = 'plots pane'), plotup(midwest, "area", "color bar graph", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_09-1.png') cat("numeric = c('bar graph', 'bw bar graph', 'color bar graph')")
gridExtra::grid.arrange(plotup(midwest, "area", "histogram", output = 'plots pane'), plotup(midwest, "area", "bw histogram", output = 'plots pane'), plotup(midwest, "area", "color histogram", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_10-1.png') cat("numeric = c('histogram', 'bw histogram', 'color histogram')")
gridExtra::grid.arrange(plotup(midwest, "area", "freq. polygon", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_11-1.png') cat("numeric = c('freq. polygon')")
gridExtra::grid.arrange(plotup(midwest, "area", "density plot", output = 'plots pane'), plotup(midwest, "area", "filled density plot", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_12-1.png') cat("numeric = c('density plot', 'filled density plot')")
gridExtra::grid.arrange(plotup(midwest, "area", "violin plot", output = 'plots pane'), plotup(midwest, "area", "filled violin plot", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_13-1.png') cat("numeric = c('violin plot', 'filled violin plot')")
gridExtra::grid.arrange(plotup(midwest, "area", "box plot", output = 'plots pane'), plotup(midwest, "area", "3 uniaxial", output = 'plots pane'), plotup(midwest, "area", "normal qq plot", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_14-1.png') cat("numeric = c('box plot', '3 uniaxial', 'qq plot')")
gridExtra::grid.arrange(plotup(midwest, "area", "ecdf plot", output = 'plots pane'), plotup(midwest, "area", "point ecdf plot", output = 'plots pane'), plotup(midwest, "area", "stepped ecdf plot", output = 'plots pane'), heights=grid::unit(c(2.4), c("in")), ncol=5) knitr::include_graphics('../vignettes/figures/numeric_19-1.png') cat("numeric = c('ecdf plot', 'point ecdf plot', 'stepped ecdf plot')")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.