• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    St. Louis Blues

    Findings

    Centers

    Code

    nhlSTLc - filter(nhl1, Team == "STL", Position == "C") STLpMc - ggplot(data=nhlSTLc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() STLpMc STLpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "St Louis Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlSTLd - filter(nhl1, Team == "STL", Position == "D") STLpMd - ggplot(data=nhlSTLd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() STLpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "St Louis Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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