processR (version 0.2.7)

condPlotCat: Make conditional effect plot with data including a categorical variable

Description

Make conditional effect plot with data including a categorical variable

Usage

condPlotCat(
  labels = list(),
  yvar = "Y",
  total = FALSE,
  data,
  addvars = TRUE,
  mode = 1,
  rangemode = 2,
  maxylev = 6,
  catlabels = NULL,
  add.slopelabel = FALSE,
  xpos = 0.5,
  add.point = TRUE,
  add.vlines = TRUE,
  add.vlines.text = TRUE,
  add.anova = TRUE,
  ypos = NULL,
  add.arrow = TRUE,
  xinterval = NULL,
  hjust1 = NULL,
  hjust2 = NULL,
  ypos2 = NULL,
  ypos3 = NULL,
  ceno = 1
)

Arguments

labels

Named list of variables

yvar

character. "Y"(default) or "M"

total

logical. If true, model include mediator variable.

data

A data.frame

addvars

logical

mode

Numeric. One of 1:4. 1= simple indicator coding, 2= sequential coding, 3= Helmert coding, 4= effect coding

rangemode

rangemode. 1 or 2.

maxylev

maximal unique length of categorical variable

catlabels

optional string of labels for the categorical variable

add.slopelabel

logical

xpos

numeric. x position of slope labels

add.point

logical. If true, add point to the plot

add.vlines

logical. If true, add vlines to the plot

add.vlines.text

logical. If true, add vlines.text to the plot

add.anova

logical. If true, add results of ANOVA to the plot

ypos

optional. Y position of anova results

add.arrow

logical. If true, add conditional effects to the plot

xinterval

Integer. Width of angled arrow

hjust1

optional. hjust of conditional effects 1

hjust2

optional. hjust of conditional effects 2

ypos2

optional. Y position of conditional effects 1

ypos3

optional. Y position of conditional effects 2

ceno

integer. 1 or 2

Examples

# \donttest{
library(ggplot2)
labels=list(X="protest",W="sexism",M="respappr",Y="liking")
catlabels=c("No protest","Individual protest","Collective protest")
catlabels2=c("No protest","Individual protest","Collective protest","Any protest")
condPlotCat(labels=labels,yvar="M",data=protest,mode=3,ypos=c(0.2,0.15,0.1))
condPlotCat(labels=labels,yvar="M",data=protest,mode=3,ceno=c(1,2),add.vlines.text=FALSE)
condPlotCat(labels=labels,catlabels=catlabels,yvar="M",data=protest,mode=3,
     add.arrow=FALSE,addvars=FALSE)
condPlotCat(labels=labels,yvar="M",data=protest,mode=3,catlabels=catlabels2,ceno=c(1,2))
condPlotCat(labels=labels,data=protest,catlabels=catlabels,add.slopelabel=TRUE,
     xpos=c(0.3,0.7,0.7),add.point=FALSE,add.vlines=FALSE,add.anova=FALSE,add.arrow=FALSE)
condPlotCat(labels=labels,data=protest,catlabels=catlabels,add.anova=FALSE,add.arrow=FALSE)
condPlotCat(labels=labels,data=protest,catlabels=catlabels,add.anova=FALSE)+xlim(c(3.5,6.5))
condPlotCat(labels=labels,data=protest,add.anova=TRUE,ypos=c(0.2,0.2,0.5),add.arrow=FALSE)
condPlotCat(labels=labels,data=protest,catlabels=catlabels,add.anova=FALSE,ceno=1)
condPlotCat(labels=labels,data=protest,catlabels=catlabels,add.anova=FALSE,ceno=2)
condPlotCat(labels=labels,data=protest,total=TRUE,catlabels=catlabels,ypos=0.1,
      add.arrow=FALSE)+xlim(c(4,6))
condPlotCat(labels=labels,data=protest,total=TRUE,catlabels=catlabels2,add.anova=FALSE,
      ceno=c(1,2),xinterval=0.05,hjust1=c(-0.05,-0.05,1.05),hjust2=c(-0.05,1.05,1.05),
      ypos2=c(0.5,0.1,0.3),ypos3=c(0.2,0.4,0.4),mode=3)+xlim(c(4,6))
# }