• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Los Angeles Kings

    Findings

    Centers

    Code

    #Centers nhlLAKc - filter(nhl1, Team == "LAK", Position == "C") #C + plus/minus LAKpMc - ggplot(data=nhlLAKc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() LAKpMc LAKpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "Los Angeles Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlLAKd - filter(nhl1, Team == "LAK", Position == "D") LAKpMd - ggplot(data=nhlLAKd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() LAKpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "Los Angeles Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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