Concrete Moral Obligation Comparison

1 Setup

Libraries and functions

knitr::opts_chunk$set(warning = FALSE, message = FALSE) 

Mypackages <-
  c("lme4","tidyverse","effects","ggplot2","psych",
    "MASS","Rmisc","lmerTest","ggthemes", "knitr",
    "lsmeans","pastecs","sjstats","car","ordinal",
    "Rcpp","corrplot", "ggpubr", "EnvStats",
    "easyStats", "cowplot","see","datawizard", "ggcorrplot",
    "corrplot", "effects", "RColorBrewer", "rcompanion"
    )

# install.packages(Mypackages) #you must remove the # in this comment if you need to install the packages! 
lapply(Mypackages,
       require,
       character.only = TRUE)

options(knitr.kable.NA = '—')
set.seed(1)  

1.1 Load Data

# read in data files
gjg <-read.csv("/Users/mtrenfield17/Desktop/Research/Boston College Research/Morality Lab Research/Moral Obligation/Concrete Moral Obligation Study/Concrete Moral Obligation Comparison Study.csv")

1.2 Functions

plot_cooker <- function(data, iv, dv, title) {
  part1 <- ggplot(data, aes(x = {{iv}}, y = {{dv}}, fill = {{iv}})) +
    geom_violin(alpha = 0.3, scale = "count") + 
  stat_summary(fun = "mean", geom = "point", size = 3, color = "black") +
    stat_summary(fun.data = mean_cl_normal, geom = "errorbar", width = 0.2,
                 #change to make a data set from allEffects with mean, low CI, high CI
                 size = 1.5, color = "black") +
    theme_classic() +
    xlab("") +
    ylab("") +
    ggtitle(title)
  ggpar(part1, legend = "none")
}

wrapped_plot_cooker <- function(data, iv, dv, title, facet_var) {
  part1 <- ggplot(data, aes(x = {{iv}}, y = {{dv}}, fill = {{iv}})) +
    geom_violin(alpha = 0.3, scale = "count") + 
    stat_summary(fun = "mean", geom = "point", size = 3, color = "black") +
    stat_summary(fun.data = mean_cl_normal, geom = "errorbar", width = 0.2, 
                 size = 1.5, color = "black", limits = c(0, 100)) +
    theme_classic() +
    xlab("") +
    ylab("") +
    ggtitle(title) +
    facet_wrap(vars({{facet_var}}))
  ggpar(part1, legend = "none")
}


by_line <- function(data, iv, dv, x_label, y_label, color_label, plot_title) {
  ggplot(data, aes(x = {{iv}}, y = {{dv}}, color = DV)) +
    stat_summary(fun.data = "mean_cl_normal", geom = "line") +
    geom_point(position = position_jitter(width = 0.1, height = 0.1), alpha = 0.2) +
    labs(x = x_label, y = y_label, color = color_label, title = plot_title) +
    ylim(0, 100)  # Set the y-axis limits
}


# Function to rename columns
rename_columns <- function(data, old_suffix, new_suffix) {
  data %>% rename_with(~ gsub(paste0(old_suffix, "$"), new_suffix, .), ends_with(old_suffix))
}

1.3 Reshaping Data

# Rename columns with "_2020" suffix to "_2023"
gjg <- rename_columns(gjg, "most_obl", "mostObl")

gjg <- rename_columns(gjg, "compare_OR", "compareOR")

## renaming outcome severity slider DVs
gjg <- dplyr::rename(gjg, "swim_severity_0" = "swim_obl_0_15", "swim_severity_50" = "swim_obl_50_15", "swim_severity_100" = "swim_obl_100_15", "grad_severity_0" = "grad_obl_0_15", "grad_severity_50" = "grad_obl_50_15", "grad_severity_100" = "grad_obl_100_15", "car_severity_0" = "car_obl_0_15", "car_severity_50" = "car_obl_50_15", "car_severity_100" = "car_obl_100_15", "med_severity_0" = "med_obl_0_15", "med_severity_50" = "med_obl_50_15", "med_severity_100" = "med_obl_100_15", "bag_severity_0" = "bag_obl_0_15", "bag_severity_50" = "bag_obl_50_15", "bag_severity_100" = "bag_obl_100_15")

## renaming particularly capable of helping slider DVs
gjg <- dplyr::rename(gjg, "swim_capable_0" = "swim_obl_0_18", "swim_capable_50" = "swim_obl_50_18", "swim_capable_100" = "swim_obl_100_18", "grad_capable_0" = "grad_obl_0_18", "grad_capable_50" = "grad_obl_50_18", "grad_capable_100" = "grad_obl_100_18", "car_capable_0" = "car_obl_0_18", "car_capable_50" = "car_obl_50_18", "car_capable_100" = "car_obl_100_18", "med_capable_0" = "med_obl_0_18", "med_capable_50" = "med_obl_50_18", "med_capable_100" = "med_obl_100_18", "bag_capable_0" = "bag_obl_0_18", "bag_capable_50" = "bag_obl_50_18", "bag_capable_100" = "bag_obl_100_18")

## renaming prior help slider DVs
gjg <- dplyr::rename(gjg, "swim_helped_0" = "swim_obl_0_19", "swim_helped_50" = "swim_obl_50_19", "swim_helped_100" = "swim_obl_100_19", "grad_helped_0" = "grad_obl_0_19", "grad_helped_50" = "grad_obl_50_19", "grad_helped_100" = "grad_obl_100_19", "car_helped_0" = "car_obl_0_19", "car_helped_50" = "car_obl_50_19", "car_helped_100" = "car_obl_100_19", "med_helped_0" = "med_obl_0_19", "med_helped_50" = "med_obl_50_19", "med_helped_100" = "med_obl_100_19", "bag_helped_0" = "bag_obl_0_19", "bag_helped_50" = "bag_obl_50_19", "bag_helped_100" = "bag_obl_100_19")

## renaming agreement to help slider DVs
gjg <- dplyr::rename(gjg, "swim_agreement_0" = "swim_obl_0_20", "swim_agreement_50" = "swim_obl_50_20", "swim_agreement_100" = "swim_obl_100_20", "grad_agreement_0" = "grad_obl_0_20", "grad_agreement_50" = "grad_obl_50_20", "grad_agreement_100" = "grad_obl_100_20", "car_agreement_0" = "car_obl_0_20", "car_agreement_50" = "car_obl_50_20", "car_agreement_100" = "car_obl_100_20", "med_agreement_0" = "med_obl_0_20", "med_agreement_50" = "med_obl_50_20", "med_agreement_100" = "med_obl_100_20", "bag_agreement_0" = "bag_obl_0_20", "bag_agreement_50" = "bag_obl_50_20", "bag_agreement_100" = "bag_obl_100_20")

## renaming married slider DVs
gjg <- dplyr::rename(gjg, "swim_married_0" = "swim_obl_0_21", "swim_married_50" = "swim_obl_50_21", "swim_married_100" = "swim_obl_100_21", "grad_married_0" = "grad_obl_0_21", "grad_married_50" = "grad_obl_50_21", "grad_married_100" = "grad_obl_100_21", "car_married_0" = "car_obl_0_21", "car_married_50" = "car_obl_50_21", "car_married_100" = "car_obl_100_21", "med_married_0" = "med_obl_0_21", "med_married_50" = "med_obl_50_21", "med_married_100" = "med_obl_100_21", "bag_married_0" = "bag_obl_0_21", "bag_married_50" = "bag_obl_50_21", "bag_married_100" = "bag_obl_100_21")


#### pivot longer, split vignette, DV, start_point ####
?rename

## Help on topic 'rename' was found in the following packages:
## 
##   Package               Library
##   dplyr                 /Library/Frameworks/R.framework/Versions/4.1-arm64/Resources/library
##   plyr                  /Library/Frameworks/R.framework/Versions/4.1-arm64/Resources/library
## 
## 
## Using the first match ...

gjg_long<-gjg %>% gather(stim, resp, "swim_mostObl":"bag_married_100")
gjg_long<-gjg_long %>%
  separate(stim, into= c("vignette","DV", "start_point"), sep="_")

## remove rows that represent a vignette + DV combo participant didn't see
gjg_long <- gjg_long %>%
  filter(!is.na(resp))

## remove rows that represent a vignette + DV combo participant didn't see
gjg_slider_long <- gjg_long %>%
  filter(DV != "mostObl" & DV != "compareOR")

view(gjg_slider_long)

#### rename most obl responses ####
gjg_long <- gjg_long %>%
  mutate(
    mostObl_text = case_when(
      DV == "mostObl" & resp == "1" ~ "Outcome \n\ Severity",
      DV == "mostObl" & resp == "2" ~ "Capacity \n\ to help",
      DV == "mostObl" & resp == "3" ~ "Victim's \n\ past help",
      DV == "mostObl" & resp == "4" ~ "Prior \n\ Agreement",
      DV == "mostObl" & resp == "5" ~ "Married"
    )
    )

