6.4 Histograms

load( "./data/aflsmall.Rdata" )
# install.packages("lsr")
library(lsr)
who()

##    -- Name --      -- Class --   -- Size --
##    afl.finalists   factor        400       
##    afl.margins     numeric       176       
##    Fibonacci       numeric       7         
##    slist           list          528       
##    Snow.deaths     data.frame    578 x 3   
##    Snow.streets    data.frame    1241 x 4

afl.margins[1:10]

##  [1] 56 31 56  8 32 14 36 56 19  1

afl.margins_df <- data.frame(afl.margins=afl.margins)


afl.margins_df%>%
  ggplot(aes(x=afl.margins))+
  geom_histogram(binwidth = 8,color="white",fill="steelblue")