Conjuntos

Generación de datos

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")

Numero de elementos o población total

n <- length(nombres)
n

## [1] 34

set.seed(100)

Generando participantes en equipos deportivos

Generando conjuntos: 15 en futbol, 10 en basquetbol, 6 en voleybol, 5 atletismo y 2 ajedrez

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))

Visualisamos a los integrantes de cada conjunto

futbol

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Gabino"   "Gerardo"  "Laura"   
##  [7] "Luisa"    "Lupita"   "Memo"     "Oscar"    "Paco"     "Patricia"
## [13] "Raul"     "Romualdo" "Saul"

basquetbol

##  [1] "Aracely"   "Eduardo"   "Lalo"      "Lucy"      "Luis"      "Margarito"
##  [7] "Memo"      "Paco"      "Romualdo"  "Sandra"

voleybol

## [1] "Jeorgina" "Memo"     "Oscar"    "Raul"     "Romualdo" "Rubén"

atletismo

## [1] "Carmen"  "Laura"   "Paco"    "Rosario" "Sandro"

ajedrez

## [1] "Antonio" "Yuri"

Union de los conjuntos

union(futbol, basquetbol) 

##  [1] "Antonio"   "Carmen"    "Eduardo"   "Gabino"    "Gerardo"   "Laura"    
##  [7] "Luisa"     "Lupita"    "Memo"      "Oscar"     "Paco"      "Patricia" 
## [13] "Raul"      "Romualdo"  "Saul"      "Aracely"   "Lalo"      "Lucy"     
## [19] "Luis"      "Margarito" "Sandra"

union(futbol, voleybol)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Gabino"   "Gerardo"  "Laura"   
##  [7] "Luisa"    "Lupita"   "Memo"     "Oscar"    "Paco"     "Patricia"
## [13] "Raul"     "Romualdo" "Saul"     "Jeorgina" "Rubén"

union(futbol, atletismo)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Gabino"   "Gerardo"  "Laura"   
##  [7] "Luisa"    "Lupita"   "Memo"     "Oscar"    "Paco"     "Patricia"
## [13] "Raul"     "Romualdo" "Saul"     "Rosario"  "Sandro"

union(futbol, ajedrez)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Gabino"   "Gerardo"  "Laura"   
##  [7] "Luisa"    "Lupita"   "Memo"     "Oscar"    "Paco"     "Patricia"
## [13] "Raul"     "Romualdo" "Saul"     "Yuri"

Otras operaciones de unión de Conjuntos.

union(basquetbol, voleybol) 

##  [1] "Aracely"   "Eduardo"   "Lalo"      "Lucy"      "Luis"      "Margarito"
##  [7] "Memo"      "Paco"      "Romualdo"  "Sandra"    "Jeorgina"  "Oscar"    
## [13] "Raul"      "Rubén"

union(atletismo, ajedrez)

## [1] "Carmen"  "Laura"   "Paco"    "Rosario" "Sandro"  "Antonio" "Yuri"

union(atletismo, voleybol)

##  [1] "Carmen"   "Laura"    "Paco"     "Rosario"  "Sandro"   "Jeorgina"
##  [7] "Memo"     "Oscar"    "Raul"     "Romualdo" "Rubén"

Lo que ocurre si hacemos la union de todos los elementos.

jueganfb  <- union (basquetbol, futbol) 
jueganfbv <- union(jueganfb, voleybol)
jueganfbva <- union(jueganfbv, atletismo)
jueganfbvaj <- union(jueganfbva, ajedrez)

# La siguiente funcion nos permite viendolos ordenados.
sort(jueganfbvaj)

##  [1] "Antonio"   "Aracely"   "Carmen"    "Eduardo"   "Gabino"    "Gerardo"  
##  [7] "Jeorgina"  "Lalo"      "Laura"     "Lucy"      "Luis"      "Luisa"    
## [13] "Lupita"    "Margarito" "Memo"      "Oscar"     "Paco"      "Patricia" 
## [19] "Raul"      "Romualdo"  "Rosario"   "Rubén"     "Sandra"    "Sandro"   
## [25] "Saul"      "Yuri"

