practica-5.utf8

Los vemos ordenados*

nombres <- sort(nombres)
nombres

##  [1] "Ana"       "Antonio"   "Aracely"   "Carmen"    "Dinorah"   "Eduardo"  
##  [7] "Ernesto"   "Gabino"    "Gerardo"   "Javier"    "Jeorgina"  "Juan"     
## [13] "Lalo"      "Laura"     "Lucy"      "Luis"      "Luisa"     "Lupita"   
## [19] "Margarita" "Margarito" "Maria"     "Memo"      "Oscar"     "Pablo"    
## [25] "Paco"      "Patricia"  "Paty"      "Raul"      "Romualdo"  "Rosario"  
## [31] "Rubén"     "Salvador"  "Sandra"    "Sandro"    "Saul"      "Vanessa"  
## [37] "Victoria"  "Yuri"

Número de elementos o población total

n <- length(nombres)
n

## [1] 38

Semilla para aleatoriadad en 100 para que se generen los mismos equipos

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

Visualizamos los integrantes de los equipos, de los conjuntos

futbol

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Ernesto"  "Javier"   "Jeorgina"
##  [7] "Laura"    "Memo"     "Oscar"    "Pablo"    "Paco"     "Raul"    
## [13] "Rubén"    "Sandra"   "Saul"

basquetbol

##  [1] "Antonio"   "Carmen"    "Gabino"    "Juan"      "Lupita"    "Margarita"
##  [7] "Paco"      "Rosario"   "Saul"      "Yuri"

voleybol

## [1] "Antonio"  "Jeorgina" "Luis"     "Maria"    "Paty"     "Salvador"

atletismo

## [1] "Eduardo"  "Romualdo" "Rosario"  "Vanessa"  "Victoria"

ajedrez

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

Unión de Conjuntos

Los elementos que están en un conjunto agregando los que están en el otro conjunto

union(futbol, basquetbol)

##  [1] "Antonio"   "Carmen"    "Eduardo"   "Ernesto"   "Javier"    "Jeorgina" 
##  [7] "Laura"     "Memo"      "Oscar"     "Pablo"     "Paco"      "Raul"     
## [13] "Rubén"     "Sandra"    "Saul"      "Gabino"    "Juan"      "Lupita"   
## [19] "Margarita" "Rosario"   "Yuri"

union(futbol, voleybol)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Ernesto"  "Javier"   "Jeorgina"
##  [7] "Laura"    "Memo"     "Oscar"    "Pablo"    "Paco"     "Raul"    
## [13] "Rubén"    "Sandra"   "Saul"     "Luis"     "Maria"    "Paty"    
## [19] "Salvador"

union(futbol, atletismo)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Ernesto"  "Javier"   "Jeorgina"
##  [7] "Laura"    "Memo"     "Oscar"    "Pablo"    "Paco"     "Raul"    
## [13] "Rubén"    "Sandra"   "Saul"     "Romualdo" "Rosario"  "Vanessa" 
## [19] "Victoria"

union(futbol, ajedrez)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Ernesto"  "Javier"   "Jeorgina"
##  [7] "Laura"    "Memo"     "Oscar"    "Pablo"    "Paco"     "Raul"    
## [13] "Rubén"    "Sandra"   "Saul"

Otras operaciones de unión de Conjuntos

union(basquetbol, voleybol)

##  [1] "Antonio"   "Carmen"    "Gabino"    "Juan"      "Lupita"    "Margarita"
##  [7] "Paco"      "Rosario"   "Saul"      "Yuri"      "Jeorgina"  "Luis"     
## [13] "Maria"     "Paty"      "Salvador"

union(atletismo, ajedrez)

## [1] "Eduardo"  "Romualdo" "Rosario"  "Vanessa"  "Victoria" "Oscar"    "Rubén"

union(atletismo, voleybol)

##  [1] "Eduardo"  "Romualdo" "Rosario"  "Vanessa"  "Victoria" "Antonio" 
##  [7] "Jeorgina" "Luis"     "Maria"    "Paty"     "Salvador"

¿Qué sucede si unimos todos los elementos?

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

sort(jueganfbvaj)

##  [1] "Antonio"   "Carmen"    "Eduardo"   "Ernesto"   "Gabino"    "Javier"   
##  [7] "Jeorgina"  "Juan"      "Laura"     "Luis"      "Lupita"    "Margarita"
## [13] "Maria"     "Memo"      "Oscar"     "Pablo"     "Paco"      "Paty"     
## [19] "Raul"      "Romualdo"  "Rosario"   "Rubén"     "Salvador"  "Sandra"   
## [25] "Saul"      "Vanessa"   "Victoria"  "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] "Antonio" "Carmen"  "Paco"    "Saul"

intersect(futbol, voleybol)

## [1] "Antonio"  "Jeorgina"

intersect(futbol, atletismo)

