Nombres
nombres <- c("Juan", "Paco", "Lalo", "Memo", "Paty", "Laura", "Oscar", "Luis", "Ernesto", "Lupita", "Carmen", "Eduardo", "Ana", "Luisa", "Maria", "Rosario", "Margarita", "Margarito", "Sandra", "Sandro", "Rubén", "Gabino", "Patricia", "Salvador", "Romualdo", "Saul", "Raul", "Gerardo", "Antonio", "Yuri", "Aracely", "Jeorgina", "Javier", "Lucy")
nombres <- sort(nombres)
nombres
## [1] "Ana" "Antonio" "Aracely" "Carmen" "Eduardo" "Ernesto"
## [7] "Gabino" "Gerardo" "Javier" "Jeorgina" "Juan" "Lalo"
## [13] "Laura" "Lucy" "Luis" "Luisa" "Lupita" "Margarita"
## [19] "Margarito" "Maria" "Memo" "Oscar" "Paco" "Patricia"
## [25] "Paty" "Raul" "Romualdo" "Rosario" "Rubén" "Salvador"
## [31] "Sandra" "Sandro" "Saul" "Yuri"
Poblacion total
n <- length(nombres)
n
## [1] 34
Semilla aleatoria para generar los conjuntos: 15 en futbol, 10 en basquetbol, 6 en voleybol, 5 atletismo y 2 ajedrez
set.seed(100)
futbol <- sort(sample(nombres, 15))
basquetbol <- sort(sample(nombres, 10))
voleybol <- sort(sample(nombres, 6))
atletismo <- sort(sample(nombres, 5))
ajedrez <- sort(sample(nombres, 2))
futbol
## [1] "Antonio" "Carmen" "Ernesto" "Gabino" "Jeorgina" "Juan"
## [7] "Lalo" "Lucy" "Oscar" "Paco" "Paty" "Raul"
## [13] "Romualdo" "Rosario" "Rubén"
basquetbol
## [1] "Antonio" "Aracely" "Carmen" "Gerardo" "Lalo" "Margarita"
## [7] "Margarito" "Paty" "Sandra" "Yuri"
voleybol
## [1] "Carmen" "Gabino" "Memo" "Paty" "Romualdo" "Sandro"
atletismo
## [1] "Antonio" "Ernesto" "Juan" "Luisa" "Maria"
ajedrez
## [1] "Rubén" "Salvador"
Union de Conjuntos
union(futbol, basquetbol) #Los que juegan o uno u otro
## [1] "Antonio" "Carmen" "Ernesto" "Gabino" "Jeorgina" "Juan"
## [7] "Lalo" "Lucy" "Oscar" "Paco" "Paty" "Raul"
## [13] "Romualdo" "Rosario" "Rubén" "Aracely" "Gerardo" "Margarita"
## [19] "Margarito" "Sandra" "Yuri"
union(futbol, voleybol)
## [1] "Antonio" "Carmen" "Ernesto" "Gabino" "Jeorgina" "Juan"
## [7] "Lalo" "Lucy" "Oscar" "Paco" "Paty" "Raul"
## [13] "Romualdo" "Rosario" "Rubén" "Memo" "Sandro"
union(futbol, atletismo)
## [1] "Antonio" "Carmen" "Ernesto" "Gabino" "Jeorgina" "Juan"
## [7] "Lalo" "Lucy" "Oscar" "Paco" "Paty" "Raul"
## [13] "Romualdo" "Rosario" "Rubén" "Luisa" "Maria"
union(futbol, ajedrez)
## [1] "Antonio" "Carmen" "Ernesto" "Gabino" "Jeorgina" "Juan"
## [7] "Lalo" "Lucy" "Oscar" "Paco" "Paty" "Raul"
## [13] "Romualdo" "Rosario" "Rubén" "Salvador"
union(basquetbol, voleybol)
## [1] "Antonio" "Aracely" "Carmen" "Gerardo" "Lalo" "Margarita"
## [7] "Margarito" "Paty" "Sandra" "Yuri" "Gabino" "Memo"
## [13] "Romualdo" "Sandro"
union(atletismo, ajedrez)
## [1] "Antonio" "Ernesto" "Juan" "Luisa" "Maria" "Rubén" "Salvador"
union(atletismo, voleybol)
## [1] "Antonio" "Ernesto" "Juan" "Luisa" "Maria" "Carmen"
## [7] "Gabino" "Memo" "Paty" "Romualdo" "Sandro"
Union de todos los elementos
jueganfb <- union(futbol, basquetbol)
jueganfbv <- union(jueganfb, voleybol)
jueganfbva <- union(jueganfbv, atletismo)
jueganfbvaj <- union(jueganfbva, ajedrez)
#Se ordenan
sort(jueganfbvaj)
## [1] "Antonio" "Aracely" "Carmen" "Ernesto" "Gabino" "Gerardo"
## [7] "Jeorgina" "Juan" "Lalo" "Lucy" "Luisa" "Margarita"
## [13] "Margarito" "Maria" "Memo" "Oscar" "Paco" "Paty"
## [19] "Raul" "Romualdo" "Rosario" "Rubén" "Salvador" "Sandra"
## [25] "Sandro" "Yuri"
Intersección de Conjuntos
Resuelve el dilema de quienes están en un equipo y tambien en otro
intersect(futbol, basquetbol) #Los que juegan en los equipos
## [1] "Antonio" "Carmen" "Lalo" "Paty"
intersect(futbol, voleybol)
## [1] "Carmen" "Gabino" "Paty" "Romualdo"
intersect(futbol, atletismo)
## [1] "Antonio" "Ernesto" "Juan"
intersect(futbol, ajedrez)
## [1] "Rubén"
intersect(ajedrez, basquetbol)
## character(0)
intersect(voleybol, basquetbol)
## [1] "Carmen" "Paty"
intersect(basquetbol, atletismo)
## [1] "Antonio"
intersect(atletismo, ajedrez)
## character(0)
Diferencia de Conjuntos
Resuelve quienes no estan en un deporte o en otro
setdiff(futbol, basquetbol) #Los que juegan y que no juegan en otro equipo
## [1] "Ernesto" "Gabino" "Jeorgina" "Juan" "Lucy" "Oscar"
## [7] "Paco" "Raul" "Romualdo" "Rosario" "Rubén"
setdiff(futbol, voleybol)
## [1] "Antonio" "Ernesto" "Jeorgina" "Juan" "Lalo" "Lucy"
## [7] "Oscar" "Paco" "Raul" "Rosario" "Rubén"
setdiff(futbol, atletismo)
## [1] "Carmen" "Gabino" "Jeorgina" "Lalo" "Lucy" "Oscar"
## [7] "Paco" "Paty" "Raul" "Romualdo" "Rosario" "Rubén"
setdiff(futbol, ajedrez)
## [1] "Antonio" "Carmen" "Ernesto" "Gabino" "Jeorgina" "Juan"
## [7] "Lalo" "Lucy" "Oscar" "Paco" "Paty" "Raul"
## [13] "Romualdo" "Rosario"
setdiff(ajedrez, basquetbol)
## [1] "Rubén" "Salvador"
setdiff(basquetbol, atletismo)
## [1] "Aracely" "Carmen" "Gerardo" "Lalo" "Margarita" "Margarito"
## [7] "Paty" "Sandra" "Yuri"
setdiff(atletismo, ajedrez)
## [1] "Antonio" "Ernesto" "Juan" "Luisa" "Maria"
Quienes no juegan nada
Reutilizamos la variable jueganfbvaj y la asignamos a la variable sijuegan para hacerlo más entendible y practico
jueganfbvaj
## [1] "Antonio" "Carmen" "Ernesto" "Gabino" "Jeorgina" "Juan"
## [7] "Lalo" "Lucy" "Oscar" "Paco" "Paty" "Raul"
## [13] "Romualdo" "Rosario" "Rubén" "Aracely" "Gerardo" "Margarita"
## [19] "Margarito" "Sandra" "Yuri" "Memo" "Sandro" "Luisa"
## [25] "Maria" "Salvador"
sijuegan <- jueganfbvaj
nojuegannada <- sort(setdiff(nombres, sijuegan))
nojuegannada
## [1] "Ana" "Eduardo" "Javier" "Laura" "Luis" "Lupita" "Patricia"
## [8] "Saul"
Cuantos si juegan un deporte
length(sijuegan)
## [1] 26
Cuantos no juegan un deporte
length(nojuegannada)
## [1] 8
Sacando proporcionales y porcentajes
Que porcentaje si juega algo y que porcentaje no juega algo
proporcionalSijuega <- length(sijuegan) / n
proporcionalSijuega
## [1] 0.7647059
#En porcentaje
proporcionalSijuega * 100
## [1] 76.47059
#Redondeado
round(proporcionalSijuega * 100)
## [1] 76
proporcionalNojuega <- length(nojuegannada) / n
proporcionalNojuega
## [1] 0.2352941
#En porcentaje
proporcionalNojuega * 100
## [1] 23.52941
#Redondeado
round(proporcionalNojuega * 100)
## [1] 24
proporcionalFutbol <- length(futbol) / n
proporcionalFutbol
## [1] 0.4411765
round(proporcionalFutbol * 100)
## [1] 44
proporcionalBasquetbol <- length(basquetbol) / n
proporcionalBasquetbol
## [1] 0.2941176
round(proporcionalBasquetbol * 100)
## [1] 29
proporcionalVoleybol <- length(voleybol) / n
proporcionalVoleybol
## [1] 0.1764706
round(proporcionalVoleybol * 100)
## [1] 18
proporcionalAtletismo <- length(atletismo) / n
proporcionalAtletismo
## [1] 0.1470588
round(proporcionalAtletismo * 100)
## [1] 15
proporcionalAjedrez <- length(ajedrez) / n
round(proporcionalAjedrez * 100)
## [1] 6
Probabilidades
¿Que probabilidad existe de elejir aleatoriamente a un nombre y juegue algun deporte?
proporcionalSijuega
## [1] 0.7647059
¿Que probabilidad existe de elejir aleatoriamente a un nombre y no juegue algun deporte?
proporcionalNojuega
## [1] 0.2352941
¿Que probabilidad existe de elejir aleatoriamente a un nombre y juegue futbol?
proporcionalFutbol
## [1] 0.4411765
¿Que probabilidad existe de elejir aleatoriamente a un nombre y juegue basquetbol?
proporcionalBasquetbol
## [1] 0.2941176
¿Que probabilidad existe de elejir aleatoriamente a un nombre y juegue voleybol?
proporcionalVoleybol
## [1] 0.1764706
¿Que probabilidad existe de elejir aleatoriamente a un nombre y juegue atletismo?
proporcionalAtletismo
## [1] 0.1470588
¿Que probabilidad existe de elejir aleatoriamente a un nombre y juegue ajedrez?
proporcionalAjedrez
## [1] 0.05882353
Creamos un data frame con los nombres y la diciplina en donde participan, ordenados.
datos <- data.frame(nombres, futbol=nombres %in% futbol, basquetbol=nombres %in% basquetbol, voleybol=nombres %in% voleybol, atletismo=nombres %in% atletismo, ajedrez=nombres %in% ajedrez)
datos
## nombres futbol basquetbol voleybol atletismo ajedrez
## 1 Ana FALSE FALSE FALSE FALSE FALSE
## 2 Antonio TRUE TRUE FALSE TRUE FALSE
## 3 Aracely FALSE TRUE FALSE FALSE FALSE
## 4 Carmen TRUE TRUE TRUE FALSE FALSE
## 5 Eduardo FALSE FALSE FALSE FALSE FALSE
## 6 Ernesto TRUE FALSE FALSE TRUE FALSE
## 7 Gabino TRUE FALSE TRUE FALSE FALSE
## 8 Gerardo FALSE TRUE FALSE FALSE FALSE
## 9 Javier FALSE FALSE FALSE FALSE FALSE
## 10 Jeorgina TRUE FALSE FALSE FALSE FALSE
## 11 Juan TRUE FALSE FALSE TRUE FALSE
## 12 Lalo TRUE TRUE FALSE FALSE FALSE
## 13 Laura FALSE FALSE FALSE FALSE FALSE
## 14 Lucy TRUE FALSE FALSE FALSE FALSE
## 15 Luis FALSE FALSE FALSE FALSE FALSE
## 16 Luisa FALSE FALSE FALSE TRUE FALSE
## 17 Lupita FALSE FALSE FALSE FALSE FALSE
## 18 Margarita FALSE TRUE FALSE FALSE FALSE
## 19 Margarito FALSE TRUE FALSE FALSE FALSE
## 20 Maria FALSE FALSE FALSE TRUE FALSE
## 21 Memo FALSE FALSE TRUE FALSE FALSE
## 22 Oscar TRUE FALSE FALSE FALSE FALSE
## 23 Paco TRUE FALSE FALSE FALSE FALSE
## 24 Patricia FALSE FALSE FALSE FALSE FALSE
## 25 Paty TRUE TRUE TRUE FALSE FALSE
## 26 Raul TRUE FALSE FALSE FALSE FALSE
## 27 Romualdo TRUE FALSE TRUE FALSE FALSE
## 28 Rosario TRUE FALSE FALSE FALSE FALSE
## 29 Rubén TRUE FALSE FALSE FALSE TRUE
## 30 Salvador FALSE FALSE FALSE FALSE TRUE
## 31 Sandra FALSE TRUE FALSE FALSE FALSE
## 32 Sandro FALSE FALSE TRUE FALSE FALSE
## 33 Saul FALSE FALSE FALSE FALSE FALSE
## 34 Yuri FALSE TRUE FALSE FALSE FALSE