gjg_long <- spread(gjg_long, DV, resp)

gjg_long <- gjg_long %>% mutate_at(c("severity","capable","helped","agreement","married",
 "age","political_social","political_economic","income","education","ses"), as.numeric)

2 Demographics

# Subset your data frame to include only the demographic columns
demo_gjg <- gjg[, c("gender_text", "race_text", "income_text", "education_text", "political_overall_text")]

summary_table <- gjg %>%
  summarize(
    mean_age = mean(age, na.rm = TRUE),
    sd_age = sd(age, na.rm = TRUE),
    mean_political_social = mean(political_social, na.rm = TRUE),
    sd_political_social = sd(political_social, na.rm = TRUE),
    mean_political_economic = mean(political_economic, na.rm = TRUE),
    sd_political_economic = sd(political_economic, na.rm = TRUE)
  )

summary_table

##   mean_age   sd_age mean_political_social sd_political_social
## 1 40.82587 14.18149                  3.22            1.613884
##   mean_political_economic sd_political_economic
## 1                    3.56               1.69433

# Loop through each demographic column and calculate frequency counts
freq_tables <- list()

for (col in names(demo_gjg)) {
  {
    freq_table <- as.data.frame(table(demo_gjg[[col]]))
    freq_table$Percent <- round(freq_table$Freq / sum(freq_table$Freq) * 100, 2)
    freq_tables[[col]] <- freq_table
  }
}

# Print the frequency tables
for (i in seq_along(freq_tables)) {
  if (!is.null(freq_tables[[i]])) {
    cat("\nTable of frequencies for", names(freq_tables)[i], ":\n")
    print(freq_tables[[i]])
  }
}

## 
## Table of frequencies for gender_text :
##                        Var1 Freq Percent
## 1                              2    0.99
## 2                       Man   98   48.28
## 3 Nonbinary person or Other    5    2.46
## 4    Prefer not to disclose    2    0.99
## 5                     Woman   96   47.29
## 
## Table of frequencies for race_text :
##                                                                     Var1 Freq
## 1                                                                           2
## 2                                                                  Asian   11
## 3                                        Asian,Black or African American    1
## 4                                              Asian,Hispanic/Latino/a/x    1
## 5                                                            Asian,White    2
## 6                                              Black or African American   22
## 7                          Black or African American,Hispanic/Latino/a/x    2
## 8                                        Black or African American,White    1
## 9                                  Black or African American,White,Other    1
## 10                                                   Hispanic/Latino/a/x   10
## 11                                 Indigenous American or Alaskan Native    1
## 12 Indigenous American or Alaskan Native,Black or African American,White    1
## 13                           Indigenous American or Alaskan Native,White    2
## 14       Indigenous American or Alaskan Native,White,Hispanic/Latino/a/x    2
## 15                                                                 Other    1
## 16                                                Prefer not to disclose    1
## 17                                                                 White  137
## 18                                             White,Hispanic/Latino/a/x    5
##    Percent
## 1     0.99
## 2     5.42
## 3     0.49
## 4     0.49
## 5     0.99
## 6    10.84
## 7     0.99
## 8     0.49
## 9     0.49
## 10    4.93
## 11    0.49
## 12    0.49
## 13    0.99
## 14    0.99
## 15    0.49
## 16    0.49
## 17   67.49
## 18    2.46
## 
## Table of frequencies for income_text :
##                    Var1 Freq Percent
## 1                          4    1.97
## 2             < $10,000   13    6.40
## 3             >$150,000   20    9.85
## 4    $10,000 to $19,999   12    5.91
## 5  $100,000 to $149,999   20    9.85
## 6    $20,000 to $29,999   19    9.36
## 7    $30,000 to $39,999   28   13.79
## 8    $40,000 to $49,999   15    7.39
## 9    $50,000 to $74,999   43   21.18
## 10   $75,000 to $99,999   29   14.29
## 
## Table of frequencies for education_text :
##                                                                                Var1
## 1                                                                                  
## 2                                                    Associate Degree (e.g. AA, AS)
## 3                                                   Bachelor's Degree (e.g. BA, BS)
## 4                                       High school degree or equivalent (e.g. GED)
## 5                                                   Less than a high school diploma
## 6 Postgraduate Degree (e.g. Master's Degree, Professional Degree, Doctorate Degree)
## 7                                                           Some college, no degree
##   Freq Percent
## 1    2    0.99
## 2   26   12.81
## 3   73   35.96
## 4   29   14.29
## 5    3    1.48
## 6   26   12.81
## 7   44   21.67
## 
## Table of frequencies for political_overall_text :
##             Var1 Freq Percent
## 1                   3    1.48
## 2       Democrat   87   42.86
## 3    Independent   70   34.48
## 4     Republican   35   17.24
## 5 Something else    8    3.94

3 Correlation

DVs <- gjg_long[c("severity", "capable", "helped", "agreement", "married", "age", "political_social", "political_economic", "income", "education", "ses")]

# Compute pairwise correlations
corr_DVs <- cor(DVs, use = "complete.obs")

colnames(corr_DVs) <- c("outcome \n\ severity", "capacity \n\ to help", "Victim \n\ past help", "Prior \n\ agreement", "married", "age", "social \n\ leaning", "economic \n\ leaning", "income", "education", "ses")

rownames(corr_DVs) <- c("outcome \n\ severity", "capacity \n\ to help", "Victim \n\ past help", "Prior \n\ agreement", "married", "age", "social \n\ leaning", "economic \n\ leaning", "income", "education", "ses")

# Plot the correlation matrix
corrplot(corr_DVs, is.corr = TRUE, type = "full", method = "circle", tl.cex = 0.6, insig = "label_sig", diag = FALSE)

corrplot.mixed(corr_DVs, is.corr = TRUE, lower = 'circle', upper = 'number', insig = "label_sig")

?select

## Help on topic 'select' was found in the following packages:
## 
##   Package               Library
##   dplyr                 /Library/Frameworks/R.framework/Versions/4.1-arm64/Resources/library
##   rstatix               /Library/Frameworks/R.framework/Versions/4.1-arm64/Resources/library
##   MASS                  /Library/Frameworks/R.framework/Versions/4.1-arm64/Resources/library
## 
## 
## Using the first match ...

4 Strongest Moral Obligation Plots

Which individual was most obligated to help Person A?

## remove rows that aren't for most obl
gjg_long_most <- gjg_long %>% filter(!is.na(mostObl))

# Define the desired order of levels
desired_order <- c("Married", "Prior \n\ Agreement", "Outcome \n Severity", "Victim's \n past help",  "Capacity \n to help")

gjg_long_most$mostObl_text <- factor(gjg_long_most$mostObl_text, levels = desired_order)

gjg_slider_long$DV

