condPlotCat | R Documentation |
Make conditional effect plot with data including a categorical variable
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 )
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 |
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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.