• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Nashville Predators

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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