• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    San Jose Sharks

    Findings

    Centers

    Code

    nhlSJSc - filter(nhl1, Team == "SJS", Position == "C") SJSpMc - ggplot(data=nhlSJSc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() SJSpMc SJSpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "San Jose Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlSJSd - filter(nhl1, Team == "SJS", Position == "D") SJSpMd - ggplot(data=nhlSJSd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() SJSpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "San Jose Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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