ggplot(data) +
  aes(x = praise_rejection, y = vignette_response, color = condition) +
  ggtitle("altruism x rejection avoidance by social norms") +
  labs(x="Rejection Avoidance", y="Altruism") +
  geom_point(color = "grey") +
  geom_smooth(method = "lm")

ggplot(data) +
  aes(x = praise_rejection, y = vignette_response, color = condition) +
  ggtitle("altruism x rejection avoidance by social norms") +
  labs(x="Rejection Avoidance", y="Altruism") +
  geom_point(color = "grey") +
  geom_smooth(method = "lm")+
  facet_wrap(~age_bracket)