sci_figure: Create a figure depicting reproducibility/replicability of a...

In prpatil/scifigure: Visualize 'Reproducibility' and 'Replicability' in a Comparison of Scientific Studies

Description

sci_figure creates a graphical representation of changes in a a set of subsequent studies or reproduction attempts as compared to an original study.

Usage

sci_figure(
  experiments,
  custom_icons = NULL,
  stage_names = c("Population", "Question", "Hypothesis", "Exp. Design",
    "Experimenter", "Data", "Analysis Plan", "Analyst", "Code", "Estimate", "Claim"),
  hide_stages = NULL,
  diff = FALSE,
  showlegend = TRUE,
  cols = c(incorect = "#D20000", different = "#007888", unobserved = "#CDCDCD",
    original = "black"),
  leg_text = c("Incorrect", "Different", "Unobserved", "Original"),
  fontsize = 16,
  fig.height = 0.08,
  fig.width = 0.05
)

Arguments

experiments	A data frame, which can be initialized with init_experiments(), whose rownames are the predefined stages of a scientifc experiments, column names are the names of each experiment, and cell values represent the state of each stage in each experiment (states described below).
custom_icons	(optional) A list of bitmap matrices of custom icon images of length matching experiments input. Bitmap icons must be 75 x 75 pixels. See vignette for detailed instructions and specifications. Default NULL, indicating that default icons will be used.
stage_names	Character vector of names of stages. Default names match Patil et. al. If set to NULL, all names will be suppressed. Use hide_stages (below) to suppress specific stage names.
hide_stages	(optional) A character vector with the names of the stages in the scientific experiment, i.e. rownames of experiments, which the user wishes to suppress from the figure output. The default value of hide_stages is NULL, indicating that all stages will be displayed.
diff	(optional) A Boolean flag to indicate whether the rendering of the figure should emphasize the differences between the experiments ("difference mode"). The difference mode uses a set of four symbols that are semantically close to the scenarios that they are encoding. The default value is FALSE.
showlegend	Do you want the legend to be shown?
cols	colors to use for the specific scenarios when diff = T or custom_icons used.
leg_text	text for legend keys corresponding to the specific colors.
fontsize	Size of the font. A calculation will change it but you can adjust this accordingly
fig.height	Height of the figures
fig.width	Width of the figures

Note

For the parameter experiments, the four values any cell may take are: observed, different, unobserved, incorrect.

See Also

init_experiments

Examples

# Initialize the default experiments data frame
exps <- init_experiments()
sci_figure(exps)
experiments = exps
experiments["analyst", "Exp2"] <- "different"
cols = c("#D20000", "yellow", "#CDCDCD", "black")
sci_figure(experiments, cols = cols)
sci_figure(experiments, cols = cols, diff = TRUE)
sci_figure(experiments, cols = cols, diff = TRUE,
hide_stages = "population")
sci_figure(experiments,
cols = c("yellow", "#CDCDCD", "black"),
leg_text = c("Different", "Unobserved", "Original"),
diff = TRUE)
hide_stages = NULL
diff = FALSE

sci_figure(exps, hide_stages = c("population", "analyst"))

# Do some manual manipulation to the experiments

exps["analyst", "Exp2"] <- "different"
exps["code", c("Exp2", "Exp3")] <- "unobserved"
sci_figure(exps, showlegend = FALSE)

# Create the same figure using the difference mode

sci_figure(exps, diff=TRUE)
too_many = init_experiments(nexp = 30)

testthat::expect_warning({
sci_figure(too_many)
}, "showing the first")

exp2 = exps
exp2[,1] = "bad"
testthat::expect_error({
sci_figure(exp2)
}, "Invalid cell")

prpatil/scifigure documentation built on Aug. 22, 2020, 4:49 p.m.