1.- Cargar librerias

library(VennDiagram)
## Warning: package 'VennDiagram' was built under R version 3.6.3
## Loading required package: grid
## Loading required package: futile.logger
## Warning: package 'futile.logger' was built under R version 3.6.3
library(dplyr)
## Warning: package 'dplyr' was built under R version 3.6.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(knitr)
## Warning: package 'knitr' was built under R version 3.6.3

2.-Cargar datos

source("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/construir%20datos%20y%20funciones%20caso%209.r", encoding = "UTF-8")
## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated
kable(personas, caption = "Lista de personas y actividaes que practican")
Lista de personas y actividaes que practican
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO NA NO NA NO NO NO NO NO NA
JOSÉ LUIS M NO NO NO NO NO NO NO NA NO NO NO NO
JOSÉ M NO NA NO NA NO NO NO NO NO NO NA NA
MARÍA GUADALUPE F NO NA NO NO NO NO NO NO NO NO NA NA
FRANCISCO M NO NO NO NO NO NO NA NO NO NO NO NO
GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA F NO NA NO NO NA NO NO NO NO NO NO NO
JUANA F NO NO NO NO NA NO NO NA NO NO NO NO
ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JESÚS M NO NO NA NO NO NA NO NO NA NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO NA NO NO NO
PEDRO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRO M NO NO NA NO NA NO NA NO NA NO NO NO
MANUEL M NO NO NO NO NO NO NA NO NO NO NO NO
MARGARITA F NO NO NO NO NO NO NA NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO NA NO NO NO NO NO NO
JUAN CARLOS M NA NO NO NO NO NO NA NO NA NO NO NO
ROBERTO M NO NA NO NO NO NO NO NO NO NO NA NO
FERNANDO M NO NO NO NO NA NO NO NO NO NO NA NO
DANIEL M NO NO NO NO NO NO NA NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO NA NO
JORGE M NA NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO NA NO NO NO NO NA NO NO
MIGUEL M NO NO NO NA NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO NA NO NO NO NO NO NA NA NA
JAVIER F NO NO NO NO NO NA NO NO NO NO NA NO
RAFAEL M NO NO NO NO NO NO NO NA NO NO NO NO
MARTÍN M NO NO NO NO NO NO NA NO NO NO NO NO
RAÚL M NO NA NO NA NO NO NO NA NO NO NA NO
DAVID M NO NO NO NO NO NO NO NO NO NO NO NO
JOSEFINA M NO NO NO NO NO NA NO NO NO NA NO NA
JOSÉ ANTONIO M NO NO NA NO NO NO NO NA NO NO NO NO
ARTURO F NO NO NO NO NA NO NO NO NO NO NO NA
MARCO ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JOSÉ MANUEL F NO NO NO NA NO NO NO NA NO NO NO NO
FRANCISCO JAVIER F NA NO NO NO NO NO NO NA NO NO NA NO
ENRIQUE F NO NO NO NO NO NO NO NO NA NO NA NO
VERÓNICA M NO NO NO NA NO NO NO NO NO NO NA NO
GERARDO F NO NO NO NO NO NO NO NA NO NO NO NO
MARÍA ELENA M NO NO NO NO NO NO NA NA NO NO NO NO
LETICIA F NO NO NO NO NO NO NO NA NO NO NA NO
ROSA F NA NO NO NO NO NA NO NO NO NO NO NO
MARIO M NO NO NA NA NO NO NO NO NO NO NO NO
FRANCISCA F NO NO NA NO NO NO NA NO NO NO NO NO
ALFREDO M NO NO NO NA NO NO NO NO NO NA NO NO
TERESA F NO NO NO NO NO NO NO NA NO NO NO NO
ALICIA F NO NA NO NO NO NA NO NO NO NA NO NO
MARÍA FERNANDA F NO NA NA NO NO NO NA NA NO NA NO NO
SERGIO M NA NO NO NO NO NO NO NO NO NO NO NO
ALBERTO M NO NO NO NO NO NO NA NO NO NO NO NO
LUIS M NO NO NO NO NO NO NO NO NA NO NO NA
ARMANDO M NO NO NA NO NO NO NA NO NO NO NO NO
ALEJANDRA F NO NO NO NO NO NO NO NA NO NO NO NO
MARTHA F NO NO NO NO NO NO NO NO NO NO NA NO
SANTIAGO M NO NO NO NO NO NA NO NA NA NO NO NO
YOLANDA F NA NO NO NO NA NO NO NO NO NO NO NO
PATRICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LOS ÁNGELES F NO NO NO NA NO NO NO NO NO NO NA NO
JUAN MANUEL M NO NO NO NO NO NO NO NA NO NA NA NO
ROSA MARÍA F NO NO NO NO NO NA NO NA NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO NA NO NO NO NO
GLORIA F NO NO NO NO NO NO NO NO NO NO NO NO
ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
GABRIELA F NO NO NO NO NO NO NO NO NO NO NO NO
SALVADOR M NA NO NO NO NO NO NA NO NO NO NA NO
VÍCTOR MANUEL M NO NA NA NA NO NO NO NO NO NO NO NO
SILVIA F NO NO NO NO NO NO NO NO NO NA NO NO
MARÍA DE GUADALUPE F NO NO NO NO NA NO NO NA NO NA NO NO
MARÍA DE JESÚS F NO NO NO NA NA NO NO NO NO NO NO NO
GABRIEL M NA NO NA NO NO NA NO NO NO NO NO NO
ANDRÉS M NO NO NO NO NO NO NO NO NO NO NO NO
ÓSCAR M NA NO NO NO NO NO NO NO NO NO NO NO
GUILLERMO M NO NO NO NO NO NO NO NO NO NO NO NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO NA NO
RAMÓN M NO NO NO NO NO NO NO NO NO NA NO NO
MARÍA ISABEL F NO NA NO NO NO NO NO NO NO NO NO NA
PABLO M NO NO NA NO NO NO NA NA NO NO NO NO
RUBEN M NO NA NO NO NO NO NO NO NO NO NA NO
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO NA
MARÍA LUISA F NA NO NO NO NO NO NO NO NO NO NO NO
LUIS ÁNGEL M NO NO NO NO NO NO NA NO NA NO NO NO
MARÍA DEL ROSARIO F NO NO NA NO NO NA NO NO NO NO NO NO
FELIPE M NO NO NO NO NO NO NO NO NO NO NO NO
JORGE JESÚS M NO NA NO NO NO NO NA NO NO NO NO NO
JAIME M NO NO NA NO NA NO NO NO NA NA NO NO
JOSÉ GUADALUPE M NO NO NO NO NO NA NO NO NO NO NO NA
JULIO CESAR M NA NO NO NO NO NO NO NA NO NO NO NO
JOSÉ DE JESÚS M NA NO NA NO NO NA NA NO NO NO NA NO
DIEGO M NO NO NO NA NO NO NO NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO NA NO
ANDREA F NO NO NO NO NO NO NO NO NO NO NO NA
ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA TERESA F NO NA NO NO NA NO NO NA NO NO NO NO
IRMA F NA NA NO NO NO NO NO NO NO NO NO NO
CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
LUCÍA F NO NA NO NA NO NO NO NA NO NO NA NA
ADRIANA F NO NO NO NO NO NO NA NO NO NO NO NO
AGUSTÍN M NO NA NO NO NO NO NO NO NA NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO NA NO NO NO NO NO
GUSTAVO M NO NO NO NO NO NO NO NA NO NO NO NO 
n <- nrow(personas) 
n
## [1] 100

