Pretest Data

Condition 2: Free Speech Infringement

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.00    1.00    2.00    2.25    3.00    5.00 

Mean 2.25, skews masculine

Strong / Weak evaluation

Weak associated with feminine stereotypes, strong with masculine

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   1.00    2.00    3.00    2.75    4.00    5.00 

Mean 2.75, skews somewhat masculine

Inspiring / Uninspiring evaluation

Uninspiring associated with feminine stereotypes, inspiring with masculine

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

Mean 3.35, skews somewhat feminine

Dishonest / Honest evaluation

Dishonest associated with masculine stereotypes, honest with feminine

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

Mean scores 3.35, skews somewhat feminine

Harsh / Compassionate evaluation

Harsh associated with masculine stereotypes, compassionate with feminine

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

Mean scores 2.78, skews somewhat masculine

Against equality / For equality

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

Mean 2.6, skews slightly masculine

Party Identification

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  1.000   2.750   3.500   3.324   4.000   5.000 

Democrat party identification

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
    1.0     3.0     4.0     3.5     5.0     5.0 

Republican party identification

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   1.00    2.00    3.00    3.08    4.00    5.00 

Difference in means T test

filtered_data_no_independents <- pretest_data |> 
  filter(Condition.number == 2) |> #filter for condition 2
  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 = -0.93203, df = 29.713, p-value = 0.3588
alternative hypothesis: true difference in means between group -1 and group 1 is not equal to 0
95 percent confidence interval:
 -1.3406801  0.5006801
sample estimates:
mean in group -1  mean in group 1 
            3.08             3.50 

No statistically significant difference in means