Pretest Data

Condition 5: Judicial Independence - Overruling

Decisive / Indecisive evaluation

Indecisive associated with feminine stereotypes, decisive with masculine

Warning: The dot-dot notation (`..count..`) was deprecated in ggplot2 3.4.0.
ℹ Please use `after_stat(count)` instead.

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   1.000   2.000   2.262   3.000   5.000 

Mean 2.3, skews masculine

Strong / Weak evaluation

Weak associated with feminine stereotypes, strong with masculine

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   2.000   3.000   3.077   4.000   5.000 

Mean 3.1, somewhat feminine

Inspiring / Uninspiring evaluation

Uninspiring associated with feminine stereotypes, inspiring with masculine

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  2.000   3.000   4.000   3.538   4.000   5.000 

Mean 3.5, skews feminine

Dishonest / Honest evaluation

Dishonest associated with masculine stereotypes, honest with feminine

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   1.000   2.000   2.215   3.000   5.000 

Mean scores 2.2, masculine

Harsh / Compassionate evaluation

Harsh associated with masculine stereotypes, compassionate with feminine

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      1       1       2       2       3       5 

Mean scores 2, skews very masculine

Against equality / For equality

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   1.000   2.000   2.185   3.000   5.000 

Mean 2.1, skews very masculine

Party Identification

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   3.000   4.000   3.446   4.000   5.000 

Democrat party identification

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   4.000   4.000   4.043   5.000   5.000 

Republican party identification

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   1.500   3.000   2.895   4.000   5.000 

Difference in means T test

filtered_data_no_independents <- pretest_data |> 
  filter(Condition.number == 5) |> #filter for condition 5
  filter(partyid != 0) #filter out independents

#print t test
t.test(perceived.party ~ partyid, data = filtered_data_no_independents)

    Welch Two Sample t-test

data:  perceived.party by partyid
t = -2.7879, df = 35.976, p-value = 0.008421
alternative hypothesis: true difference in means between group -1 and group 1 is not equal to 0
95 percent confidence interval:
 -1.9844215 -0.3130614
sample estimates:
mean in group -1  mean in group 1 
        2.894737         4.043478 

Statistically significant difference in means