##    [1] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##    [7] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##   [13] "severity"  "severity"  "severity"  "capable"   "capable"   "capable"  
##   [19] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##   [25] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##   [31] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##   [37] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##   [43] "helped"    "helped"    "helped"    "agreement" "agreement" "agreement"
##   [49] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##   [55] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##   [61] "married"   "married"   "married"   "married"   "married"   "married"  
##   [67] "married"   "married"   "married"   "married"   "married"   "married"  
##   [73] "married"   "married"   "married"   "severity"  "severity"  "severity" 
##   [79] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##   [85] "severity"  "severity"  "severity"  "severity"  "severity"  "capable"  
##   [91] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##   [97] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [103] "capable"   "helped"    "helped"    "helped"    "helped"    "helped"   
##  [109] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [115] "helped"    "helped"    "helped"    "agreement" "agreement" "agreement"
##  [121] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [127] "agreement" "agreement" "agreement" "agreement" "agreement" "married"  
##  [133] "married"   "married"   "married"   "married"   "married"   "married"  
##  [139] "married"   "married"   "married"   "married"   "married"   "married"  
##  [145] "married"   "severity"  "severity"  "severity"  "severity"  "severity" 
##  [151] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [157] "severity"  "severity"  "severity"  "capable"   "capable"   "capable"  
##  [163] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [169] "capable"   "capable"   "capable"   "capable"   "capable"   "helped"   
##  [175] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [181] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [187] "helped"    "agreement" "agreement" "agreement" "agreement" "agreement"
##  [193] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [199] "agreement" "agreement" "agreement" "married"   "married"   "married"  
##  [205] "married"   "married"   "married"   "married"   "married"   "married"  
##  [211] "married"   "married"   "married"   "married"   "married"   "severity" 
##  [217] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [223] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [229] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [235] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [241] "capable"   "helped"    "helped"    "helped"    "helped"    "helped"   
##  [247] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [253] "helped"    "helped"    "agreement" "agreement" "agreement" "agreement"
##  [259] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [265] "agreement" "agreement" "agreement" "married"   "married"   "married"  
##  [271] "married"   "married"   "married"   "married"   "married"   "married"  
##  [277] "married"   "married"   "married"   "married"   "severity"  "severity" 
##  [283] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [289] "severity"  "severity"  "severity"  "severity"  "severity"  "capable"  
##  [295] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [301] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [307] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [313] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [319] "helped"    "agreement" "agreement" "agreement" "agreement" "agreement"
##  [325] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [331] "agreement" "agreement" "married"   "married"   "married"   "married"  
##  [337] "married"   "married"   "married"   "married"   "married"   "married"  
##  [343] "married"   "married"   "married"   "severity"  "severity"  "severity" 
##  [349] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [355] "severity"  "severity"  "severity"  "severity"  "capable"   "capable"  
##  [361] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [367] "capable"   "capable"   "capable"   "capable"   "capable"   "helped"   
##  [373] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [379] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [385] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [391] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [397] "agreement" "married"   "married"   "married"   "married"   "married"  
##  [403] "married"   "married"   "married"   "married"   "married"   "married"  
##  [409] "married"   "married"   "severity"  "severity"  "severity"  "severity" 
##  [415] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [421] "severity"  "severity"  "severity"  "severity"  "severity"  "capable"  
##  [427] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [433] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [439] "capable"   "capable"   "helped"    "helped"    "helped"    "helped"   
##  [445] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [451] "helped"    "helped"    "helped"    "helped"    "helped"    "agreement"
##  [457] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [463] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [469] "agreement" "agreement" "married"   "married"   "married"   "married"  
##  [475] "married"   "married"   "married"   "married"   "married"   "married"  
##  [481] "married"   "married"   "married"   "married"   "married"   "severity" 
##  [487] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [493] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [499] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [505] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [511] "capable"   "helped"    "helped"    "helped"    "helped"    "helped"   
##  [517] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [523] "helped"    "helped"    "agreement" "agreement" "agreement" "agreement"
##  [529] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [535] "agreement" "agreement" "agreement" "married"   "married"   "married"  
##  [541] "married"   "married"   "married"   "married"   "married"   "married"  
##  [547] "married"   "married"   "married"   "married"   "severity"  "severity" 
##  [553] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [559] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [565] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [571] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [577] "capable"   "capable"   "helped"    "helped"    "helped"    "helped"   
##  [583] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [589] "helped"    "helped"    "helped"    "helped"    "agreement" "agreement"
##  [595] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [601] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [607] "married"   "married"   "married"   "married"   "married"   "married"  
##  [613] "married"   "married"   "married"   "married"   "married"   "married"  
##  [619] "married"   "married"   "severity"  "severity"  "severity"  "severity" 
##  [625] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [631] "severity"  "capable"   "capable"   "capable"   "capable"   "capable"  
##  [637] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [643] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [649] "helped"    "helped"    "helped"    "helped"    "helped"    "agreement"
##  [655] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [661] "agreement" "agreement" "agreement" "agreement" "married"   "married"  
##  [667] "married"   "married"   "married"   "married"   "married"   "married"  
##  [673] "married"   "married"   "married"   "severity"  "severity"  "severity" 
##  [679] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [685] "severity"  "severity"  "severity"  "severity"  "capable"   "capable"  
##  [691] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [697] "capable"   "capable"   "capable"   "capable"   "capable"   "helped"   
##  [703] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [709] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [715] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [721] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [727] "agreement" "married"   "married"   "married"   "married"   "married"  
##  [733] "married"   "married"   "married"   "married"   "married"   "married"  
##  [739] "married"   "married"   "severity"  "severity"  "severity"  "severity" 
##  [745] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [751] "severity"  "severity"  "severity"  "severity"  "capable"   "capable"  
##  [757] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [763] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [769] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [775] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [781] "helped"    "helped"    "agreement" "agreement" "agreement" "agreement"
##  [787] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [793] "agreement" "agreement" "agreement" "agreement" "married"   "married"  
##  [799] "married"   "married"   "married"   "married"   "married"   "married"  
##  [805] "married"   "married"   "married"   "married"   "married"   "married"  
##  [811] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [817] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [823] "severity"  "capable"   "capable"   "capable"   "capable"   "capable"  
##  [829] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [835] "capable"   "capable"   "helped"    "helped"    "helped"    "helped"   
##  [841] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [847] "helped"    "helped"    "helped"    "agreement" "agreement" "agreement"
##  [853] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [859] "agreement" "agreement" "agreement" "agreement" "married"   "married"  
##  [865] "married"   "married"   "married"   "married"   "married"   "married"  
##  [871] "married"   "married"   "married"   "married"   "married"   "severity" 
##  [877] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [883] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [889] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [895] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [901] "capable"   "helped"    "helped"    "helped"    "helped"    "helped"   
##  [907] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [913] "helped"    "helped"    "agreement" "agreement" "agreement" "agreement"
##  [919] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [925] "agreement" "agreement" "agreement" "married"   "married"   "married"  
##  [931] "married"   "married"   "married"   "married"   "married"   "married"  
##  [937] "married"   "married"   "married"   "married"   "severity"  "severity" 
##  [943] "severity"  "severity"  "severity"  "severity"  "severity"  "severity" 
##  [949] "severity"  "severity"  "severity"  "severity"  "severity"  "capable"  
##  [955] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [961] "capable"   "capable"   "capable"   "capable"   "capable"   "capable"  
##  [967] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [973] "helped"    "helped"    "helped"    "helped"    "helped"    "helped"   
##  [979] "helped"    "agreement" "agreement" "agreement" "agreement" "agreement"
##  [985] "agreement" "agreement" "agreement" "agreement" "agreement" "agreement"
##  [991] "agreement" "agreement" "married"   "married"   "married"   "married"  
##  [997] "married"   "married"   "married"   "married"   "married"   "married"  
## [1003] "married"   "married"   "married"

data <- data.frame(
  category = factor(c("B", "A", "C", "B", "A", "C"))
)



ggplot(data = gjg_long_most, aes(x = mostObl_text)) +
  geom_bar() +
  labs(x = "Feature", y = "Frequency", title = "Most Obligated Frequency Plot")+
      theme(plot.title = element_text(hjust = 0.5))

## Signifigance

• Significantly more people select Married as most obligation driving feature

# Create a contingency table
contingency_table <- table(gjg_long_most$mostObl_text)

chisq.test(contingency_table, p = c(1/5, 1/5, 1/5, 1/5, 1/5))

## 
##  Chi-squared test for given probabilities
## 
## data:  contingency_table
## X-squared = 45.741, df = 4, p-value = 2.788e-09

cohenW(contingency_table, p = c(1/5, 1/5, 1/5, 1/5, 1/5))

## Cohen w 
##   0.477

4.1 Faceted by Vignette

ggplot(data = gjg_long_most, aes(x = mostObl_text)) +
  geom_bar() +
  labs(x = "Feature", y = "Frequency", title = "Most Obligated Frequency Plot By Gender") +
  facet_wrap(~ vignette) +  # Replace 'facet_variable' with the name of the variable you want to facet wrap
  theme(plot.title = element_text(hjust = 0.5))

4.2 Faceted by Gender

gjg_long_most_gender <- gjg_long_most %>% filter(gender_text == "Man" | gender_text == "Woman")

ggplot(data = gjg_long_most_gender, aes(x = mostObl_text)) +
  geom_bar() +
  labs(x = "Feature", y = "Frequency", title = "Most Obligated Frequency Plot By Gender") +
  facet_wrap(~ gender_text) +  # Replace 'facet_variable' with the name of the variable you want to facet wrap
  theme(plot.title = element_text(hjust = 0.5))

5 Strength of Moral Obligation Plots

How strong of an obligation does the individual have to help Person A? (None at all to Extremely Strong)

gjg_slider_long <- gjg_slider_long %>%
  mutate(
    DV = case_when(
      DV == "severity" ~ "Outcome \n\ Severity",
      DV == "capable" ~ "Capacity \n\ to help",
      DV == "helped" ~ "Victim's \n\ past help",
      DV == "agreement" ~ "Prior \n\ Agreement",
      DV == "married" ~ "Married",
      TRUE ~ DV
    )
    )

gjg_slider_long$DV

