library(dplyr)
##
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(ggplot2)
# Cargamos el dataset desde un archivo remoto
url <- "https://raw.githubusercontent.com/Suiralexis/QM206-2024S/refs/heads/main/Jugadores.csv"
jugadores <- read.csv(url)
# Mostrar las primeras filas
jugadores
## Year Coach Team W.L Playoffs.W.L
## 1 2020 Nick Nurse Toronto Raptors 53-19 4-0
## 2 2019 Mike Budenholzer Milwaukee Bucks 60-22 10-5
## 3 2018 Dwane Casey Toronto Raptors 59-23 4-6
## 4 2017 Mike D'Antoni Houston Rockets 55-27 6-5
## 5 2016 Steve Kerr Golden State Warriors 73-9 15-9
## 6 2015 Mike Budenholzer Atlanta Hawks 60-22 8-8
## 7 2014 Gregg Popovich San Antonio Spurs 62-20 16-7
## 8 2013 George Karl Denver Nuggets 57-25 2-4
## 9 2012 Gregg Popovich San Antonio Spurs 50-16 10-4
## 10 2011 Tom Thibodeau Chicago Bulls 62-20 9-7
## 11 2010 Scott Brooks Oklahoma City Thunder 50-32 2-4
## 12 2009 Mike Brown Cleveland Cavaliers 66-16 10-4
## 13 2008 Byron Scott New Orleans Hornets 56-26 7-5
## 14 2007 Sam Mitchell Toronto Raptors 47-35 2-4
## 15 2006 Avery Johnson Dallas Mavericks 60-22 14-9
## 16 2005 Mike D'Antoni Phoenix Suns 62-20 9-6
## 17 2004 Hubie Brown Memphis Grizzlies 50-32 0-4
## 18 2003 Hubie Brown Memphis Grizzlies 28-41
## 19 NA Gregg Popovich San Antonio Spurs 60-22 16-8
## 20 2002 Rick Carlisle Detroit Pistons 50-32 4-6
## 21 2001 Larry Brown Philadelphia 76ers 56-26 12-11
## 22 2000 Doc Rivers Orlando Magic 41-41
## 23 1999 Mike Dunleavy Portland Trail Blazers 35-15 7-6
## 24 1998 Larry Bird Indiana Pacers 58-24 10-6
## 25 1997 Pat Riley Miami Heat 61-21 8-9
## 26 1996 Phil Jackson Chicago Bulls 72-10 15-3
## 27 1995 Del Harris Los Angeles Lakers 42-40
## 28 1994 Lenny Wilkens Atlanta Hawks 57-25 5-6
## 29 1993 Pat Riley New York Knicks 60-22 9-6
## 30 1992 Don Nelson Golden State Warriors 55-27 1-3
## 31 1991 Don Chaney Houston Rockets 52-30 0-3
## 32 1990 Pat Riley Los Angeles Lakers 63-19 4-5
## 33 1989 Cotton Fitzsimmons Phoenix Suns 55-27
## 34 1988 Doug Moe Denver Nuggets 54-28 5-6
## 35 1987 Mike Schuler Portland Trail Blazers 49-23
## 36 1986 Mike Fratello Atlanta Hawks 50-32 4-5
## 37 1985 Don Nelson Milwaukee Bucks 59-23 3-5
## 38 1984 Frank Layden Utah Jazz 45-37
## 39 1983 Don Nelson Milwaukee Bucks 51-31 5-4
## 40 1982 Eugene Shue Washington Bullets 43-39
## 41 1981 Jack McKinney Indiana Pacers 44-38
## 42 1980 Bill Fitch Boston Celtics 61-21
## 43 1979 Cotton Fitzsimmons Kansas City Kings 48-34
## 44 1978 Hubie Brown Atlanta Hawks 41-41 0-2
## 45 1977 Tom Nissalke Houston Rockets 49-33
## 46 1976 Bill Fitch Cleveland Cavaliers 49-33
## 47 1975 Phil Johnson Kansas City-Omaha Kings 44-38
## 48 1974 Ray Scott Detroit Pistons 52-30
## 49 1973 Thomas Heinsohn Boston Celtics 68-14
## 50 1972 Bill Sharman Los Angeles Lakers 69-13
## 51 1971 Dick Motta Chicago Bulls 51-31
## 52 1970 Red Holzman New York Knicks 60-22
## 53 1969 Eugene Shue Baltimore Bullets 57-25
## 54 1968 Richard Guerin St. Louis Hawks 56-26
## 55 1967 John Kerr Chicago Bulls 33-48
## 56 1966 Adolph Schayes Philadelphia 76ers 55-25
## 57 1965 Red Auerbach Boston Celtics 62-18 8-4
## 58 1964 Alexander Hannum San Francisco Warriors 48-32
## 59 1963 Harry Gallatin St. Louis Hawks 48-32
## Career.W.L Exp..Years. W L Playoffs.W Playoffs.L Career.W Career.L
## 1 114-45 1 53 19 4 0 114 45
## 2 329-236 6 60 22 10 5 329 236
## 3 434-394 10 59 23 4 6 434 394
## 4 672-527 15 55 27 6 5 672 527
## 5 337-138 5 73 9 15 9 337 138
## 6 329-236 6 60 22 8 8 329 236
## 7 1277-614 23 62 20 16 7 1277 614
## 8 1175-824 27 57 25 2 4 1175 824
## 9 1277-614 23 50 16 10 4 1277 614
## 10 352-246 8 62 20 9 7 352 246
## 11 487-376 10 50 32 2 4 487 376
## 12 356-224 0 66 16 10 4 356 224
## 13 454-647 15 56 26 7 5 454 647
## 14 185-243 7 47 35 2 4 185 243
## 15 254-186 6 60 22 14 9 254 186
## 16 672-527 15 62 20 9 6 672 527
## 17 424-489 13 50 32 0 4 424 489
## 18 424-489 13 28 41 NA NA 424 489
## 19 1277-614 23 60 22 16 8 1277 614
## 20 794-659 17 50 32 4 6 794 659
## 21 1098-904 0 56 26 12 11 1098 904
## 22 943-681 20 41 41 NA NA 943 681
## 23 613-716 17 35 15 7 6 613 716
## 24 147-67 0 58 24 10 6 147 67
## 25 1246-688 0 61 21 8 9 1246 688
## 26 1155-485 0 72 10 15 3 1155 485
## 27 550-463 14 42 40 NA NA 550 463
## 28 1296-1109 32 57 25 5 6 1296 1109
## 29 1246-688 0 60 22 9 6 1246 688
## 30 1335-1063 31 55 27 1 3 1335 1063
## 31 337-494 12 52 30 0 3 337 494
## 32 1246-688 0 63 19 4 5 1246 688
## 33 692-593 21 55 27 NA NA 692 593
## 34 628-529 15 54 28 5 6 628 529
## 35 179-149 6 49 23 NA NA 179 149
## 36 667-548 17 50 32 4 5 667 548
## 37 1335-1063 31 59 23 3 5 1335 1063
## 38 277-294 8 45 37 NA NA 277 294
## 39 1335-1063 31 51 31 5 4 1335 1063
## 40 625-718 22 43 39 NA NA 625 718
## 41 136-215 6 44 38 NA NA 136 215
## 42 944-1106 25 61 21 NA NA 944 1106
## 43 692-593 21 48 34 NA NA 692 593
## 44 424-489 13 41 41 0 2 424 489
## 45 248-391 9 49 33 NA NA 248 391
## 46 944-1106 25 49 33 NA NA 944 1106
## 47 236-306 9 44 38 NA NA 236 306
## 48 147-134 4 52 30 NA NA 147 134
## 49 393-215 9 68 14 NA NA 393 215
## 50 246-164 7 69 13 NA NA 246 164
## 51 863-925 25 51 31 NA NA 863 925
## 52 471-417 18 60 22 NA NA 471 417
## 53 625-718 22 57 25 NA NA 625 718
## 54 72-92 8 56 26 NA NA 72 92
## 55 4 33 48 NA NA NA NA
## 56 22-61 5 55 25 NA NA 22 61
## 57 17 62 18 8 4 NA NA
## 58 40-42 12 48 32 NA NA 40 42
## 59 5 48 32 NA NA NA NA
## Born Birthplace College
## 1 July 24, 1967 Carroll, IA
## 2 August 6, 1969 Holbrook, AZ
## 3 April 17, 1957 Indianapolis, IN
## 4 May 8, 1951 Mullens, WV
## 5 September 27, 1965 -- University of Arizona
## 6 August 6, 1969 Holbrook, AZ
## 7 January 28, 1949 East Chicago, IN
## 8 May 12, 1951 Penn Hills, PA
## 9 January 28, 1949 East Chicago, IN
## 10 -- --
## 11 July 31, 1965 French Camp, CA University of California at Irvine
## 12 March 5, 1970 Newark, NJ George Washington University
## 13 March 28, 1961 Ogden, UT Arizona State University
## 14 September 2, 1963 Columbus, GA Mercer University
## 15 March 25, 1965 New Orleans, LA Southern University & A&M
## 16 May 8, 1951 Mullens, WV
## 17 -- --
## 18 -- --
## 19 January 28, 1949 East Chicago, IN
## 20 October 27, 1959 Ogdensburg, NY
## 21 -- --
## 22 October 13, 1961 Maywood, IL Marquette University
## 23 September 15, 1980 Fort Worth, TX Duke University
## 24 December 7, 1956 --
## 25 March 20, 1945 Rome, NY
## 26 September 17, 1945 Deer Lodge, MT
## 27 -- --
## 28 October 28, 1937 Brooklyn, NY Providence College
## 29 March 20, 1945 Rome, NY
## 30 May 15, 1940 Muskegon, MI
## 31 March 22, 1946 Baton Rouge, LA
## 32 March 20, 1945 Rome, NY
## 33 -- --
## 34 -- --
## 35 -- --
## 36 -- --
## 37 May 15, 1940 Muskegon, MI
## 38 -- --
## 39 May 15, 1940 Muskegon, MI
## 40 December 18, 1931 Baltimore, MD
## 41 -- --
## 42 -- --
## 43 -- --
## 44 -- --
## 45 -- --
## 46 -- --
## 47 -- --
## 48 July 12, 1938 Philadelphia, PA
## 49 August 26, 1934 Union City, NJ
## 50 May 25, 1926 Abilene, TX University of Southern California
## 51 -- --
## 52 August 10, 1920 Brooklyn, NY
## 53 December 18, 1931 Baltimore, MD
## 54 May 29, 1932 New York, NY
## 55 August 17, 1932 Chicago, IL
## 56 May 19, 1928 New York, NY
## 57 -- --
## 58 July 19, 1923 Los Angeles, CA
## 59 April 26, 1927 Roxana, IL
## Overall.Record
## 1 114 - 45
## 2 329 - 236
## 3 434 - 394
## 4 672 - 527
## 5 337 - 138
## 6 329 - 236
## 7 1277 - 614
## 8 1175 - 824
## 9 1277 - 614
## 10 352 - 246
## 11 487 - 376
## 12 356 - 224
## 13 454 - 647
## 14 185 - 243
## 15 254 - 186
## 16 672 - 527
## 17 424 - 489
## 18 424 - 489
## 19 1277 - 614
## 20 794 - 659
## 21 1098 - 904
## 22 943 - 681
## 23 613 - 716
## 24 147 - 67
## 25 1246 - 688
## 26 1155 - 485
## 27 550 - 463
## 28 1296 - 1109
## 29 1246 - 688
## 30 1335 - 1063
## 31 337 - 494
## 32 1246 - 688
## 33 692 - 593
## 34 628 - 529
## 35 179 - 149
## 36 667 - 548
## 37 1335 - 1063
## 38 277 - 294
## 39 1335 - 1063
## 40 625 - 718
## 41 136 - 215
## 42 944 - 1106
## 43 692 - 593
## 44 424 - 489
## 45 248 - 391
## 46 944 - 1106
## 47 236 - 306
## 48 147 - 134
## 49 393 - 215
## 50 246 - 164
## 51 863 - 925
## 52 471 - 417
## 53 625 - 718
## 54 72 - 92
## 55 0 - 0
## 56 22 - 61
## 57 0 - 0
## 58 40 - 42
## 59 0 - 0
# Cambiamos los nombres de columnas
colnames(jugadores) <- gsub("\\.", "_", colnames(jugadores))
colnames(jugadores)
## [1] "Year" "Coach" "Team" "W_L"
## [5] "Playoffs_W_L" "Career_W_L" "Exp__Years_" "W"
## [9] "L" "Playoffs_W" "Playoffs_L" "Career_W"
## [13] "Career_L" "Born" "Birthplace" "College"
## [17] "Overall_Record"
# Filtrar datos donde el entrenador pertenece a un equipo específico (ejemplo: "Boston Celtics")
df <- jugadores %>% filter(Team == "Boston Celtics")
# Mostrar las primeras filas del dataframe filtrado
head(df)
## Year Coach Team W_L Playoffs_W_L Career_W_L Exp__Years_
## 1 1980 Bill Fitch Boston Celtics 61-21 944-1106 25
## 2 1973 Thomas Heinsohn Boston Celtics 68-14 393-215 9
## 3 1965 Red Auerbach Boston Celtics 62-18 8-4 17
## W L Playoffs_W Playoffs_L Career_W Career_L Born Birthplace
## 1 61 21 NA NA 944 1106 -- --
## 2 68 14 NA NA 393 215 August 26, 1934 Union City, NJ
## 3 62 18 8 4 NA NA -- --
## College Overall_Record
## 1 944 - 1106
## 2 393 - 215
## 3 0 - 0
# Nueva columna con el promedio entre victorias y derrotas de playoffs
jugadores <- jugadores %>%
mutate(playoff_avg = (Playoffs_W + Playoffs_L) / 2)
# Mostrar las primeras filas del dataframe actualizado
head(jugadores)
## Year Coach Team W_L Playoffs_W_L Career_W_L
## 1 2020 Nick Nurse Toronto Raptors 53-19 4-0 114-45
## 2 2019 Mike Budenholzer Milwaukee Bucks 60-22 10-5 329-236
## 3 2018 Dwane Casey Toronto Raptors 59-23 4-6 434-394
## 4 2017 Mike D'Antoni Houston Rockets 55-27 6-5 672-527
## 5 2016 Steve Kerr Golden State Warriors 73-9 15-9 337-138
## 6 2015 Mike Budenholzer Atlanta Hawks 60-22 8-8 329-236
## Exp__Years_ W L Playoffs_W Playoffs_L Career_W Career_L Born
## 1 1 53 19 4 0 114 45 July 24, 1967
## 2 6 60 22 10 5 329 236 August 6, 1969
## 3 10 59 23 4 6 434 394 April 17, 1957
## 4 15 55 27 6 5 672 527 May 8, 1951
## 5 5 73 9 15 9 337 138 September 27, 1965
## 6 6 60 22 8 8 329 236 August 6, 1969
## Birthplace College Overall_Record playoff_avg
## 1 Carroll, IA 114 - 45 2.0
## 2 Holbrook, AZ 329 - 236 7.5
## 3 Indianapolis, IN 434 - 394 5.0
## 4 Mullens, WV 672 - 527 5.5
## 5 -- University of Arizona 337 - 138 12.0
## 6 Holbrook, AZ 329 - 236 8.0
# Agrupar por equipo y calcular estadísticas resumidas
stats_equipo <- jugadores %>%
group_by(Team) %>%
summarize(
mean_playoffs_w = mean(Playoffs_W, na.rm = TRUE),
sd_playoffs_w = sd(Playoffs_W, na.rm = TRUE),
mean_playoffs_l = mean(Playoffs_L, na.rm = TRUE),
sd_playoffs_l = sd(Playoffs_L, na.rm = TRUE)
)
# Mostrar las estadísticas calculadas
stats_equipo
## # A tibble: 30 × 5
## Team mean_playoffs_w sd_playoffs_w mean_playoffs_l sd_playoffs_l
## <chr> <dbl> <dbl> <dbl> <dbl>
## 1 Atlanta Hawks 4.25 3.30 5.25 2.5
## 2 Baltimore Bullets NaN NA NaN NA
## 3 Boston Celtics 8 NA 4 NA
## 4 Chicago Bulls 12 4.24 5 2.83
## 5 Cleveland Cavali… 10 NA 4 NA
## 6 Dallas Mavericks 14 NA 9 NA
## 7 Denver Nuggets 3.5 2.12 5 1.41
## 8 Detroit Pistons 4 NA 6 NA
## 9 Golden State War… 8 9.90 6 4.24
## 10 Houston Rockets 3 4.24 4 1.41
## # ℹ 20 more rows
# Gráfico de dispersión: Relación entre "W" y "L"
plot(
jugadores$W, jugadores$L,
col = ifelse(jugadores$Playoffs_W > 5, "red", "blue"),
main = "Relación entre victorias y derrotas",
xlab = "Victorias",
ylab = "Derrotas"
)
# Agregar una línea de regresión
modelo <- lm(L ~ W, data = jugadores)
abline(modelo, col = "green")
# Mostrar el resumen del modelo de regresión
summary(modelo)
##
## Call:
## lm(formula = L ~ W, data = jugadores)
##
## Residuals:
## Min 1Q Median 3Q Max
## -26.1780 -0.3553 0.7886 2.3902 5.2796
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 68.17038 3.76839 18.09 < 2e-16 ***
## W -0.77121 0.06912 -11.16 5.84e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 4.743 on 57 degrees of freedom
## Multiple R-squared: 0.6859, Adjusted R-squared: 0.6804
## F-statistic: 124.5 on 1 and 57 DF, p-value: 5.843e-16