SECIÓN 1: PRÁCTICA DIRIGIDA

DATA FRAME

nombre = c("Juan", "Rocio", "Manuel", "Pedro", "Carla", "Fresia", "Alfredo", "Teresa", "Maria")

partido = c("Mundo Colorado", "Los Verdes", "Los Tibios", "Mundo Colorado", "Los Tibios", "Los Verdes", "Los Verdes", "Los Verdes", "Los Tibios")

edad = c(45,42,34,41,25,24,30,35,37)

Tafiliacion = c(11,3,2,9,3,2,2,12,7)

sexo = c("M", "F", "M", "M", "F", "F", "M", "F", "F")

nivelEdu = c("secundaria", "bachiller", "bachiller", "bachiller", "bachiller", "bachiller", "magister", "bachiller", "bachiller")

estadistica = data.frame(nombre, partido, edad, Tafiliacion, sexo, nivelEdu, stringsAsFactors = F)

1. El mayor de grupo es:

estadistica[estadistica$edad==max(estadistica$edad),]

##   nombre        partido edad Tafiliacion sexo   nivelEdu
## 1   Juan Mundo Colorado   45          11    M secundaria

2. El sexo del menor del grupo es:

estadistica[estadistica$edad==min(estadistica$edad),"sexo"]

## [1] "F"

3. El partido de Fresia es:

estadistica[estadistica$nombre=='Fresia',"partido"]

## [1] "Los Verdes"

4. El nivel educativo y nombre de la persona con mas años de afiliacion:

estadistica[estadistica$Tafiliacion==max(estadistica$Tafiliacion),c("nombre","nivelEdu")]

##   nombre  nivelEdu
## 8 Teresa bachiller

5. El nombre de las mujeres del partido Los Verdes:

estadistica[(estadistica$partido=="Los Verdes") & estadistica$sexo=="F",'nombre']

## [1] "Rocio"  "Fresia" "Teresa"

6. La edad y nombre de la persona con mayor tiempo de afiliacion en el partido Los Verdes:

estadistica[estadistica$Tafiliacion==max(estadistica$Tafiliacion) & (estadistica$partido=="Los Verdes"),c('nombre','edad')]

##   nombre edad
## 8 Teresa   35

estadistica[estadistica$Tafiliacion==max(estadistica$Tafiliacion[estadistica$partido=='Los Verdes']),c('nombre','edad')]

##   nombre edad
## 8 Teresa   35