##    [1] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##    [4] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##    [7] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##   [10] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##   [13] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##   [16] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##   [19] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##   [22] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##   [25] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##   [28] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##   [31] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##   [34] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##   [37] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##   [40] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##   [43] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##   [46] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##   [49] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##   [52] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##   [55] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##   [58] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##   [61] "Married"               "Married"               "Married"              
##   [64] "Married"               "Married"               "Married"              
##   [67] "Married"               "Married"               "Married"              
##   [70] "Married"               "Married"               "Married"              
##   [73] "Married"               "Married"               "Married"              
##   [76] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##   [79] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##   [82] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##   [85] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##   [88] "Outcome \n Severity"   "Outcome \n Severity"   "Capacity \n to help"  
##   [91] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##   [94] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##   [97] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [100] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [103] "Capacity \n to help"   "Victim's \n past help" "Victim's \n past help"
##  [106] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [109] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [112] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [115] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [118] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [121] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [124] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [127] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [130] "Prior \n Agreement"    "Prior \n Agreement"    "Married"              
##  [133] "Married"               "Married"               "Married"              
##  [136] "Married"               "Married"               "Married"              
##  [139] "Married"               "Married"               "Married"              
##  [142] "Married"               "Married"               "Married"              
##  [145] "Married"               "Outcome \n Severity"   "Outcome \n Severity"  
##  [148] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [151] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [154] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [157] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [160] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [163] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [166] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [169] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [172] "Capacity \n to help"   "Capacity \n to help"   "Victim's \n past help"
##  [175] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [178] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [181] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [184] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [187] "Victim's \n past help" "Prior \n Agreement"    "Prior \n Agreement"   
##  [190] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [193] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [196] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [199] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [202] "Married"               "Married"               "Married"              
##  [205] "Married"               "Married"               "Married"              
##  [208] "Married"               "Married"               "Married"              
##  [211] "Married"               "Married"               "Married"              
##  [214] "Married"               "Married"               "Outcome \n Severity"  
##  [217] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [220] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [223] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [226] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [229] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [232] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [235] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [238] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [241] "Capacity \n to help"   "Victim's \n past help" "Victim's \n past help"
##  [244] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [247] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [250] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [253] "Victim's \n past help" "Victim's \n past help" "Prior \n Agreement"   
##  [256] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [259] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [262] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [265] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [268] "Married"               "Married"               "Married"              
##  [271] "Married"               "Married"               "Married"              
##  [274] "Married"               "Married"               "Married"              
##  [277] "Married"               "Married"               "Married"              
##  [280] "Married"               "Outcome \n Severity"   "Outcome \n Severity"  
##  [283] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [286] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [289] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [292] "Outcome \n Severity"   "Outcome \n Severity"   "Capacity \n to help"  
##  [295] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [298] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [301] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [304] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [307] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [310] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [313] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [316] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [319] "Victim's \n past help" "Prior \n Agreement"    "Prior \n Agreement"   
##  [322] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [325] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [328] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [331] "Prior \n Agreement"    "Prior \n Agreement"    "Married"              
##  [334] "Married"               "Married"               "Married"              
##  [337] "Married"               "Married"               "Married"              
##  [340] "Married"               "Married"               "Married"              
##  [343] "Married"               "Married"               "Married"              
##  [346] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [349] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [352] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [355] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [358] "Outcome \n Severity"   "Capacity \n to help"   "Capacity \n to help"  
##  [361] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [364] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [367] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [370] "Capacity \n to help"   "Capacity \n to help"   "Victim's \n past help"
##  [373] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [376] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [379] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [382] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [385] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [388] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [391] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [394] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [397] "Prior \n Agreement"    "Married"               "Married"              
##  [400] "Married"               "Married"               "Married"              
##  [403] "Married"               "Married"               "Married"              
##  [406] "Married"               "Married"               "Married"              
##  [409] "Married"               "Married"               "Outcome \n Severity"  
##  [412] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [415] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [418] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [421] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [424] "Outcome \n Severity"   "Outcome \n Severity"   "Capacity \n to help"  
##  [427] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [430] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [433] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [436] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [439] "Capacity \n to help"   "Capacity \n to help"   "Victim's \n past help"
##  [442] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [445] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [448] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [451] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [454] "Victim's \n past help" "Victim's \n past help" "Prior \n Agreement"   
##  [457] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [460] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [463] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [466] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [469] "Prior \n Agreement"    "Prior \n Agreement"    "Married"              
##  [472] "Married"               "Married"               "Married"              
##  [475] "Married"               "Married"               "Married"              
##  [478] "Married"               "Married"               "Married"              
##  [481] "Married"               "Married"               "Married"              
##  [484] "Married"               "Married"               "Outcome \n Severity"  
##  [487] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [490] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [493] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [496] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [499] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [502] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [505] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [508] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [511] "Capacity \n to help"   "Victim's \n past help" "Victim's \n past help"
##  [514] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [517] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [520] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [523] "Victim's \n past help" "Victim's \n past help" "Prior \n Agreement"   
##  [526] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [529] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [532] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [535] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [538] "Married"               "Married"               "Married"              
##  [541] "Married"               "Married"               "Married"              
##  [544] "Married"               "Married"               "Married"              
##  [547] "Married"               "Married"               "Married"              
##  [550] "Married"               "Outcome \n Severity"   "Outcome \n Severity"  
##  [553] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [556] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [559] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [562] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [565] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [568] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [571] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [574] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [577] "Capacity \n to help"   "Capacity \n to help"   "Victim's \n past help"
##  [580] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [583] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [586] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [589] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [592] "Victim's \n past help" "Prior \n Agreement"    "Prior \n Agreement"   
##  [595] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [598] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [601] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [604] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [607] "Married"               "Married"               "Married"              
##  [610] "Married"               "Married"               "Married"              
##  [613] "Married"               "Married"               "Married"              
##  [616] "Married"               "Married"               "Married"              
##  [619] "Married"               "Married"               "Outcome \n Severity"  
##  [622] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [625] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [628] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [631] "Outcome \n Severity"   "Capacity \n to help"   "Capacity \n to help"  
##  [634] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [637] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [640] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [643] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [646] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [649] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [652] "Victim's \n past help" "Victim's \n past help" "Prior \n Agreement"   
##  [655] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [658] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [661] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [664] "Prior \n Agreement"    "Married"               "Married"              
##  [667] "Married"               "Married"               "Married"              
##  [670] "Married"               "Married"               "Married"              
##  [673] "Married"               "Married"               "Married"              
##  [676] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [679] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [682] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [685] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [688] "Outcome \n Severity"   "Capacity \n to help"   "Capacity \n to help"  
##  [691] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [694] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [697] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [700] "Capacity \n to help"   "Capacity \n to help"   "Victim's \n past help"
##  [703] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [706] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [709] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [712] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [715] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [718] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [721] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [724] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [727] "Prior \n Agreement"    "Married"               "Married"              
##  [730] "Married"               "Married"               "Married"              
##  [733] "Married"               "Married"               "Married"              
##  [736] "Married"               "Married"               "Married"              
##  [739] "Married"               "Married"               "Outcome \n Severity"  
##  [742] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [745] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [748] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [751] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [754] "Outcome \n Severity"   "Capacity \n to help"   "Capacity \n to help"  
##  [757] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [760] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [763] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [766] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [769] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [772] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [775] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [778] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [781] "Victim's \n past help" "Victim's \n past help" "Prior \n Agreement"   
##  [784] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [787] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [790] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [793] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [796] "Prior \n Agreement"    "Married"               "Married"              
##  [799] "Married"               "Married"               "Married"              
##  [802] "Married"               "Married"               "Married"              
##  [805] "Married"               "Married"               "Married"              
##  [808] "Married"               "Married"               "Married"              
##  [811] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [814] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [817] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [820] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [823] "Outcome \n Severity"   "Capacity \n to help"   "Capacity \n to help"  
##  [826] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [829] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [832] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [835] "Capacity \n to help"   "Capacity \n to help"   "Victim's \n past help"
##  [838] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [841] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [844] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [847] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [850] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [853] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [856] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [859] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [862] "Prior \n Agreement"    "Married"               "Married"              
##  [865] "Married"               "Married"               "Married"              
##  [868] "Married"               "Married"               "Married"              
##  [871] "Married"               "Married"               "Married"              
##  [874] "Married"               "Married"               "Outcome \n Severity"  
##  [877] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [880] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [883] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [886] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [889] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [892] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [895] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [898] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [901] "Capacity \n to help"   "Victim's \n past help" "Victim's \n past help"
##  [904] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [907] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [910] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [913] "Victim's \n past help" "Victim's \n past help" "Prior \n Agreement"   
##  [916] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [919] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [922] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [925] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [928] "Married"               "Married"               "Married"              
##  [931] "Married"               "Married"               "Married"              
##  [934] "Married"               "Married"               "Married"              
##  [937] "Married"               "Married"               "Married"              
##  [940] "Married"               "Outcome \n Severity"   "Outcome \n Severity"  
##  [943] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [946] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [949] "Outcome \n Severity"   "Outcome \n Severity"   "Outcome \n Severity"  
##  [952] "Outcome \n Severity"   "Outcome \n Severity"   "Capacity \n to help"  
##  [955] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [958] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [961] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [964] "Capacity \n to help"   "Capacity \n to help"   "Capacity \n to help"  
##  [967] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [970] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [973] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [976] "Victim's \n past help" "Victim's \n past help" "Victim's \n past help"
##  [979] "Victim's \n past help" "Prior \n Agreement"    "Prior \n Agreement"   
##  [982] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [985] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [988] "Prior \n Agreement"    "Prior \n Agreement"    "Prior \n Agreement"   
##  [991] "Prior \n Agreement"    "Prior \n Agreement"    "Married"              
##  [994] "Married"               "Married"               "Married"              
##  [997] "Married"               "Married"               "Married"              
## [1000] "Married"               "Married"               "Married"              
## [1003] "Married"               "Married"               "Married"

