Calculating police shootings' gender percentage with guns

group2_question_1.Rmd

# create dataframe of all shootings by gender

all_police_shootings_by_gender <- fatal_police_shootings %>%
  group_by(gender) %>%
  summarise(count=n()) %>%
  arrange(desc(count))

# create separate dataframes for each gender
all_shootings_men <- all_police_shootings_by_gender %>% 
  filter(gender == 'M')

all_shootings_women <- all_police_shootings_by_gender %>% 
  filter(gender == 'F')

# create dataframe of all shootings by gender where victim has gun
gun_police_shootings_by_gender <- fatal_police_shootings %>%
  filter(armed_clean == "gun") %>%
  group_by(gender) %>%
  summarise(count=n()) %>%
  arrange(desc(count))
  
# create separate dataframes for each gender

all_shootings_men_with_gun <- gun_police_shootings_by_gender %>% 
  filter(gender == 'M')

all_shootings_women_with_gun <- gun_police_shootings_by_gender %>% 
  filter(gender == 'F')

# calculate percentages for both using the count column - I'll leave that to you.