• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Boston Bruins

    Findings

    Centers

    Code

    nhlBOSc -> filter(nhl1, Team == "BOS", Position == "C") BOSpMc -> ggplot(data=nhlBOSc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpMc BOSpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "Boston Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

    BOSpoiC -> ggplot(data=nhlBOSc, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpoiC BOSpoiC + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Boston Centers Points") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Left Wings

    Code

    nhlBOSlw -> filter(nhl1, Team == "BOS", Position == "LW") BOSpMlw -> ggplot(data=nhlBOSlw, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpMlw + labs(x = "Player") + labs(y = "+/-") + labs(title = "Boston Left Wing Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

    BOSpoilw -> ggplot(data=nhlBOSlw, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpoilw BOSpoilw + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Boston Left Wing Points") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Right Wings

    Code

    nhlBOSrw -> filter(nhl1, Team == "BOS", Position == "RW") BOSpMrw -> ggplot(data=nhlBOSrw, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpMrw + labs(x = "Player") + labs(y = "+/-") + labs(title = "Boston Right Wing Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

    BOSpoirw -> ggplot(data=nhlBOSrw, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpoirw BOSpoirw + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Boston Right Wing Points") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Defense

    Code

    nhlBOSd -> filter(nhl1, Team == "BOS", Position == "D") BOSpMd -> ggplot(data=nhlBOSd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "Boston Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

    BOSpoiD -> ggplot(data=nhlBOSd, mapping = aes(x = Last , y = Dpoint, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() BOSpoiD BOSpoiD + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Boston Defensive Points") + labs(fill = "Nationality")+ labs(color = "Nationality")