gjg_slider_long$resp <- as.numeric(gjg_slider_long$resp)
plot_cooker(gjg_slider_long, DV, resp, "Strength of Moral Obligation")

gjg_slider_long$DV <- factor(gjg_slider_long$DV, levels = desired_order)

gjg_slider_long$DV

##    [1] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##    [4] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##    [7] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [10] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [13] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [16] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [19] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [22] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [25] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [28] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [31] Victim's \n past help Victim's \n past help Victim's \n past help
##   [34] Victim's \n past help Victim's \n past help Victim's \n past help
##   [37] Victim's \n past help Victim's \n past help Victim's \n past help
##   [40] Victim's \n past help Victim's \n past help Victim's \n past help
##   [43] Victim's \n past help Victim's \n past help Victim's \n past help
##   [46] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [49] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [52] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [55] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [58] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [61] Married               Married               Married              
##   [64] Married               Married               Married              
##   [67] Married               Married               Married              
##   [70] Married               Married               Married              
##   [73] Married               Married               Married              
##   [76] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [79] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [82] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [85] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [88] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##   [91] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [94] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [97] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [100] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [103] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [106] Victim's \n past help Victim's \n past help Victim's \n past help
##  [109] Victim's \n past help Victim's \n past help Victim's \n past help
##  [112] Victim's \n past help Victim's \n past help Victim's \n past help
##  [115] Victim's \n past help Victim's \n past help Victim's \n past help
##  [118] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [121] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [124] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [127] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [130] Prior \n Agreement    Prior \n Agreement    Married              
##  [133] Married               Married               Married              
##  [136] Married               Married               Married              
##  [139] Married               Married               Married              
##  [142] Married               Married               Married              
##  [145] Married               Outcome \n Severity   Outcome \n Severity  
##  [148] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [151] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [154] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [157] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [160] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [163] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [166] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [169] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [172] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [175] Victim's \n past help Victim's \n past help Victim's \n past help
##  [178] Victim's \n past help Victim's \n past help Victim's \n past help
##  [181] Victim's \n past help Victim's \n past help Victim's \n past help
##  [184] Victim's \n past help Victim's \n past help Victim's \n past help
##  [187] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [190] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [193] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [196] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [199] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [202] Married               Married               Married              
##  [205] Married               Married               Married              
##  [208] Married               Married               Married              
##  [211] Married               Married               Married              
##  [214] Married               Married               Outcome \n Severity  
##  [217] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [220] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [223] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [226] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [229] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [232] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [235] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [238] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [241] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [244] Victim's \n past help Victim's \n past help Victim's \n past help
##  [247] Victim's \n past help Victim's \n past help Victim's \n past help
##  [250] Victim's \n past help Victim's \n past help Victim's \n past help
##  [253] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [256] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [259] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [262] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [265] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [268] Married               Married               Married              
##  [271] Married               Married               Married              
##  [274] Married               Married               Married              
##  [277] Married               Married               Married              
##  [280] Married               Outcome \n Severity   Outcome \n Severity  
##  [283] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [286] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [289] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [292] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##  [295] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [298] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [301] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [304] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [307] Victim's \n past help Victim's \n past help Victim's \n past help
##  [310] Victim's \n past help Victim's \n past help Victim's \n past help
##  [313] Victim's \n past help Victim's \n past help Victim's \n past help
##  [316] Victim's \n past help Victim's \n past help Victim's \n past help
##  [319] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [322] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [325] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [328] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [331] Prior \n Agreement    Prior \n Agreement    Married              
##  [334] Married               Married               Married              
##  [337] Married               Married               Married              
##  [340] Married               Married               Married              
##  [343] Married               Married               Married              
##  [346] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [349] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [352] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [355] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [358] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [361] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [364] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [367] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [370] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [373] Victim's \n past help Victim's \n past help Victim's \n past help
##  [376] Victim's \n past help Victim's \n past help Victim's \n past help
##  [379] Victim's \n past help Victim's \n past help Victim's \n past help
##  [382] Victim's \n past help Victim's \n past help Victim's \n past help
##  [385] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [388] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [391] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [394] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [397] Prior \n Agreement    Married               Married              
##  [400] Married               Married               Married              
##  [403] Married               Married               Married              
##  [406] Married               Married               Married              
##  [409] Married               Married               Outcome \n Severity  
##  [412] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [415] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [418] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [421] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [424] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##  [427] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [430] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [433] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [436] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [439] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [442] Victim's \n past help Victim's \n past help Victim's \n past help
##  [445] Victim's \n past help Victim's \n past help Victim's \n past help
##  [448] Victim's \n past help Victim's \n past help Victim's \n past help
##  [451] Victim's \n past help Victim's \n past help Victim's \n past help
##  [454] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [457] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [460] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [463] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [466] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [469] Prior \n Agreement    Prior \n Agreement    Married              
##  [472] Married               Married               Married              
##  [475] Married               Married               Married              
##  [478] Married               Married               Married              
##  [481] Married               Married               Married              
##  [484] Married               Married               Outcome \n Severity  
##  [487] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [490] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [493] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [496] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [499] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [502] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [505] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [508] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [511] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [514] Victim's \n past help Victim's \n past help Victim's \n past help
##  [517] Victim's \n past help Victim's \n past help Victim's \n past help
##  [520] Victim's \n past help Victim's \n past help Victim's \n past help
##  [523] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [526] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [529] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [532] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [535] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [538] Married               Married               Married              
##  [541] Married               Married               Married              
##  [544] Married               Married               Married              
##  [547] Married               Married               Married              
##  [550] Married               Outcome \n Severity   Outcome \n Severity  
##  [553] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [556] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [559] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [562] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [565] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [568] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [571] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [574] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [577] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [580] Victim's \n past help Victim's \n past help Victim's \n past help
##  [583] Victim's \n past help Victim's \n past help Victim's \n past help
##  [586] Victim's \n past help Victim's \n past help Victim's \n past help
##  [589] Victim's \n past help Victim's \n past help Victim's \n past help
##  [592] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [595] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [598] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [601] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [604] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [607] Married               Married               Married              
##  [610] Married               Married               Married              
##  [613] Married               Married               Married              
##  [616] Married               Married               Married              
##  [619] Married               Married               Outcome \n Severity  
##  [622] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [625] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [628] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [631] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [634] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [637] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [640] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [643] Victim's \n past help Victim's \n past help Victim's \n past help
##  [646] Victim's \n past help Victim's \n past help Victim's \n past help
##  [649] Victim's \n past help Victim's \n past help Victim's \n past help
##  [652] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [655] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [658] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [661] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [664] Prior \n Agreement    Married               Married              
##  [667] Married               Married               Married              
##  [670] Married               Married               Married              
##  [673] Married               Married               Married              
##  [676] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [679] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [682] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [685] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [688] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [691] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [694] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [697] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [700] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [703] Victim's \n past help Victim's \n past help Victim's \n past help
##  [706] Victim's \n past help Victim's \n past help Victim's \n past help
##  [709] Victim's \n past help Victim's \n past help Victim's \n past help
##  [712] Victim's \n past help Victim's \n past help Victim's \n past help
##  [715] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [718] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [721] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [724] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [727] Prior \n Agreement    Married               Married              
##  [730] Married               Married               Married              
##  [733] Married               Married               Married              
##  [736] Married               Married               Married              
##  [739] Married               Married               Outcome \n Severity  
##  [742] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [745] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [748] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [751] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [754] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [757] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [760] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [763] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [766] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [769] Victim's \n past help Victim's \n past help Victim's \n past help
##  [772] Victim's \n past help Victim's \n past help Victim's \n past help
##  [775] Victim's \n past help Victim's \n past help Victim's \n past help
##  [778] Victim's \n past help Victim's \n past help Victim's \n past help
##  [781] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [784] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [787] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [790] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [793] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [796] Prior \n Agreement    Married               Married              
##  [799] Married               Married               Married              
##  [802] Married               Married               Married              
##  [805] Married               Married               Married              
##  [808] Married               Married               Married              
##  [811] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [814] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [817] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [820] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [823] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [826] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [829] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [832] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [835] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [838] Victim's \n past help Victim's \n past help Victim's \n past help
##  [841] Victim's \n past help Victim's \n past help Victim's \n past help
##  [844] Victim's \n past help Victim's \n past help Victim's \n past help
##  [847] Victim's \n past help Victim's \n past help Victim's \n past help
##  [850] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [853] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [856] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [859] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [862] Prior \n Agreement    Married               Married              
##  [865] Married               Married               Married              
##  [868] Married               Married               Married              
##  [871] Married               Married               Married              
##  [874] Married               Married               Outcome \n Severity  
##  [877] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [880] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [883] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [886] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [889] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [892] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [895] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [898] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [901] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [904] Victim's \n past help Victim's \n past help Victim's \n past help
##  [907] Victim's \n past help Victim's \n past help Victim's \n past help
##  [910] Victim's \n past help Victim's \n past help Victim's \n past help
##  [913] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [916] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [919] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [922] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [925] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [928] Married               Married               Married              
##  [931] Married               Married               Married              
##  [934] Married               Married               Married              
##  [937] Married               Married               Married              
##  [940] Married               Outcome \n Severity   Outcome \n Severity  
##  [943] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [946] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [949] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [952] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##  [955] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [958] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [961] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [964] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [967] Victim's \n past help Victim's \n past help Victim's \n past help
##  [970] Victim's \n past help Victim's \n past help Victim's \n past help
##  [973] Victim's \n past help Victim's \n past help Victim's \n past help
##  [976] Victim's \n past help Victim's \n past help Victim's \n past help
##  [979] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [982] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [985] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [988] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [991] Prior \n Agreement    Prior \n Agreement    Married              
##  [994] Married               Married               Married              
##  [997] Married               Married               Married              
## [1000] Married               Married               Married              
## [1003] Married               Married               Married              
## 5 Levels: Married Prior \n Agreement ... Capacity \n to help

