##Extra coding ideas


#Pull up information about histogram fucntion
?hist()

#Add color and border color to bars
h <- hist(NYBG_SP2$year,
          main = "Alliaria petiolata abundance over time",
          xlab = "Collection Year",
          xlim = c(1860,2020),
          ylim = c(0, 21),
          breaks = 15,
          col = "green",
          border = "blue")

##Add year labels to x-axis
h <- hist(NYBG_SP2$year,
          main = "Alliaria petiolata abundance over time",
          xlab = "Collection Year",
          xlim = c(1860,2020),
          ylim = c(0, 21),
          breaks = 15)
          
newstring = c(1870, 1880, 1890, 1900, 1910, 1920, 1930, 1940, 1950, 1960, 1970, 1980, 1990, 2000, 2010)
#Pull up information about text fucntion
?text()

text(h$mids, -1, labels = newstring, cex = 0.75)