• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    New York Rangers

    Findings

    Centers

    Code

    nhlNYRc - filter(nhl1, Team == "NYR", Position == "C") NYRpMc - ggplot(data=nhlNYRc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() NYRpMc NYRpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "New York Rangers Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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