• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Vegas Golden Knights

    Findings

    Centers

    Code

    nhlVGKc - filter(nhl1, Team == "VGK", Position == "C") VGKpMc - ggplot(data=nhlVGKc, mapping = aes(x = Last, y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() VGKpMc VGKpMc + labs(x = "Player") + labs(y = "+/-") + labs(title = "Las Vegas Centers Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

    nhlVGKd - filter(nhl1, Team == "VGK", Position == "D") VGKpMd - ggplot(data=nhlVGKd, mapping = aes(x = Last , y = PlusMinus, fill = Nat, color = Nat)) + geom_bar(stat = "identity") + coord_flip() VGKpMd + labs(x = "Player") + labs(y = "+/-") + labs(title = "Las Vegas Defense Plus/Minus") + labs(fill = "Nationality")+ labs(color = "Nationality")

    Code

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