6.8 Bar Graphs

?tabulate()

freq <- tabulate( afl.finalists )
freq

##  [1] 26 25 26 28 32  0  6 39 27 28 28 17  6 24 26 38 24

afl.finalists_df <- data.frame(afl.finalists)

afl.finalists_df %>% count(afl.finalists)

##       afl.finalists  n
## 1          Adelaide 26
## 2          Brisbane 25
## 3           Carlton 26
## 4       Collingwood 28
## 5          Essendon 32
## 6         Fremantle  6
## 7           Geelong 39
## 8          Hawthorn 27
## 9         Melbourne 28
## 10  North Melbourne 28
## 11    Port Adelaide 17
## 12         Richmond  6
## 13         St Kilda 24
## 14           Sydney 26
## 15       West Coast 38
## 16 Western Bulldogs 24

afl.finalists_df %>%
  count(afl.finalists) %>%
  ggplot(aes(x=afl.finalists,y=n))+
  geom_col()+
  theme(axis.text.x = element_text(angle = 45))

afl.finalists_df %>%
  count(afl.finalists) %>%
  ggplot(aes(y=fct_reorder(afl.finalists,n),x=n))+
  geom_col()+
  labs(y="afl.finalists")