• The National Hockey League Foreign Player Statistics

    • Kelsi Stewart

    Pittsburgh Penguins

    Findings

    Centers

    Code

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

    Code

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

    Left Wings

    Code

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

    Code

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

    Right Wings

    Code

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

    Code

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

    Defense

    Code

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

    Code

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