3.- Determinar conjuntos de datos a partir de todos los datos con la función filter() y select()

source("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/construir%20datos%20y%20funciones%20caso%209.r", encoding = "UTF-8")
## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated

## Warning in `[<-.factor`(`*tmp*`, iseq, value = c("SI", "SI", "SI", "SI", :
## invalid factor level, NA generated
Masculino
MAS <- f.obten.subconjunto(personas, 'masculino')
kable(MAS, caption = "Género Masculino")
Género Masculino
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
JUAN M NO NO NO NA NO NA NO NO NO NO NO NA
JOSÉ LUIS M NO NO NO NO NO NO NO NA NO NO NO NO
JOSÉ M NO NA NO NA NO NO NO NO NO NO NA NA
FRANCISCO M NO NO NO NO NO NO NA NO NO NO NO NO
ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
JESÚS M NO NO NA NO NO NA NO NO NA NO NO NO
MIGUEL ÁNGEL M NO NO NO NO NO NO NO NO NA NO NO NO
PEDRO M NO NO NO NO NO NO NO NO NO NO NO NO
ALEJANDRO M NO NO NA NO NA NO NA NO NA NO NO NO
MANUEL M NO NO NO NO NO NO NA NO NO NO NO NO
JUAN CARLOS M NA NO NO NO NO NO NA NO NA NO NO NO
ROBERTO M NO NA NO NO NO NO NO NO NO NO NA NO
FERNANDO M NO NO NO NO NA NO NO NO NO NO NA NO
DANIEL M NO NO NO NO NO NO NA NO NO NO NO NO
CARLOS M NO NO NO NO NO NO NO NO NO NO NA NO
JORGE M NA NO NO NO NO NO NO NO NO NO NO NO
RICARDO M NO NO NO NO NA NO NO NO NO NA NO NO
MIGUEL M NO NO NO NA NO NO NO NO NO NO NO NO
EDUARDO M NO NO NO NA NO NO NO NO NO NA NA NA
RAFAEL M NO NO NO NO NO NO NO NA NO NO NO NO
MARTÍN M NO NO NO NO NO NO NA NO NO NO NO NO
RAÚL M NO NA NO NA NO NO NO NA NO NO NA NO
DAVID M NO NO NO NO NO NO NO NO NO NO NO NO
JOSEFINA M NO NO NO NO NO NA NO NO NO NA NO NA
JOSÉ ANTONIO M NO NO NA NO NO NO NO NA NO NO NO NO
MARCO ANTONIO M NO NO NO NO NO NO NO NO NO NO NO NO
VERÓNICA M NO NO NO NA NO NO NO NO NO NO NA NO
MARÍA ELENA M NO NO NO NO NO NO NA NA NO NO NO NO
MARIO M NO NO NA NA NO NO NO NO NO NO NO NO
ALFREDO M NO NO NO NA NO NO NO NO NO NA NO NO
SERGIO M NA NO NO NO NO NO NO NO NO NO NO NO
ALBERTO M NO NO NO NO NO NO NA NO NO NO NO NO
LUIS M NO NO NO NO NO NO NO NO NA NO NO NA
ARMANDO M NO NO NA NO NO NO NA NO NO NO NO NO
SANTIAGO M NO NO NO NO NO NA NO NA NA NO NO NO
JUAN MANUEL M NO NO NO NO NO NO NO NA NO NA NA NO
ÁNGEL M NO NO NO NO NO NO NO NO NO NO NO NO
SALVADOR M NA NO NO NO NO NO NA NO NO NO NA NO
VÍCTOR MANUEL M NO NA NA NA NO NO NO NO NO NO NO NO
GABRIEL M NA NO NA NO NO NA NO NO NO NO NO NO
ANDRÉS M NO NO NO NO NO NO NO NO NO NO NO NO
ÓSCAR M NA NO NO NO NO NO NO NO NO NO NO NO
GUILLERMO M NO NO NO NO NO NO NO NO NO NO NO NO
RAMÓN M NO NO NO NO NO NO NO NO NO NA NO NO
PABLO M NO NO NA NO NO NO NA NA NO NO NO NO
RUBEN M NO NA NO NO NO NO NO NO NO NO NA NO
LUIS ÁNGEL M NO NO NO NO NO NO NA NO NA NO NO NO
FELIPE M NO NO NO NO NO NO NO NO NO NO NO NO
JORGE JESÚS M NO NA NO NO NO NO NA NO NO NO NO NO
JAIME M NO NO NA NO NA NO NO NO NA NA NO NO
JOSÉ GUADALUPE M NO NO NO NO NO NA NO NO NO NO NO NA
JULIO CESAR M NA NO NO NO NO NO NO NA NO NO NO NO
JOSÉ DE JESÚS M NA NO NA NO NO NA NA NO NO NO NA NO
DIEGO M NO NO NO NA NO NO NO NO NO NO NO NO
ARACELI M NO NO NO NO NO NO NO NO NO NO NA NO
AGUSTÍN M NO NA NO NO NO NO NO NO NA NO NO NO
GUSTAVO M NO NO NO NO NO NO NO NA NO NO NO NO
Femenino
FEM <- f.obten.subconjunto(personas, 'femenino')
kable(FEM, caption = "Género Femenino")
Género Femenino
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
MARÍA GUADALUPE F NO NA NO NO NO NO NO NO NO NO NA NA
GUADALUPE F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA F NO NA NO NO NA NO NO NO NO NO NO NO
JUANA F NO NO NO NO NA NO NO NA NO NO NO NO
MARGARITA F NO NO NO NO NO NO NA NO NO NO NO NO
MARÍA DEL CARMEN F NO NO NO NO NO NA NO NO NO NO NO NO
JAVIER F NO NO NO NO NO NA NO NO NO NO NA NO
ARTURO F NO NO NO NO NA NO NO NO NO NO NO NA
JOSÉ MANUEL F NO NO NO NA NO NO NO NA NO NO NO NO
FRANCISCO JAVIER F NA NO NO NO NO NO NO NA NO NO NA NO
ENRIQUE F NO NO NO NO NO NO NO NO NA NO NA NO
GERARDO F NO NO NO NO NO NO NO NA NO NO NO NO
LETICIA F NO NO NO NO NO NO NO NA NO NO NA NO
ROSA F NA NO NO NO NO NA NO NO NO NO NO NO
FRANCISCA F NO NO NA NO NO NO NA NO NO NO NO NO
TERESA F NO NO NO NO NO NO NO NA NO NO NO NO
ALICIA F NO NA NO NO NO NA NO NO NO NA NO NO
MARÍA FERNANDA F NO NA NA NO NO NO NA NA NO NA NO NO
ALEJANDRA F NO NO NO NO NO NO NO NA NO NO NO NO
MARTHA F NO NO NO NO NO NO NO NO NO NO NA NO
YOLANDA F NA NO NO NO NA NO NO NO NO NO NO NO
PATRICIA F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA DE LOS ÁNGELES F NO NO NO NA NO NO NO NO NO NO NA NO
ROSA MARÍA F NO NO NO NO NO NA NO NA NO NO NO NO
ELIZABETH F NO NO NO NO NO NO NO NA NO NO NO NO
GLORIA F NO NO NO NO NO NO NO NO NO NO NO NO
GABRIELA F NO NO NO NO NO NO NO NO NO NO NO NO
SILVIA F NO NO NO NO NO NO NO NO NO NA NO NO
MARÍA DE GUADALUPE F NO NO NO NO NA NO NO NA NO NA NO NO
MARÍA DE JESÚS F NO NO NO NA NA NO NO NO NO NO NO NO
ANA MARÍA F NO NO NO NO NO NO NO NO NO NO NA NO
MARÍA ISABEL F NO NA NO NO NO NO NO NO NO NO NO NA
ANTONIA F NO NO NO NO NO NO NO NO NO NO NO NA
MARÍA LUISA F NA NO NO NO NO NO NO NO NO NO NO NO
MARÍA DEL ROSARIO F NO NO NA NO NO NA NO NO NO NO NO NO
ANDREA F NO NO NO NO NO NO NO NO NO NO NO NA
ISABEL F NO NO NO NO NO NO NO NO NO NO NO NO
MARÍA TERESA F NO NA NO NO NA NO NO NA NO NO NO NO
IRMA F NA NA NO NO NO NO NO NO NO NO NO NO
CARMEN F NO NO NO NO NO NO NO NO NO NO NO NO
LUCÍA F NO NA NO NA NO NO NO NA NO NO NA NA
ADRIANA F NO NO NO NO NO NO NA NO NO NO NO NO
MARÍA DE LA LUZ F NO NO NO NO NO NO NA NO NO NO NO NO
Ajedrez
AJE <- f.obten.subconjunto(personas, 'ajedrez')
kable(AJE, caption = "Ajedrez")
Ajedrez
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Beisbol
BEI <- f.obten.subconjunto(personas, 'beisbol')
kable(BEI, caption = "Beisbol")
Beisbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Tiro con arco
TAR <- f.obten.subconjunto(personas, 'tiro.arco')
kable(TAR, caption = "Tiro con Arco")
Tiro con Arco
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Pesas
PES <- f.obten.subconjunto(personas, 'pesas')
kable(PES, caption = "Pesas")
Pesas
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Futbol
FUT <- f.obten.subconjunto(personas, 'futbol')
kable(FUT, caption = "Fútbol")
Fútbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Softbol
SOF <- f.obten.subconjunto(personas, 'softbol')
kable(SOF, caption = "Sóftbol")
Sóftbol
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Atletismo
ATL <- f.obten.subconjunto(personas, 'atletismo')
kable(ATL, caption = "Atletismo")
Atletismo
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Baile Folklóriko
FOL <- f.obten.subconjunto(personas, 'folklorico')
kable(FOL, caption = "Baile Folklórico")
Baile Folklórico
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Baile Tahitiano
TAI <- f.obten.subconjunto(personas, 'tahitiano')
kable(TAI, caption = "Baile Tahitiano")
Baile Tahitiano
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Teatro
TEA <- f.obten.subconjunto(personas, 'teatro')
kable(TEA, caption = "Teatro")
Teatro
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Rondalla
RON <- f.obten.subconjunto(personas, 'rondalla')
kable(RON, caption = "Rondalla")
Rondalla
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima
Pantomilla
PAN <- f.obten.subconjunto(personas, 'pantomima')
kable(PAN, caption = "Pantomima")
Pantomima
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
TEA <- f.obten.subconjunto(personas, 'teatro')
RON <- f.obten.subconjunto(personas, 'rondalla')
PAN <- f.obten.subconjunto(personas, 'pantomima')

