#eagledata #import eagleData.xlxs #plotting library library(ggplot2) #Eagle # vs. Year #scatter with regression line. ggplot(data=eagleData, aes(x=eagleData$Year, y=eagleData$`Peak Eagle Number`)) + geom_point()+ labs(x="Year", y = "Peak Eagle Number")+ geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) #lines connecting points w/regression line p1=ggplot(data=eagleData, aes(x=eagleData$Year, y=eagleData$`Peak Eagle Number`)) + geom_point()+ geom_line()+ geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) + labs(x="Year", y = "Peak Eagle Number") p1 reg1=lm(eagleData$`Peak Eagle Number`~ eagleData$Year, data=eagleData) summary(reg1) #Eagle # vs. avg dec temp line graph ggplot(data=eagleData, aes(x=eagleData$Year, y=eagleData$`Avg Dec Temp C`)) + geom_line()+ geom_point()+ labs(x="Year", y = "Average December Temp (C)") #scatter ggplot(data=eagleData, aes(x=eagleData$Year, y=eagleData$`Avg Dec Temp C`)) + geom_point()+ labs(x="Year", y = "Average December Temp (C)") #regression eagle # vs. temp eaglesVStemp = lm(eagleData$`Peak Eagle Number` ~ eagleData$`Avg Dec Temp C`) summary(eaglesVStemp) #Eagles vs. Salmon ggplot(data=eagleData, aes(x=eagleData$Year, y=eagleData$`Salmon Number`)) + geom_line()+ geom_point()+ scale_y_continuous(labels = scales::comma)+ labs(x="Year", y = "Number of Salmon") eaglesVSsalmon = lm(eagleData$`Peak Eagle Number` ~ eagleData$`Salmon Number`) summary(eaglesVSsalmon)