• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Anaheim Ducks

    Findings

    Centers

    Code

    nhlDETc - filter(nhl1, Team == "DET", Position == "C") DETpMc - ggplot(data=nhlDETc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() DETpMc DETpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "Detroit Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlDETd - filter(nhl1, Team == "DET", Position == "D") DETpMd - ggplot(data=nhlDETd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() DETpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "Detroit Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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