• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Philadelphia Flyers

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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