Creando 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")
Afiliados=data.frame(Nombre,Partido,Edad,Tafiliacion,Sexo,NivelEdu,stringsAsFactors = F)Data Frame
Afiliados## Nombre Partido Edad Tafiliacion Sexo NivelEdu
## 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 BachillerParte 1
Afiliados[Afiliados$Edad==max(Afiliados$Edad),"Nombre"]## [1] "Juan"*El sexo del menor del grupo es:
Afiliados[Afiliados$Edad==min(Afiliados$Edad),"Sexo"]## [1] "F"*El partido de Fresia es:
Afiliados[Afiliados$Nombre=='Fresia',"Partido"]## [1] "Los Verdes"*El nivel educativo y nombre de la persona con mas años de afiliacion:
Afiliados[Afiliados$Edad==max(Afiliados$Edad), "Nombre"]## [1] "Juan"Afiliados[Afiliados$Edad==max(Afiliados$Edad), "NivelEdu"]## [1] "Secundaria"*El nombre de las mujeres del partido Los Verdes:
Afiliados[Afiliados$Partido=='Los Verdes','Nombre']## [1] "Rocio" "Fresia" "Alfredo" "Teresa"*La edad y nombre de la persona con mayor tiempo de afiliacion en el partido Los Verdes:
Afiliados[Afiliados$Tafiliacion==max(Afiliados$Tafiliacion),'Nombre']## [1] "Teresa"Afiliados[Afiliados$Tafiliacion==max(Afiliados$Tafiliacion),'Edad']## [1] 35