## [1] "Eduardo"

intersect(futbol, ajedrez)

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

Otras intersecciones

intersect(ajedrez, basquetbol)

## character(0)

intersect(voleybol, basquetbol)

## [1] "Antonio"

intersect(basquetbol, atletismo)

## [1] "Rosario"

intersect(atletismo, ajedrez)

## character(0)

Diferencia de conjuntos

Resuelve quienes juegan un deporte y no juegan otro

setdiff(futbol, basquetbol)

##  [1] "Eduardo"  "Ernesto"  "Javier"   "Jeorgina" "Laura"    "Memo"    
##  [7] "Oscar"    "Pablo"    "Raul"     "Rubén"    "Sandra"

setdiff(futbol, voleybol)

##  [1] "Carmen"  "Eduardo" "Ernesto" "Javier"  "Laura"   "Memo"    "Oscar"  
##  [8] "Pablo"   "Paco"    "Raul"    "Rubén"   "Sandra"  "Saul"

setdiff(futbol, atletismo)

##  [1] "Antonio"  "Carmen"   "Ernesto"  "Javier"   "Jeorgina" "Laura"   
##  [7] "Memo"     "Oscar"    "Pablo"    "Paco"     "Raul"     "Rubén"   
## [13] "Sandra"   "Saul"

setdiff(futbol, ajedrez)

##  [1] "Antonio"  "Carmen"   "Eduardo"  "Ernesto"  "Javier"   "Jeorgina"
##  [7] "Laura"    "Memo"     "Pablo"    "Paco"     "Raul"     "Sandra"  
## [13] "Saul"

Otras diferencias

setdiff(ajedrez, basquetbol)

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

setdiff(voleybol, basquetbol)

## [1] "Jeorgina" "Luis"     "Maria"    "Paty"     "Salvador"

setdiff(basquetbol, atletismo)

## [1] "Antonio"   "Carmen"    "Gabino"    "Juan"      "Lupita"    "Margarita"
## [7] "Paco"      "Saul"      "Yuri"

setdiff(atletismo, ajedrez)

## [1] "Eduardo"  "Romualdo" "Rosario"  "Vanessa"  "Victoria"

Quienes NO JUEGAN NADA.

Reutilizamos la variable jueganfbvaj y la asignamos a la variable sijuegan para hacerlo más entendible y páctico

jueganfbvaj

##  [1] "Antonio"   "Carmen"    "Gabino"    "Juan"      "Lupita"    "Margarita"
##  [7] "Paco"      "Rosario"   "Saul"      "Yuri"      "Eduardo"   "Ernesto"  
## [13] "Javier"    "Jeorgina"  "Laura"     "Memo"      "Oscar"     "Pablo"    
## [19] "Raul"      "Rubén"     "Sandra"    "Luis"      "Maria"     "Paty"     
## [25] "Salvador"  "Romualdo"  "Vanessa"   "Victoria"

sijuegan <- jueganfbvaj

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

##  [1] "Ana"       "Aracely"   "Dinorah"   "Gerardo"   "Lalo"      "Lucy"     
##  [7] "Luisa"     "Margarito" "Patricia"  "Sandro"

¿Cuántos SI JUEGAN algún deporte?

length(sijuegan)

## [1] 28

¿Cuántos NO JUEGAN algún deporte?

length(nojuegannada)

## [1] 10

Sacando proporciones y porcentajes

¿Qué porcentaje SI JUEGA ALGO?

propor.SIJUEGA <- length(sijuegan) / n
propor.SIJUEGA

## [1] 0.7368421

propor.SIJUEGA * 100

## [1] 73.68421

round(propor.SIJUEGA * 100)

## [1] 74

¿Qué porcentaje NO JUEGA algún deporte?

propor.NOJUEGA <- length(nojuegannada) / n
propor.NOJUEGA

## [1] 0.2631579

propor.NOJUEGA * 100

## [1] 26.31579

round(propor.NOJUEGA * 100)

## [1] 26

Probabilidades

¿Qué probabilidad existe de elejir ALEATORIAEMNTE a un nombre y JUEGUE ALGÚN DEPORTE?

propor.SIJUEGA*100

## [1] 73.68421

¿Qué probabilidad existe de elejir ALEATORIAEMNTE a un nombre y NO JUEGUE ALGÚN DEPORTE?

propor.NOJUEGA*100

## [1] 26.31579

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE FUTBOL?

Utilizamos la variable futbol

propor.Sifut <- length(futbol) / n
propor.Sifut

## [1] 0.3947368

propor.Sifut * 100

## [1] 39.47368

round(propor.Sifut * 100)

## [1] 39

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE BASQUETBOL?

Utilizamos la variable basquetbol

propor.Sibas <- length(basquetbol) / n
propor.Sibas

## [1] 0.2631579

propor.Sibas * 100