data <- data.frame(
  category = factor(c("B", "A", "C", "B", "A", "C"))
)

# Define the desired order of levels
desired_order <- c("Married", "Prior \n\ Agreement", "Outcome \n Severity", "Victim's \n past help",  "Capacity \n to help")

# Reorder the factor levels
data$category <- factor(data$category, levels = desired_order)

5.1 Significance

• Marriage is significantly higher than all other features, agreement is higher than the rest

gjg_slider_long$DV <- as.factor(gjg_slider_long$DV)

gjg_slider_long$DV

##    [1] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##    [4] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##    [7] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [10] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [13] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [16] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [19] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [22] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [25] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [28] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [31] Victim's \n past help Victim's \n past help Victim's \n past help
##   [34] Victim's \n past help Victim's \n past help Victim's \n past help
##   [37] Victim's \n past help Victim's \n past help Victim's \n past help
##   [40] Victim's \n past help Victim's \n past help Victim's \n past help
##   [43] Victim's \n past help Victim's \n past help Victim's \n past help
##   [46] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [49] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [52] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [55] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [58] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##   [61] Married               Married               Married              
##   [64] Married               Married               Married              
##   [67] Married               Married               Married              
##   [70] Married               Married               Married              
##   [73] Married               Married               Married              
##   [76] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [79] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [82] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [85] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##   [88] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##   [91] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [94] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##   [97] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [100] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [103] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [106] Victim's \n past help Victim's \n past help Victim's \n past help
##  [109] Victim's \n past help Victim's \n past help Victim's \n past help
##  [112] Victim's \n past help Victim's \n past help Victim's \n past help
##  [115] Victim's \n past help Victim's \n past help Victim's \n past help
##  [118] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [121] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [124] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [127] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [130] Prior \n Agreement    Prior \n Agreement    Married              
##  [133] Married               Married               Married              
##  [136] Married               Married               Married              
##  [139] Married               Married               Married              
##  [142] Married               Married               Married              
##  [145] Married               Outcome \n Severity   Outcome \n Severity  
##  [148] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [151] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [154] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [157] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [160] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [163] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [166] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [169] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [172] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [175] Victim's \n past help Victim's \n past help Victim's \n past help
##  [178] Victim's \n past help Victim's \n past help Victim's \n past help
##  [181] Victim's \n past help Victim's \n past help Victim's \n past help
##  [184] Victim's \n past help Victim's \n past help Victim's \n past help
##  [187] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [190] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [193] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [196] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [199] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [202] Married               Married               Married              
##  [205] Married               Married               Married              
##  [208] Married               Married               Married              
##  [211] Married               Married               Married              
##  [214] Married               Married               Outcome \n Severity  
##  [217] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [220] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [223] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [226] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [229] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [232] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [235] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [238] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [241] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [244] Victim's \n past help Victim's \n past help Victim's \n past help
##  [247] Victim's \n past help Victim's \n past help Victim's \n past help
##  [250] Victim's \n past help Victim's \n past help Victim's \n past help
##  [253] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [256] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [259] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [262] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [265] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [268] Married               Married               Married              
##  [271] Married               Married               Married              
##  [274] Married               Married               Married              
##  [277] Married               Married               Married              
##  [280] Married               Outcome \n Severity   Outcome \n Severity  
##  [283] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [286] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [289] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [292] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##  [295] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [298] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [301] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [304] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [307] Victim's \n past help Victim's \n past help Victim's \n past help
##  [310] Victim's \n past help Victim's \n past help Victim's \n past help
##  [313] Victim's \n past help Victim's \n past help Victim's \n past help
##  [316] Victim's \n past help Victim's \n past help Victim's \n past help
##  [319] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [322] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [325] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [328] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [331] Prior \n Agreement    Prior \n Agreement    Married              
##  [334] Married               Married               Married              
##  [337] Married               Married               Married              
##  [340] Married               Married               Married              
##  [343] Married               Married               Married              
##  [346] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [349] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [352] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [355] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [358] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [361] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [364] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [367] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [370] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [373] Victim's \n past help Victim's \n past help Victim's \n past help
##  [376] Victim's \n past help Victim's \n past help Victim's \n past help
##  [379] Victim's \n past help Victim's \n past help Victim's \n past help
##  [382] Victim's \n past help Victim's \n past help Victim's \n past help
##  [385] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [388] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [391] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [394] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [397] Prior \n Agreement    Married               Married              
##  [400] Married               Married               Married              
##  [403] Married               Married               Married              
##  [406] Married               Married               Married              
##  [409] Married               Married               Outcome \n Severity  
##  [412] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [415] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [418] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [421] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [424] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##  [427] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [430] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [433] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [436] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [439] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [442] Victim's \n past help Victim's \n past help Victim's \n past help
##  [445] Victim's \n past help Victim's \n past help Victim's \n past help
##  [448] Victim's \n past help Victim's \n past help Victim's \n past help
##  [451] Victim's \n past help Victim's \n past help Victim's \n past help
##  [454] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [457] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [460] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [463] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [466] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [469] Prior \n Agreement    Prior \n Agreement    Married              
##  [472] Married               Married               Married              
##  [475] Married               Married               Married              
##  [478] Married               Married               Married              
##  [481] Married               Married               Married              
##  [484] Married               Married               Outcome \n Severity  
##  [487] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [490] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [493] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [496] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [499] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [502] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [505] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [508] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [511] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [514] Victim's \n past help Victim's \n past help Victim's \n past help
##  [517] Victim's \n past help Victim's \n past help Victim's \n past help
##  [520] Victim's \n past help Victim's \n past help Victim's \n past help
##  [523] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [526] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [529] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [532] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [535] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [538] Married               Married               Married              
##  [541] Married               Married               Married              
##  [544] Married               Married               Married              
##  [547] Married               Married               Married              
##  [550] Married               Outcome \n Severity   Outcome \n Severity  
##  [553] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [556] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [559] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [562] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [565] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [568] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [571] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [574] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [577] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [580] Victim's \n past help Victim's \n past help Victim's \n past help
##  [583] Victim's \n past help Victim's \n past help Victim's \n past help
##  [586] Victim's \n past help Victim's \n past help Victim's \n past help
##  [589] Victim's \n past help Victim's \n past help Victim's \n past help
##  [592] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [595] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [598] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [601] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [604] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [607] Married               Married               Married              
##  [610] Married               Married               Married              
##  [613] Married               Married               Married              
##  [616] Married               Married               Married              
##  [619] Married               Married               Outcome \n Severity  
##  [622] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [625] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [628] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [631] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [634] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [637] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [640] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [643] Victim's \n past help Victim's \n past help Victim's \n past help
##  [646] Victim's \n past help Victim's \n past help Victim's \n past help
##  [649] Victim's \n past help Victim's \n past help Victim's \n past help
##  [652] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [655] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [658] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [661] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [664] Prior \n Agreement    Married               Married              
##  [667] Married               Married               Married              
##  [670] Married               Married               Married              
##  [673] Married               Married               Married              
##  [676] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [679] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [682] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [685] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [688] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [691] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [694] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [697] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [700] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [703] Victim's \n past help Victim's \n past help Victim's \n past help
##  [706] Victim's \n past help Victim's \n past help Victim's \n past help
##  [709] Victim's \n past help Victim's \n past help Victim's \n past help
##  [712] Victim's \n past help Victim's \n past help Victim's \n past help
##  [715] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [718] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [721] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [724] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [727] Prior \n Agreement    Married               Married              
##  [730] Married               Married               Married              
##  [733] Married               Married               Married              
##  [736] Married               Married               Married              
##  [739] Married               Married               Outcome \n Severity  
##  [742] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [745] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [748] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [751] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [754] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [757] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [760] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [763] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [766] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [769] Victim's \n past help Victim's \n past help Victim's \n past help
##  [772] Victim's \n past help Victim's \n past help Victim's \n past help
##  [775] Victim's \n past help Victim's \n past help Victim's \n past help
##  [778] Victim's \n past help Victim's \n past help Victim's \n past help
##  [781] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [784] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [787] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [790] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [793] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [796] Prior \n Agreement    Married               Married              
##  [799] Married               Married               Married              
##  [802] Married               Married               Married              
##  [805] Married               Married               Married              
##  [808] Married               Married               Married              
##  [811] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [814] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [817] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [820] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [823] Outcome \n Severity   Capacity \n to help   Capacity \n to help  
##  [826] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [829] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [832] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [835] Capacity \n to help   Capacity \n to help   Victim's \n past help
##  [838] Victim's \n past help Victim's \n past help Victim's \n past help
##  [841] Victim's \n past help Victim's \n past help Victim's \n past help
##  [844] Victim's \n past help Victim's \n past help Victim's \n past help
##  [847] Victim's \n past help Victim's \n past help Victim's \n past help
##  [850] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [853] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [856] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [859] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [862] Prior \n Agreement    Married               Married              
##  [865] Married               Married               Married              
##  [868] Married               Married               Married              
##  [871] Married               Married               Married              
##  [874] Married               Married               Outcome \n Severity  
##  [877] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [880] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [883] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [886] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [889] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [892] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [895] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [898] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [901] Capacity \n to help   Victim's \n past help Victim's \n past help
##  [904] Victim's \n past help Victim's \n past help Victim's \n past help
##  [907] Victim's \n past help Victim's \n past help Victim's \n past help
##  [910] Victim's \n past help Victim's \n past help Victim's \n past help
##  [913] Victim's \n past help Victim's \n past help Prior \n Agreement   
##  [916] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [919] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [922] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [925] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [928] Married               Married               Married              
##  [931] Married               Married               Married              
##  [934] Married               Married               Married              
##  [937] Married               Married               Married              
##  [940] Married               Outcome \n Severity   Outcome \n Severity  
##  [943] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [946] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [949] Outcome \n Severity   Outcome \n Severity   Outcome \n Severity  
##  [952] Outcome \n Severity   Outcome \n Severity   Capacity \n to help  
##  [955] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [958] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [961] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [964] Capacity \n to help   Capacity \n to help   Capacity \n to help  
##  [967] Victim's \n past help Victim's \n past help Victim's \n past help
##  [970] Victim's \n past help Victim's \n past help Victim's \n past help
##  [973] Victim's \n past help Victim's \n past help Victim's \n past help
##  [976] Victim's \n past help Victim's \n past help Victim's \n past help
##  [979] Victim's \n past help Prior \n Agreement    Prior \n Agreement   
##  [982] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [985] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [988] Prior \n Agreement    Prior \n Agreement    Prior \n Agreement   
##  [991] Prior \n Agreement    Prior \n Agreement    Married              
##  [994] Married               Married               Married              
##  [997] Married               Married               Married              
## [1000] Married               Married               Married              
## [1003] Married               Married               Married              
## 5 Levels: Married Prior \n Agreement ... Capacity \n to help

