Results
##### Test Moderation and main effects (H1 and H2) for Mitigation####
mod1 <- lm(Mitigation~scale(Ideology.general, TRUE, scale = FALSE) * factor(Condition), data = df)
#summary(mod1)
mod1_tidy<-tidy(mod1)
kable(mod1_tidy)
| (Intercept) |
5.4912848 |
0.1172321 |
46.8411344 |
0.0000000 |
| scale(Ideology.general, TRUE, scale = FALSE) |
-0.1689850 |
0.0426517 |
-3.9619782 |
0.0001152 |
| factor(Condition)Control |
-0.0478298 |
0.1634936 |
-0.2925481 |
0.7702773 |
| scale(Ideology.general, TRUE, scale = FALSE):factor(Condition)Control |
0.0769502 |
0.0591047 |
1.3019312 |
0.1949626 |
##### Test Moderation and main effects (H1 and H2) for Adaptation####
mod2 <- lm(Adaptation~scale(Ideology.general, TRUE, scale = FALSE) * factor(Condition), data = df)
#summary(mod2)
mod2_tidy<-tidy(mod2)
kable(mod2_tidy)
| (Intercept) |
5.4498490 |
0.1246478 |
43.7219976 |
0.0000000 |
| scale(Ideology.general, TRUE, scale = FALSE) |
-0.1427946 |
0.0444228 |
-3.2144407 |
0.0016005 |
| factor(Condition)Control |
0.0228652 |
0.1774306 |
0.1288686 |
0.8976342 |
| scale(Ideology.general, TRUE, scale = FALSE):factor(Condition)Control |
0.1390724 |
0.0629187 |
2.2103526 |
0.0285951 |
# If interaction is significant
ggplot(df, aes(scale(Ideology.general, TRUE, FALSE), Adaptation, shape=factor(Condition), color=factor(Condition))) + stat_smooth(method=lm) + geom_point()
## Warning: Removed 5 rows containing non-finite values (stat_smooth).
## Warning: Removed 5 rows containing missing values (geom_point).
##### Test Moderation and main effects (H1 and H2) for Intention####
mod3 <- lm(Intention~scale(Ideology.general, TRUE, scale = FALSE) * factor(Condition), data = df)
#summary(mod3)
mod3_tidy<-tidy(mod3)
kable(mod3_tidy)
| (Intercept) |
4.5544692 |
0.1556636 |
29.258413 |
0.0000000 |
| scale(Ideology.general, TRUE, scale = FALSE) |
-0.3108198 |
0.0554285 |
-5.607582 |
0.0000001 |
| factor(Condition)Control |
-0.1161296 |
0.2176677 |
-0.533518 |
0.5945092 |
| scale(Ideology.general, TRUE, scale = FALSE):factor(Condition)Control |
0.1770626 |
0.0779464 |
2.271595 |
0.0246141 |
# If interaction is significant
ggplot(df, aes(scale(Ideology.general, TRUE, FALSE), Intention, shape=factor(Condition), color=factor(Condition))) + stat_smooth(method=lm) + geom_point()
## Warning: Removed 13 rows containing non-finite values (stat_smooth).
## Warning: Removed 13 rows containing missing values (geom_point).
