• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Tamps Bay Lightning

    Findings

    Centers

    Code

    nhlTBLc - filter(nhl1, Team == "TBL", Position == "C") TBLpMc - ggplot(data=nhlTBLc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() TBLpMc TBLpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "Tampa Bay Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

    #Left Wing nhlTBLlw - filter(nhl1, Team == "TBL", Position == "LW") #lw + Plus/Minus TBLpMlw - ggplot(data=nhlTBLlw, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() TBLpMlw + labs(x = "Player") + labs(y = "+/-") + labs(title = "Tampa Bay Left Wing Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlTBLd - filter(nhl1, Team == "TBL", Position == "D") TBLpMd - ggplot(data=nhlTBLd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() TBLpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "Tampa Bay Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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