• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Columbus Blue Jackets

    Findings

    Centers

    Code

    nhlCBJc -> filter(nhl1, Team == "CBJ", Position == "C") CBJpMc -> ggplot(data=nhlCBJc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() CBJpMc CBJpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "Columbus Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

    CBJpoiC -> ggplot(data=nhlCBJc, mapping = aes(x = Last , y = Points, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() CBJpoiC CBJpoiC + labs(x = "Player") + labs(y = "Goals and Total Assists") + labs(title = "Columbus Centers Points") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Left Wings

    Code

    nhlCBJlw -> filter(nhl1, Team == "CBJ", Position == "LW") #lw + Plus/Minus CBJpMlw -> ggplot(data=nhlCBJlw, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() CBJpMlw + labs(x = "Player") + labs(y = "+/-") + labs(title = "Columbus Left Wing Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlCBJd -> filter(nhl1, Team == "CBJ", Position == "D") CBJpMd -> ggplot(data=nhlCBJd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() CBJpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "Columbus Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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