gjg_slider_long$DV <- relevel(gjg_slider_long$DV, ref = "Married")
mod_obligation_fit1 <- lmer(resp ~ DV + (1 | Participant_ID) + (1 | vignette), data = gjg_slider_long)
summary(mod_obligation_fit1)

## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: resp ~ DV + (1 | Participant_ID) + (1 | vignette)
##    Data: gjg_slider_long
## 
## REML criterion at convergence: 9416.9
## 
## Scaled residuals: 
##     Min      1Q  Median      3Q     Max 
## -2.9647 -0.5299  0.1478  0.6718  2.3765 
## 
## Random effects:
##  Groups         Name        Variance Std.Dev.
##  Participant_ID (Intercept) 144.82   12.034  
##  vignette       (Intercept)  57.95    7.613  
##  Residual                   592.07   24.333  
## Number of obs: 1005, groups:  Participant_ID, 201; vignette, 5
## 
## Fixed effects:
##                         Estimate Std. Error      df t value Pr(>|t|)    
## (Intercept)               81.865      3.906   5.589  20.957 1.58e-06 ***
## DVPrior \n Agreement      -7.274      2.427 800.000  -2.997  0.00281 ** 
## DVOutcome \n Severity    -16.796      2.427 800.000  -6.920 9.27e-12 ***
## DVVictim's \n past help  -16.816      2.427 800.000  -6.928 8.77e-12 ***
## DVCapacity \n to help    -20.244      2.427 800.000  -8.340 3.22e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Correlation of Fixed Effects:
##             (Intr) DVPrrA DVOtcS DVV'ph
## DVPrrAgrmnt -0.311                     
## DVOtcmSvrty -0.311  0.500              
## DVVctm'spsh -0.311  0.500  0.500       
## DVCpctythlp -0.311  0.500  0.500  0.500

gjg_slider_long$DV <- relevel(gjg_slider_long$DV, ref = "Prior \n Agreement")
mod_obligation_fit2 <- lmer(resp ~ DV + (1 | Participant_ID) + (1 | vignette), data = gjg_slider_long)
summary(mod_obligation_fit2)

## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: resp ~ DV + (1 | Participant_ID) + (1 | vignette)
##    Data: gjg_slider_long
## 
## REML criterion at convergence: 9416.9
## 
## Scaled residuals: 
##     Min      1Q  Median      3Q     Max 
## -2.9647 -0.5299  0.1478  0.6718  2.3765 
## 
## Random effects:
##  Groups         Name        Variance Std.Dev.
##  Participant_ID (Intercept) 144.82   12.034  
##  vignette       (Intercept)  57.95    7.613  
##  Residual                   592.07   24.333  
## Number of obs: 1005, groups:  Participant_ID, 201; vignette, 5
## 
## Fixed effects:
##                         Estimate Std. Error      df t value Pr(>|t|)    
## (Intercept)               74.592      3.906   5.589  19.095 2.65e-06 ***
## DVMarried                  7.274      2.427 800.000   2.997  0.00281 ** 
## DVOutcome \n Severity     -9.522      2.427 800.000  -3.923 9.49e-05 ***
## DVVictim's \n past help   -9.542      2.427 800.000  -3.931 9.18e-05 ***
## DVCapacity \n to help    -12.970      2.427 800.000  -5.344 1.19e-07 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Correlation of Fixed Effects:
##             (Intr) DVMrrd DVOtcS DVV'ph
## DVMarried   -0.311                     
## DVOtcmSvrty -0.311  0.500              
## DVVctm'spsh -0.311  0.500  0.500       
## DVCpctythlp -0.311  0.500  0.500  0.500

gjg_slider_long$DV <- relevel(gjg_slider_long$DV, ref = "Capacity \n to help")
mod_obligation_fit3 <- lmer(resp ~ DV + (1 | Participant_ID) + (1 | vignette), data = gjg_slider_long)
summary(mod_obligation_fit3)

## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: resp ~ DV + (1 | Participant_ID) + (1 | vignette)
##    Data: gjg_slider_long
## 
## REML criterion at convergence: 9416.9
## 
## Scaled residuals: 
##     Min      1Q  Median      3Q     Max 
## -2.9647 -0.5299  0.1478  0.6718  2.3765 
## 
## Random effects:
##  Groups         Name        Variance Std.Dev.
##  Participant_ID (Intercept) 144.82   12.034  
##  vignette       (Intercept)  57.95    7.613  
##  Residual                   592.07   24.333  
## Number of obs: 1005, groups:  Participant_ID, 201; vignette, 5
## 
## Fixed effects:
##                         Estimate Std. Error      df t value Pr(>|t|)    
## (Intercept)               61.621      3.906   5.589  15.775 7.56e-06 ***
## DVPrior \n Agreement      12.970      2.427 800.000   5.344 1.19e-07 ***
## DVMarried                 20.244      2.427 800.000   8.340 3.22e-16 ***
## DVOutcome \n Severity      3.448      2.427 800.000   1.420    0.156    
## DVVictim's \n past help    3.428      2.427 800.000   1.412    0.158    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Correlation of Fixed Effects:
##             (Intr) DVPrrA DVMrrd DVOtcS
## DVPrrAgrmnt -0.311                     
## DVMarried   -0.311  0.500              
## DVOtcmSvrty -0.311  0.500  0.500       
## DVVctm'spsh -0.311  0.500  0.500  0.500

5.2 Faceted by vignette

wrapped_plot_cooker(gjg_slider_long, DV, resp, "Strength of Moral Obligation", vignette)

