Admission data file Example

admissions <- read_csv("admissions.csv")

Rows: 1647 Columns: 3
-- Column specification --------------------------------------------------------
Delimiter: ","
chr (3): program, sex, decision

i Use `spec()` to retrieve the full column specification for this data.
i Specify the column types or set `show_col_types = FALSE` to quiet this message.

admissions %>% 
  count(program, sex, decision) %>%
  summarise(count = n) -> Numbers
Numbers

# A tibble: 8 x 1
  count
  <int>
1    89
2    19
3   511
4   314
5    24
6   317
7    22
8   351

admissions%>%
  count(sex) %>% 
  summarize(count = n) -> gender

# gendermale <- admission$sex == "male"
# genderfemale <- filter(admissions, sex =="female")
# 
#  

# ggplot(admissions, x = gender , y  = gender)+
#   geom_boxplot(admissions)

ggplot(admissions, aes(x = program, fill = decision))+ 
  geom_bar(position = "dodge")+
  facet_grid(~sex)

ggsave("admissiondata.png")

Saving 7 x 5 in image