Intersección de conjuntos

Resuelve el dilema de quienes están en un un equipo y que también están en otro

intersect(futbol, basquetbol)

## [1] "Eduardo"  "Memo"     "Paco"     "Romualdo"

intersect(futbol, voleybol)

## [1] "Memo"     "Oscar"    "Raul"     "Romualdo"

intersect(futbol, atletismo)

## [1] "Carmen" "Laura"  "Paco"

intersect(futbol, ajedrez)

## [1] "Antonio"

Otras intersecciones

intersect(ajedrez, basquetbol) 

## character(0)

intersect(voleybol, basquetbol)

## [1] "Memo"     "Romualdo"

intersect(basquetbol, atletismo)

## [1] "Paco"

intersect(atletismo, ajedrez) # character(0), significa que no hay

## character(0)

Diferencia de conjuntos

Resuelve quienes juegan un deporte y no juegan otro.

setdiff(futbol, basquetbol)

##  [1] "Antonio"  "Carmen"   "Gabino"   "Gerardo"  "Laura"    "Luisa"   
##  [7] "Lupita"   "Oscar"    "Patricia" "Raul"     "Saul"

setdiff(futbol, voleybol)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Gabino"   "Gerardo"  "Laura"   
##  [7] "Luisa"    "Lupita"   "Paco"     "Patricia" "Saul"

setdiff(futbol, atletismo)

##  [1] "Antonio"  "Eduardo"  "Gabino"   "Gerardo"  "Luisa"    "Lupita"  
##  [7] "Memo"     "Oscar"    "Patricia" "Raul"     "Romualdo" "Saul"

setdiff(futbol, ajedrez)

##  [1] "Carmen"   "Eduardo"  "Gabino"   "Gerardo"  "Laura"    "Luisa"   
##  [7] "Lupita"   "Memo"     "Oscar"    "Paco"     "Patricia" "Raul"    
## [13] "Romualdo" "Saul"

Otras diferencias

setdiff(ajedrez, basquetbol) 

## [1] "Antonio" "Yuri"

# character(0), significa que no ha
setdiff(voleybol, basquetbol) 

## [1] "Jeorgina" "Oscar"    "Raul"     "Rubén"

setdiff(basquetbol, atletismo)

## [1] "Aracely"   "Eduardo"   "Lalo"      "Lucy"      "Luis"      "Margarito"
## [7] "Memo"      "Romualdo"  "Sandra"

setdiff(atletismo, ajedrez)

## [1] "Carmen"  "Laura"   "Paco"    "Rosario" "Sandro"

PERSONAS QUE NO JUEGAN NADA.

Reutilizamos la variable “jueganfbvaj” y la asignamos a la variable si juegan para hacerlo más entendible y páctico.

jueganfbvaj

##  [1] "Aracely"   "Eduardo"   "Lalo"      "Lucy"      "Luis"      "Margarito"
##  [7] "Memo"      "Paco"      "Romualdo"  "Sandra"    "Antonio"   "Carmen"   
## [13] "Gabino"    "Gerardo"   "Laura"     "Luisa"     "Lupita"    "Oscar"    
## [19] "Patricia"  "Raul"      "Saul"      "Jeorgina"  "Rubén"     "Rosario"  
## [25] "Sandro"    "Yuri"

sijuegan <- jueganfbvaj

nojuegannada <- sort(setdiff(nombres, sijuegan ))  # sort ya para verlo ordenado
nojuegannada

## [1] "Ana"       "Ernesto"   "Javier"    "Juan"      "Margarita" "Maria"    
## [7] "Paty"      "Salvador"

¿Cuántos SI JUEGAN algún deporte?

¿Cuántos NO JUEGAN algíun deporte?

length(sijuegan)

## [1] 26

length(nojuegannada)

## [1] 8