Kelsi Stewart
Chicago Blackhawks
Findings
Centers
Code
nhlCHIc -> filter(nhl1, Team == "CHI", Position == "C")
CHIpMc -> ggplot(data=nhlCHIc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpMc
CHIpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "Chicago Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")
Code
CHIpoiC - ggplot(data=nhlCHIc, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpoiC
CHIpoiC + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Chicago Centers Points") + labs(fill = "Nationality")+ labs(color = "Nationality")
Left Wings
Code
nhlCHIlw - filter(nhl1, Team == "CHI", Position == "LW")
CHIpMlw - ggplot(data=nhlCHIlw, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpMlw + labs(x = "Player") + labs(y = "+/-") + labs(title = "Chicago Left Wing Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")
Code
CHIpoilw - ggplot(data=nhlCHIlw, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpoilw
CHIpoilw + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Chicago Left Wing Points") + labs(fill = "Nationality")+ labs(color = "Nationality")
Right Wings
Code
#Right Wing
nhlCHIrw - filter(nhl1, Team == "CHI", Position == "RW")
#RW + Plus/Minus
CHIpMrw - ggplot(data=nhlCHIrw, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpMrw + labs(x = "Player") + labs(y = "+/-") + labs(title = "Chicago Right Wing Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")
Code
CHIpoirw - ggplot(data=nhlCHIrw, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpoirw
CHIpoirw + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Chicago Right Wing Points") + labs(fill = "Nationality")+ labs(color = "Nationality")
Defense
Code
nhlCHId - filter(nhl1, Team == "CHI", Position == "D")
CHIpMd - ggplot(data=nhlCHId, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "Chicago Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")
Code
CHIpoiD - ggplot(data=nhlCHId, mapping = aes(x = Last , y = Dpoint, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip()
CHIpoiD
CHIpoiD + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Chicago Defensive Points") + labs(fill = "Nationality")+ labs(color = "Nationality")