Color exercise

Author

Schwab

Let’s play around with some colors.

library(openintro)
library(tidyverse)
library(RColorBrewer)
library(ggthemes)

Here’s the presidents data set. Let’s play with themes. Add theme_bw(), theme_economist(), theme_dark(), theme_classic()

president |>
  ggplot(aes(x=start, y =end, color = party) )+
  geom_point()+
  theme_bw()
Warning: Removed 1 rows containing missing values (geom_point).

display.brewer.all()

That’s alittle hard to see in the .rmd. Here are the color brewer choices

Add scale_fill_brewer

president |>
  ggplot(aes( x = party,fill=party) )+
  geom_bar()+
  scale_fill_brewer(palette = "Purples") +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))

Does color add anything to the graph above?

Let’s make a count plot of assortative mating. Notice we are adding a shape aesthetic.

assortative_mating |>
  ggplot(aes(x = self_male, y= partner_female, fill=self_male),)+
  geom_count(aes(color = partner_female), shape=23,stroke=1.5)  + 
  scale_fill_manual(values = c("blue","brown","green")) +
  scale_color_manual(values =  c("blue","brown","green")) +
  theme_bw()

How do you feel about color in the above graph?

Try this:

cpr 
# A tibble: 90 × 2
   group   outcome 
   <fct>   <fct>   
 1 control survived
 2 control survived
 3 control survived
 4 control survived
 5 control survived
 6 control survived
 7 control survived
 8 control survived
 9 control survived
10 control survived
# … with 80 more rows

Copy most of the chunk you made above.