ibution, in $",
    title = "Contribution by groups supportive of PIPA/SOPA",
    subtitle = "Movie and TV studios, record labels"
  )

ggplot(pipa, aes(x = stance, y = money_con)) +
  geom_boxplot() +
  labs(
    x = "Stance", y = "Contribution, in $",
    title = "Contribution by groups opposed to PIPA/SOPA",
    subtitle = "Computer and internet companies"
  )

pipa |&gt;
  filter(
    money_pro &gt; 0,
    money_con &gt; 0
  ) |&gt;
  mutate(for_pipa = ifelse(stance == "yes", "yes", "no")) |&gt;
  ggplo