• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Minnesota Wild

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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