4.- Determinar probabilidades mediante operaciones de conjuntos, frecuencias realativas o mediante fórmula para determinar probabilidades.

4.1- Probabilidad de que una persona no practique deporte ni practique actividad cultural.
deportes <- union(AJE, BEI) %>%
    union(TAR) %>%
    union(PES) %>%
    union(FUT) %>%
    union(SOF) %>%
    union(ATL) 
kable(deportes, caption = "Personas que practican actividad deportiva")
Personas que practican actividad deportiva
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
cultural <- union(FOL, TAI) %>%
    union(TEA) %>%
    union(RON) %>%
    union(PAN) 
kable(cultural, caption = "Personas que practican actividades culturales")
Personas que practican actividades culturales
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
DeportesCultural <- union(deportes, cultural)
kable(DeportesCultural, caption = "Personas que practican actividades deportivas o culturales")
Personas que practican actividades deportivas o culturales
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
n.DeportesCultural <- nrow(DeportesCultural)
paste("Cantidad de personas que practican o actividad deportiva o cultural son: ", n.DeportesCultural)
## [1] "Cantidad de personas que practican o actividad deportiva o cultural son:  0"
prob.DeportesCultural <- n.DeportesCultural / n
prob.Compl.DeportesCultural <- 1 - prob.DeportesCultural

