demo/faplot.R

In miyamot0/fxl: 'fxl' Single Case Design Charting Package

library(fxl)

oldwd <- getwd()

if (require("here")) {
  setwd(paste(here::here("demo")))
}

data <- Gilroyetal2019

scr_plot(
  data,
  aesthetics = var_map(
    x = Session,
    y = CTB,
    p = Condition
  ),
  mai = c(0.5, 0.5, 0.1, 0.5),
  omi = c(0.25, 0.25, 0.25, 0.25)
) |>
  scr_xoverride(c(-.5, 15)) |>
  scr_yoverride(c(-.05, 2),
    yticks = c(0, 0.5, 1, 1.5, 2),
    ytickslabs = c(
      "0",
      "0.5",
      "1",
      "1.5",
      "2"
    )
  ) |> # manually override y-axis
  scr_lines(size = 1) |> # plot lines, using x/y from aesthetics
  scr_points(
    cex = 2, # plot points, using x/y from aesthetics
    pch = list( # override point marker types (match FA conventions)
      "Toy Play" = 16,
      "Attention" = 22,
      "Demand" = 24,
      "Tangible" = 8
    ),
    fill = list( # override point marker colors (match FA conventions)
      "Toy Play" = "black",
      "Attention" = "white",
      "Demand" = "white",
      "Tangible" = "black"
    )
  ) |>
  scr_xlabel("Session") |>
  scr_ylabel("Combined Target Behavior (Per Minute)") |>
  scr_title("Analog Functional Analysis") |>
  scr_legend(
    position = "topright", # Specify legend location
    legend = c(
      "Toy Play",
      "Attention",
      "Demand",
      "Tangible"
    ),
    col = c(
      "black",
      "black",
      "black",
      "black"
    ),
    pt_bg = c(
      "black",
      "white",
      "white",
      "black"
    ),
    lty = c(
      1,
      1,
      1,
      1
    ),
    pch = c(
      16,
      22,
      24,
      8
    ),
    bty = "n",
    pt_cex = 2.25,
    cex = 1.25,
    text_col = "black",
    horiz = FALSE,
    box_lty = 0
  )
  # scr_save(
  #   name = "../man/figures/fafigure.svg",
  #   format = "svg",
  #   units = "in",
  #   height = 5,
  #   width = 9
  # ) |>
  # scr_save(
  #   name = "../man/figures/fafigure.png",
  #   format = "png",
  #   res = 300,
  #   height = 6,
  #   width = 9
  # )

setwd(oldwd)