• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    New Jersey Devils

    Findings

    Centers

    Code

    #Centers nhlNJDc - filter(nhl1, Team == "NJD", Position == "C") #C + plus/minus NJDpMc - ggplot(data=nhlNJDc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() NJDpMc NJDpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "New Jersey Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlNJDd - filter(nhl1, Team == "NJD", Position == "D") NJDpMd - ggplot(data=nhlNJDd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() NJDpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "New Jersey Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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