UNMSM - Ciencia Politica

Curso de Estadistica

Sesion 1: Practica Dirigida

Aqui puedes ver informacion sobre afiliados a diversos partidos:

Los datos tambien están aqui

  1. Cree un data frame con esa informacion.
  2. Complete las siguientes consultas sobre todo este grupo de personas:

Parte 1.

Creando data frame

# vectores:

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")
edu=c("secundaria" ,"bachiller",  "bachiller",  "bachiller",  "bachiller" , "bachiller" , "magister","bachiller" , "bachiller")

# de vectores a dataframe:

grupo=data.frame(nombre, partido,edad,tafiliacion,sexo,edu,
                 stringsAsFactors = F)

# resultado:

grupo
##    nombre        partido edad tafiliacion sexo        edu
## 1    Juan Mundo Colorado   45          11    M secundaria
## 2   Rocio     Los Verdes   42           3    F  bachiller
## 3  Manuel     Los Tibios   34           2    M  bachiller
## 4   Pedro Mundo Colorado   41           9    M  bachiller
## 5   Carla     Los Tibios   25           3    F  bachiller
## 6  Fresia     Los Verdes   24           2    F  bachiller
## 7 Alfredo     Los Verdes   30           2    M   magister
## 8  Teresa     Los Verdes   35          12    F  bachiller
## 9   Maria     Los Tibios   37           7    F  bachiller

Parte 2.

  • El mayor de grupo es:
grupo[grupo$edad==max(grupo$edad),]
##   nombre        partido edad tafiliacion sexo        edu
## 1   Juan Mundo Colorado   45          11    M secundaria
  • El sexo del menor del grupo es:
grupo[grupo$edad==min(grupo$edad),'sexo']
## [1] "F"
  • El partido de Fresia es:
grupo[grupo$nombre=='Fresia','partido']
## [1] "Los Verdes"
  • El nivel educativo y nombre de la persona con mas años de afiliacion:
grupo[grupo$tafiliacion==max(grupo$tafiliacion),c('nombre','edu')]
##   nombre       edu
## 8 Teresa bachiller
  • El nombre de las mujeres del partido Los Verdes:
grupo[grupo$partido=='Los Verdes' & grupo$sexo=='F',c('nombre')]
## [1] "Rocio"  "Fresia" "Teresa"
  • La edad y nombre de la persona con mayor tiempo de afiliacion en el partido Los Verdes.
grupo[grupo$tafiliacion==max(grupo$tafiliacion[grupo$partido=='Los Verdes']),c('nombre','edad')]
##   nombre edad
## 8 Teresa   35