• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Colorado Avalanche

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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