• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Washington Capitals

    Findings

    Centers

    Code

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

    Code

    #C + Points (Goals and Total Assists) WSHpoiC - ggplot(data=nhlWSHc, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() WSHpoiC WSHpoiC + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Washington Centers Points") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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