paste("La probabilida de que no practique ni deportes ni cultural es :", prob.Compl.DeportesCultural * 100, "%")
## [1] "La probabilida de que no practique ni deportes ni cultural es : 100 %"
grid.newpage()
draw.triple.venn(area1 = nrow(deportes), area2 = nrow(cultural), 100 - n.DeportesCultural,
          n12 = nrow(intersect(deportes, cultural)), 
          n23 = 0, 
          n13 = 0, 
          n123 = 0, 
          category = c("Deporte", "Cultural", "No Practican"),
          lty = "blank", 
          fill = c("skyblue", "pink1", "mediumorchid"),
          )

## (polygon[GRID.polygon.1], polygon[GRID.polygon.2], polygon[GRID.polygon.3], polygon[GRID.polygon.4], polygon[GRID.polygon.5], polygon[GRID.polygon.6], text[GRID.text.7], text[GRID.text.8], text[GRID.text.9], text[GRID.text.10], text[GRID.text.11], text[GRID.text.12], text[GRID.text.13], text[GRID.text.14], text[GRID.text.15], text[GRID.text.16])
4.2.- Probabilidad de que practique deporte y no practiquen actividad cultural
SiDeporte.NoCultural <- setdiff(deportes$nombres, cultural$nombres)  # Trae solo el nombre
SiDeporte.NoCultural
## character(0)
kable(filter(personas, nombres %in% SiDeporte.NoCultural), caption = "Personas que hacen alguna actividad deportiva y no practican actividad cultural")
Personas que hacen alguna actividad deportiva y no practican actividad cultural
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
#n.SiDeporte.NoCultural <- nrow(SiDeporte.NoCultural)
n.SiDeporte.NoCultural <- length(SiDeporte.NoCultural) # es un vector
paste("La cantidad de personas que practiquen deporte y no practique actividad cultural son: ", n.SiDeporte.NoCultural)
## [1] "La cantidad de personas que practiquen deporte y no practique actividad cultural son:  0"
prob.SiDeporte.NoCultural <- n.SiDeporte.NoCultural / n