## [1] 26.31579

round(propor.Sibas * 100)

## [1] 26

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE VOLEYBOL?

Utilizamos la variable voleybol

propor.Sivol <- length(voleybol) / n
propor.Sivol

## [1] 0.1578947

propor.Sivol * 100

## [1] 15.78947

round(propor.Sivol * 100)

## [1] 16

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE ATLETISMO?

Utilizamos la variable atletismo

propor.Siatl <- length(atletismo) / n
propor.Siatl

## [1] 0.1315789

propor.Siatl * 100

## [1] 13.15789

round(propor.Siatl * 100)

## [1] 13

¿Qué probabilidad existe de elejir ALEATORIAMENTE a un nombre y JUEGUE AJEDREZ?

Utilizamos la variable ajedrez

propor.Siaje <- length(ajedrez) / n
propor.Siaje

## [1] 0.05263158

propor.Siaje * 100

## [1] 5.263158

round(propor.Siaje * 100)

## [1] 5

Creando un data frame con los nombres y la disciplina en donde participan.

Éstos ahora estan 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     TRUE     FALSE   FALSE
## 3    Aracely  FALSE      FALSE    FALSE     FALSE   FALSE
## 4     Carmen   TRUE       TRUE    FALSE     FALSE   FALSE
## 5    Dinorah  FALSE      FALSE    FALSE     FALSE   FALSE
## 6    Eduardo   TRUE      FALSE    FALSE      TRUE   FALSE
## 7    Ernesto   TRUE      FALSE    FALSE     FALSE   FALSE
## 8     Gabino  FALSE       TRUE    FALSE     FALSE   FALSE
## 9    Gerardo  FALSE      FALSE    FALSE     FALSE   FALSE
## 10    Javier   TRUE      FALSE    FALSE     FALSE   FALSE
## 11  Jeorgina   TRUE      FALSE     TRUE     FALSE   FALSE
## 12      Juan  FALSE       TRUE    FALSE     FALSE   FALSE
## 13      Lalo  FALSE      FALSE    FALSE     FALSE   FALSE
## 14     Laura   TRUE      FALSE    FALSE     FALSE   FALSE
## 15      Lucy  FALSE      FALSE    FALSE     FALSE   FALSE
## 16      Luis  FALSE      FALSE     TRUE     FALSE   FALSE
## 17     Luisa  FALSE      FALSE    FALSE     FALSE   FALSE
## 18    Lupita  FALSE       TRUE    FALSE     FALSE   FALSE
## 19 Margarita  FALSE       TRUE    FALSE     FALSE   FALSE
## 20 Margarito  FALSE      FALSE    FALSE     FALSE   FALSE
## 21     Maria  FALSE      FALSE     TRUE     FALSE   FALSE
## 22      Memo   TRUE      FALSE    FALSE     FALSE   FALSE
## 23     Oscar   TRUE      FALSE    FALSE     FALSE    TRUE
## 24     Pablo   TRUE      FALSE    FALSE     FALSE   FALSE
## 25      Paco   TRUE       TRUE    FALSE     FALSE   FALSE
## 26  Patricia  FALSE      FALSE    FALSE     FALSE   FALSE
## 27      Paty  FALSE      FALSE     TRUE     FALSE   FALSE
## 28      Raul   TRUE      FALSE    FALSE     FALSE   FALSE
## 29  Romualdo  FALSE      FALSE    FALSE      TRUE   FALSE
## 30   Rosario  FALSE       TRUE    FALSE      TRUE   FALSE
## 31     Rubén   TRUE      FALSE    FALSE     FALSE    TRUE
## 32  Salvador  FALSE      FALSE     TRUE     FALSE   FALSE
## 33    Sandra   TRUE      FALSE    FALSE     FALSE   FALSE
## 34    Sandro  FALSE      FALSE    FALSE     FALSE   FALSE
## 35      Saul   TRUE       TRUE    FALSE     FALSE   FALSE
## 36   Vanessa  FALSE      FALSE    FALSE      TRUE   FALSE
## 37  Victoria  FALSE      FALSE    FALSE      TRUE   FALSE
## 38      Yuri  FALSE       TRUE    FALSE     FALSE   FALSE

En esta práctica, logramos aprender sobre la utilización de funciones para calcular porcentajes y proporciones, en esta ocasión en un conjunto de datos que se enfoca en nombres de personas y actividades de índole deportiva; esto a su vez, aplicando orden, unión, intersección y diferencia de conjuntos. A partir de allí, determinamos con anteriores funciones, cuántos ponen en práctica un deporte, cuántos no realizan una actividad, y posteriormente, obtuvimos su porcentaje. En base a esto, respondimos las interrogantes que nos abrieron paso para calcular y determinar el numero de personas que practican cierto deporte, que en sumatoria, las 38 personas equivalen al 100%.

Se generan los nombres