• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Arizona Coyotes

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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