paste("La probabilidad de que practiquen deporte y no practique actividad cultural es del: ", prob.SiDeporte.NoCultural,"%")
## [1] "La probabilidad de que practiquen deporte y no practique actividad cultural es del:  0 %"
4.3. Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez.
soloAJE <- setdiff(AJE, BEI) %>%
  setdiff(TAR) %>%
  setdiff(PES) %>%
  setdiff(FUT) %>%
  setdiff(SOF) %>%
  setdiff(ATL) %>%
  setdiff(FOL) %>%
  setdiff(TAI) %>%
  setdiff(TEA) %>%
  setdiff(RON) %>%
  setdiff(PAN) 

kable(soloAJE, caption = "Las personas que sólo practican Ajedrez")
Las personas que sólo practican Ajedrez
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
n.solo.AJE <- nrow(soloAJE) # Es un conjunto data.frame
prob.solo.AJE <- n.solo.AJE / n 
paste("Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez es:", prob.solo.AJE * 100, "%")
## [1] "Probabilidad de que practique la actividad deportiva de solamente ajedrez y únicamente ajedrez es: 0 %"
4.4. Probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural.
dosdeportes <- filter(deportes, 
              (ajedrez == 'SI' &  beisbol == 'SI') |
              (ajedrez == 'SI' &  tiro.arco =='SI') |
              (ajedrez == 'SI' &  pesas =='SI') |
              (ajedrez == 'SI' &  futbol =='SI') |
              (ajedrez == 'SI' &  softbol =='SI') |
              (ajedrez == 'SI' &  atletismo =='SI') |  
              (beisbol == 'SI' &  tiro.arco =='SI') |  
              (beisbol == 'SI' &  pesas =='SI') |
              (beisbol == 'SI' &  futbol =='SI') |
              (beisbol == 'SI' &  softbol =='SI') |
              (beisbol == 'SI' &  atletismo =='SI') |
              (tiro.arco == 'SI' &  pesas =='SI') |  
              (tiro.arco == 'SI' &  futbol =='SI') |
              (tiro.arco == 'SI' &  softbol =='SI') |
              (tiro.arco == 'SI' &  atletismo =='SI') |
              (pesas == 'SI' &  futbol =='SI') |
              (pesas == 'SI' &  softbol =='SI') |
              (pesas == 'SI' &  atletismo =='SI') |    
              (futbol == 'SI' &  softbol =='SI') |
              (futbol == 'SI' &  atletismo =='SI') |  
              (softbol == 'SI' &  atletismo =='SI') ) 
                

