Plot an APA/FACETS table object using base R

Usage

# S3 method for class 'apa_table'
plot(
  x,
  y = NULL,
  type = c("numeric_profile", "first_numeric"),
  main = NULL,
  palette = NULL,
  label_angle = 45,
  draw = TRUE,
  ...
)

Arguments

x: Output from apa_table().
y: Reserved for generic compatibility.
type: Plot type: "numeric_profile" (column means) or "first_numeric" (distribution of the first numeric column).
main: Optional title override.
palette: Optional named color overrides.
label_angle: Axis-label rotation angle for bar-type plots.
draw: If TRUE, draw using base graphics.
...: Reserved for generic compatibility.

Value

A plotting-data object of class mfrm_plot_data.

Details

Quick visualization helper for numeric columns in apa_table() output. It is intended for table QA and exploratory checks, not final publication graphics.

Interpreting output

"numeric_profile": compares column means to spot scale/centering mismatches.
"first_numeric": checks distribution shape of the first numeric column.

Typical workflow

Build table with apa_table().
Run summary(tbl) for metadata.
Use plot(tbl, type = "numeric_profile") for quick numeric QC.

Examples

toy <- load_mfrmr_data("example_core")
fit <- fit_mfrm(toy, "Person", c("Rater", "Criterion"), "Score", method = "JML", maxit = 25)
tbl <- apa_table(fit, which = "summary")
p <- plot(tbl, draw = FALSE)
p2 <- plot(tbl, type = "first_numeric", draw = FALSE)
if (interactive()) {
  plot(
    tbl,
    type = "numeric_profile",
    main = "APA Numeric Profile (Customized)",
    palette = c(numeric_profile = "#2b8cbe", grid = "#d9d9d9"),
    label_angle = 45
  )
}