• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Florida Panthers

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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