• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    New York Islanders

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

    #Left Wing nhlNYIlw - filter(nhl1, Team == "NYI", Position == "LW") #lw + Plus/Minus NYIpMlw - ggplot(data=nhlNYIlw, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() NYIpMlw + labs(x = "Player") + labs(y = "+/-") + labs(title = "New York Islanders Left Wing Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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