metaplot (version 0.7.1)

corsplom_data_frame: Correlated Scatterplot Matrix Function for Data Frame

Description

Creates a scatterplot matrix with correlations in lower panel, by default.

Usage

corsplom_data_frame(x, xvar = names(x),
  upper.panel = metOption("metaplot_upperpanel_corsplom", if (gg)
  corsplom_gg_scatter else corsplom_panel_scatter),
  lower.panel = metOption("metaplot_lowerpanel_corsplom", if (gg)
  corsplom_gg_correlation else corsplom_panel_correlation),
  diag.panel = metOption("metaplot_diagpanel_corsplom", if (gg)
  corsplom_gg_diagonal else corsplom_panel_diagonal),
  pscales = metOption("metaplot_pscales_corsplom", 0),
  xlab = metOption("metaplot_xlab_corsplom", NULL),
  varname.cex = metOption("metaplot_varname_cex_corsplom", 1),
  main = metOption("metaplot_main_corsplom", NULL),
  sub = metOption("metaplot_sub_corsplom", NULL),
  col = metOption("metaplot_point_col_corsplom", "blue"),
  smooth.col = metOption("metaplot_smooth_col_corsplom", col),
  smooth.lty = metOption("metaplot_smooth_lty_corsplom", "solid"),
  smooth.lwd = metOption("metaplot_smooth_lwd_corsplom", 1),
  smooth.alpha = metOption("metaplot_smooth_alpha_corsplom", 1),
  density = metOption("metaplot_density_corsplom", TRUE),
  diag.label = metOption("metaplot_diag_label_corsplom", diag_label),
  pin = metOption("metaplot_pin_loc_corsplom", diag_pin),
  pin.col = metOption("metaplot_pin_col_corsplom", "darkgrey"),
  pin.alpha = metOption("metaplot_pin_alpha_corsplom", 1),
  dens.col = metOption("metaplot_dens_col_corsplom", "grey"),
  dens.scale = metOption("metaplot_dens_scale_corsplom", 0.2),
  dens.alpha = metOption("metaplot_dens_alpha_corsplom", 0.5),
  settings = metOption("metaplot_settings_corsplom", NULL),
  padding = metOption("metaplot_padding_corsplom", 1),
  as.table = metOption("metaplot_astable_corsplom", FALSE),
  dens.up = metOption("metaplot_updens_corsplom", TRUE),
  gg = metOption("metaplot_gg_corsplom", FALSE), ...)

Arguments

x

data.frame

xvar

variables to plot

upper.panel

passed to splom or ggplot

lower.panel

passed to splom or ggplot

diag.panel

passed to splom or ggplot

pscales

passed to splom

xlab

can be function(x = x, var = xvar, ...)

varname.cex

text size multiplier

main

character, or a function of x, xvar

sub

character, or a function of x, xvar

col

point color

smooth.col

smooth color

smooth.lty

smooth line type

smooth.lwd

smooth line size

smooth.alpha

smooth alpha

density

whether to plot density polygons

diag.label

label for the diagonal; can be a function of x, varname, .data

pin

location for a pin (reference line) in the density region; can be function(x, varname, .data) or NULL to suppress

pin.col

color of pin, if any

pin.alpha

alpha transparency of pin

dens.col

color for density region

dens.scale

inflation factor for height of density smooth

dens.alpha

alpha transparency for density region

settings

default parameter settings: a list from which matching elements are passed to lattice (as par.settings) or to ggplot theme()

padding

numeric (will be recycled to length 4) giving plot margins in default units: top, right, bottom, left (in multiples of 5.5 points for ggplot)

as.table

diagonal arranged top-left to bottom-right

dens.up

whether density plots in diagonal should face the upper triangle vs. lower

gg

logical: whether to generate ggplot instead of trellis

...

extra arguments passed to splom and ggplot

Value

trellis or grob

See Also

Other multivariate plots: corsplom.data.frame, metaplot.data.frame

Other corsplom: corsplom.data.frame, corsplom_gg_correlation, corsplom_gg_diagonal, corsplom_gg_scatter, corsplom_panel_correlation, corsplom_panel_scatter, corsplom, plot.metaplot_gtable, print.metaplot_gtable

Other metaplot: boxplot_data_frame, categorical_data_frame, densplot_data_frame, metaplot_key, metaplot, scatter_data_frame, test_metaplot

Examples

# NOT RUN {
library(magrittr)
library(dplyr)
library(csv)
x <- as.csv(system.file(package = 'metaplot', 'extdata/theoph.csv'))
x %<>% pack
# options(metaplot_gg = TRUE)
x %>% metaplot(lKe, lKa, lCl)
x %>% metaplot(
  lKe, lKa, lCl,
  col = 'black',smooth.col = 'red', pin.col = 'red',
  dens.col='blue',dens.alpha = 0.1
)
# }