Code from Day One

Code_DAY_ONE.R

cces20 %>% ct(gender)

## THIS IS A COMMENT 

cces20 %>% ct(race)


## HOW MANY 25 YEAR OLDS ####


cces20a <-  cces20 %>% 
  mutate(age = 2020 - birthyr) 

cces20 %>% 
  ct(sexuality, show_na = FALSE)


cces20 %>% 
  filter(race == 2) %>% 
  filter(sexuality != 1) %>% 
  ct(gender)


cces20 %>% 
  filter(race == 1 | race == 3) %>% 
  ct(gender)

cces20 %>% 
  filter(race == 3) %>% 
  mutate(age = 2020 - birthyr) %>% 
  filter(age < 35) %>% 
  ct(gender)


## COUNT THE GENDER OF HISPANIC PEOPLE UNDER THE AGE OF 35 ###


age <- cces20 %>%
  mutate(age = 2020 - birthyr) %>% 
  ct(age)
  

age %>% 
  ggplot(., aes(x = age, y = pct)) +
  geom_col(fill = "hotpink") +
  labs(x = "Age", y = "") 

## CREATE A BAR GRAPH OF RELIGIOUS ATTENDNACE FOR MEN ####

att <- cces20 %>% 
  filter(gender  ==1) %>% 
  filter(attend <= 6) %>% 
  mutate(attend = 7 - attend) %>% 
  ct(attend)


att %>% 
  ggplot(., aes(x = attend, y = pct)) +
  geom_col(fill = "hotpink", color= "black") +
  scale_y_continuous(labels = percent) +
  labs(caption = "DATA: CCES 2020") +
  theme_fivethirtyeight()



attm <- cces20 %>% 
  filter(gender  ==1) %>% 
  filter(attend <= 6) %>% 
  mutate(attend = 7 - attend) %>% 
  ct(attend) %>% 
  mutate(type = "Men")


attf <- cces20 %>% 
  filter(gender  ==2) %>% 
  filter(attend <= 6) %>% 
  mutate(attend = 7 - attend) %>% 
  ct(attend) %>% 
  mutate(type = "Women")

graph <- bind_rows(attm,attf)

graph %>% 
  ggplot(., aes(x = attend, y = pct, fill = type)) +
  geom_col(color= "black") +
  scale_y_continuous(labels = percent) +
  facet_wrap(~ type) +
  labs(caption = "DATA: CCES 2020") +
  theme_minimal() +
  theme(legend.position = "none")