• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Anaheim Ducks

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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

    [1] https://en.wikipedia.org/wiki/List_of_municipalities_in_North_Carolina

    [2] http://data.charlottenc.gov/datasets/census-foreign-born-population-tracts/data