• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Buffalo Sabres

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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