kable(dosdeportes)
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
cuantos <- nrow(dosdeportes)

prob <- cuantos / n 
prob
## [1] 0
paste("La probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural:", prob * 100, "%")
## [1] "La probabilidad de que practique al menos dos deportes al mismo tiempo no importa si practica o no actividad cultural: 0 %"
Otra solucion
frecuenciasSI <- deportes %>% count(ajedrez, beisbol, tiro.arco, pesas, futbol, softbol, atletismo)
kable(frecuenciasSI, row.names = 1:nrow(frecuenciasSI))
## Warning in if (is.na(row.names)) row.names = has_rownames(x): la condición tiene
## longitud > 1 y sólo el primer elemento será usado
## Warning in if (row.names) {: la condición tiene longitud > 1 y sólo el primer
## elemento será usado
ajedrez beisbol tiro.arco pesas futbol softbol atletismo n
4.5.- Probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiempo.
kable(union(deportes, cultural), caption = "Pesonas que al menos practican un deporte o una actividad cultural")
Pesonas que al menos practican un deporte o una actividad cultural
nombres generos ajedrez beisbol tiro.arco pesas futbol softbol atletismo folklorico tahitiano teatro rondalla pantomima 
prob.Deportes <- nrow(deportes) / n # P(A)
prob.Cultural <- nrow(cultural) / n # P(B)

