• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Carolina Hurricanes

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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