gjg_slider_long$DV <- relevel(gjg_slider_long$DV, ref = "Married")
mod_obligation_fit1 <- lmer(resp ~ DV * vignette + (1 | Participant_ID), data = gjg_slider_long)
summary(mod_obligation_fit1)

## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: resp ~ DV * vignette + (1 | Participant_ID)
##    Data: gjg_slider_long
## 
## REML criterion at convergence: 9208.2
## 
## Scaled residuals: 
##     Min      1Q  Median      3Q     Max 
## -2.9291 -0.4972  0.1253  0.6317  2.8196 
## 
## Random effects:
##  Groups         Name        Variance Std.Dev.
##  Participant_ID (Intercept) 156.0    12.49   
##  Residual                   536.2    23.16   
## Number of obs: 1005, groups:  Participant_ID, 201
## 
## Fixed effects:
##                                      Estimate Std. Error      df t value
## (Intercept)                            83.000      4.213 814.516  19.702
## DVCapacity \n to help                 -28.820      5.244 784.000  -5.496
## DVPrior \n Agreement                  -19.820      5.244 784.000  -3.780
## DVOutcome \n Severity                 -30.205      5.244 784.000  -5.760
## DVVictim's \n past help               -19.923      5.244 784.000  -3.799
## vignettecar                             7.357      5.851 814.516   1.258
## vignettegrad                          -14.872      5.958 814.516  -2.496
## vignettemed                             2.868      5.997 814.516   0.478
## vignetteswim                           -0.907      5.818 814.516  -0.156
## DVCapacity \n to help:vignettecar      -9.537      7.282 784.000  -1.310
## DVPrior \n Agreement:vignettecar        6.487      7.282 784.000   0.891
## DVOutcome \n Severity:vignettecar       5.872      7.282 784.000   0.806
## DVVictim's \n past help:vignettecar    -5.196      7.282 784.000  -0.714
## DVCapacity \n to help:vignettegrad      6.385      7.416 784.000   0.861
## DVPrior \n Agreement:vignettegrad      31.795      7.416 784.000   4.288
## DVOutcome \n Severity:vignettegrad      7.821      7.416 784.000   1.055
## DVVictim's \n past help:vignettegrad   11.769      7.416 784.000   1.587
## DVCapacity \n to help:vignettemed      24.820      7.464 784.000   3.325
## DVPrior \n Agreement:vignettemed        1.478      7.464 784.000   0.198
## DVOutcome \n Severity:vignettemed      26.021      7.464 784.000   3.486
## DVVictim's \n past help:vignettemed    -0.919      7.464 784.000  -0.123
## DVCapacity \n to help:vignetteswim     21.681      7.241 784.000   2.994
## DVPrior \n Agreement:vignetteswim      22.169      7.241 784.000   3.062
## DVOutcome \n Severity:vignetteswim     26.856      7.241 784.000   3.709
## DVVictim's \n past help:vignetteswim    9.737      7.241 784.000   1.345
##                                      Pr(>|t|)    
## (Intercept)                           < 2e-16 ***
## DVCapacity \n to help                5.25e-08 ***
## DVPrior \n Agreement                 0.000169 ***
## DVOutcome \n Severity                1.21e-08 ***
## DVVictim's \n past help              0.000156 ***
## vignettecar                          0.208923    
## vignettegrad                         0.012751 *  
## vignettemed                          0.632553    
## vignetteswim                         0.876149    
## DVCapacity \n to help:vignettecar    0.190712    
## DVPrior \n Agreement:vignettecar     0.373285    
## DVOutcome \n Severity:vignettecar    0.420292    
## DVVictim's \n past help:vignettecar  0.475729    
## DVCapacity \n to help:vignettegrad   0.389522    
## DVPrior \n Agreement:vignettegrad    2.03e-05 ***
## DVOutcome \n Severity:vignettegrad   0.291937    
## DVVictim's \n past help:vignettegrad 0.112899    
## DVCapacity \n to help:vignettemed    0.000925 ***
## DVPrior \n Agreement:vignettemed     0.843047    
## DVOutcome \n Severity:vignettemed    0.000517 ***
## DVVictim's \n past help:vignettemed  0.902041    
## DVCapacity \n to help:vignetteswim   0.002839 ** 
## DVPrior \n Agreement:vignetteswim    0.002277 ** 
## DVOutcome \n Severity:vignetteswim   0.000223 ***
## DVVictim's \n past help:vignetteswim 0.179118    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

gjg_slider_long$DV <- relevel(gjg_slider_long$DV, ref = "Prior \n Agreement")
mod_obligation_fit2 <- lmer(resp ~ DV * vignette + (1 | Participant_ID), data = gjg_slider_long)
summary(mod_obligation_fit2)

## Linear mixed model fit by REML. t-tests use Satterthwaite's method [
## lmerModLmerTest]
## Formula: resp ~ DV * vignette + (1 | Participant_ID)
##    Data: gjg_slider_long
## 
## REML criterion at convergence: 9208.2
## 
## Scaled residuals: 
##     Min      1Q  Median      3Q     Max 
## -2.9291 -0.4972  0.1253  0.6317  2.8196 
## 
## Random effects:
##  Groups         Name        Variance Std.Dev.
##  Participant_ID (Intercept) 156.0    12.49   
##  Residual                   536.2    23.16   
## Number of obs: 1005, groups:  Participant_ID, 201
## 
## Fixed effects:
##                                      Estimate Std. Error       df t value
## (Intercept)                           63.1795     4.2128 814.5161  14.997
## DVMarried                             19.8205     5.2437 784.0000   3.780
## DVCapacity \n to help                 -9.0000     5.2437 784.0000  -1.716
## DVOutcome \n Severity                -10.3846     5.2437 784.0000  -1.980
## DVVictim's \n past help               -0.1026     5.2437 784.0000  -0.020
## vignettecar                           13.8443     5.8505 814.5161   2.366
## vignettegrad                          16.9231     5.9578 814.5161   2.840
## vignettemed                            4.3468     5.9969 814.5161   0.725
## vignetteswim                          21.2624     5.8176 814.5161   3.655
## DVMarried:vignettecar                 -6.4872     7.2820 784.0000  -0.891
## DVCapacity \n to help:vignettecar    -16.0238     7.2820 784.0000  -2.200
## DVOutcome \n Severity:vignettecar     -0.6154     7.2820 784.0000  -0.085
## DVVictim's \n past help:vignettecar  -11.6832     7.2820 784.0000  -1.604
## DVMarried:vignettegrad               -31.7949     7.4157 784.0000  -4.288
## DVCapacity \n to help:vignettegrad   -25.4103     7.4157 784.0000  -3.427
## DVOutcome \n Severity:vignettegrad   -23.9744     7.4157 784.0000  -3.233
## DVVictim's \n past help:vignettegrad -20.0256     7.4157 784.0000  -2.700
## DVMarried:vignettemed                 -1.4784     7.4643 784.0000  -0.198
## DVCapacity \n to help:vignettemed     23.3421     7.4643 784.0000   3.127
## DVOutcome \n Severity:vignettemed     24.5425     7.4643 784.0000   3.288
## DVVictim's \n past help:vignettemed   -2.3974     7.4643 784.0000  -0.321
## DVMarried:vignetteswim               -22.1694     7.2412 784.0000  -3.062
## DVCapacity \n to help:vignetteswim    -0.4884     7.2412 784.0000  -0.067
## DVOutcome \n Severity:vignetteswim     4.6869     7.2412 784.0000   0.647
## DVVictim's \n past help:vignetteswim -12.4323     7.2412 784.0000  -1.717
##                                      Pr(>|t|)    
## (Intercept)                           < 2e-16 ***
## DVMarried                            0.000169 ***
## DVCapacity \n to help                0.086492 .  
## DVOutcome \n Severity                0.048007 *  
## DVVictim's \n past help              0.984400    
## vignettecar                          0.018197 *  
## vignettegrad                         0.004617 ** 
## vignettemed                          0.468755    
## vignetteswim                         0.000274 ***
## DVMarried:vignettecar                0.373285    
## DVCapacity \n to help:vignettecar    0.028066 *  
## DVOutcome \n Severity:vignettecar    0.932675    
## DVVictim's \n past help:vignettecar  0.109034    
## DVMarried:vignettegrad               2.03e-05 ***
## DVCapacity \n to help:vignettegrad   0.000643 ***
## DVOutcome \n Severity:vignettegrad   0.001277 ** 
## DVVictim's \n past help:vignettegrad 0.007074 ** 
## DVMarried:vignettemed                0.843047    
## DVCapacity \n to help:vignettemed    0.001830 ** 
## DVOutcome \n Severity:vignettemed    0.001054 ** 
## DVVictim's \n past help:vignettemed  0.748154    
## DVMarried:vignetteswim               0.002277 ** 
## DVCapacity \n to help:vignetteswim   0.946246    
## DVOutcome \n Severity:vignetteswim   0.517651    
## DVVictim's \n past help:vignetteswim 0.086393 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1