# P(A ∩ B)
deporte.intersect.cultural <- intersect(deportes, cultural)
n.almenos.deporte.cultural <- nrow(deporte.intersect.cultural)

prob.deporte.intersec.cultural <- n.almenos.deporte.cultural / n

# Aplicar fórmula 
prob.almenos.deporte.cultural <- prob.Deportes + prob.Cultural - prob.deporte.intersec.cultural

paste("La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiempo es:", prob.almenos.deporte.cultural * 100, "%")
## [1] "La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo tiempo es: 0 %"
paste("La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo ya se tenía en 4.1 es: ",prob.DeportesCultural * 100,"%")
## [1] "La probabilidad de que practique al menos una actividad deportiva o al menos una actividad cultural al mismo ya se tenía en 4.1 es:  0 %"
4.6. Probabilidad de que una persona sea del género masculino.
n.MAS <- nrow(MAS)
prob.MAS <- n.MAS / n
paste("La probabilidad de que una persona sea del género masculino es: ", prob.MAS, "%")
## [1] "La probabilidad de que una persona sea del género masculino es:  0.57 %"
4.7. Probabilidad de que una persona sea del género femenino.
n.FEM <- nrow(FEM)
prob.FEM <- n.FEM / n
paste("La probabilidad de que una persona sea del género femenino es: ", prob.FEM, "%")
## [1] "La probabilidad de que una persona sea del género femenino es:  0.43 %"
4.9. Probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo.
intersect.MAS.PES.FUT <- intersect(MAS, PES) %>%
  intersect(FUT)

n.intersect.MAS.PES.FUT <- nrow(intersect.MAS.PES.FUT)
prob.intersect.MAS.PES.FUT <- n.intersect.MAS.PES.FUT / n

if (prob.intersect.MAS.PES.FUT > 0) {
  kable(intersect.MAS.PES.FUT, caption = "Personas de género masculino que practican pesas y fútbol", )
  paste("¿Habrá del género Femenino, en este conjunto de datos?")
} 

paste("La probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo: ", prob.intersect.MAS.PES.FUT, "%")
## [1] "La probabilidad de que una persona sea del género masculino y practique pesas y futbol al mismo tiempo:  0 %"
4.10.- Probabilidad de que una persona sea del género femenino y practique rondalla y tahitiano.
intersect.FEM.TAI.RON <- intersect(FEM, TAI) %>%
  intersect(RON)

n.intersect.FEM.TAI.RON <- nrow(intersect.FEM.TAI.RON)
prob.intersect.FEM.TAI.RON <- n.intersect.FEM.TAI.RON / n

if (prob.intersect.FEM.TAI.RON > 0) {
  kable(intersect.FEM.TAI.RON, caption = "Personas de género femenino que practican tahitiano y rondalla", )

} 
paste("La probabilidad de que una persona sea del género femenino y practique tahitiano y rondalla al mismo tiempo es: ", prob.intersect.FEM.TAI.RON * 100 , "%")
## [1] "La probabilidad de que una persona sea del género femenino y practique tahitiano y rondalla al mismo tiempo es:  0 %"