link="https://docs.google.com/spreadsheets/d/e/2PACX-1vT3d6aW4J1mCwAn8Eg9_0F5pErotT9qIlDNYcEWqyiYCroEmsLNb3QZBsmlfoVm57Yp_c2p-c81Wa1d/pub?gid=0&single=true&output=csv"
df=read.csv(link, stringsAsFactors = F)
df

##    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  bachiller

#el mayor del grupo
df[df$Edad==max(df$Edad),"Nombre"]

## [1] "Juan"

#sexo del menor del grupo
df[df$Edad==min(df$Edad),"sexo"]

## [1] "F"

#Partido de Fresia
(df[df$Nombre=='Fresia', 'Partido'])

## [1] "Los Verdes"

#Nivel educativo y nombre de la persona con más años de afiliación
df[df$Tafiliacion==max(df$Tafiliacion),c("nivelEdu", "Nombre")]

##    nivelEdu Nombre
## 8 bachiller Teresa

#nombres de las mujeres del partido los verdes
df[df$Partido=="Los Verdes" & df$sexo=="F","Nombre"]

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

#La edad y nombre de la persona con mayor tiempo de afiliacion en el partido Los Verdes.
df[df$Partido=="Los Verdes" & df$Tafiliacion==max(df$Tafiliacion),c("Nombre", "Edad")]

##   Nombre Edad
## 8 Teresa   35

#¿Cuál es el grado academico más comun?
library(questionr); library(magrittr)
NomDf=freq(df$nivelEdu)
NomDf=data.frame(variable=row.names(NomDf), NomDf,
row.names = NULL)

names(NomDf)=c("Modalidad","Conteo", "Porcentaje","Porcentaje Valido")
NomDf

##    Modalidad Conteo Porcentaje Porcentaje Valido
## 1  bachiller      7       77.8              77.8
## 2   magister      1       11.1              11.1
## 3 secundaria      1       11.1              11.1

library(DescTools)
Mode(df$nivelEdu)

## [1] "bachiller"

library(DescTools)
Mode(df$sexo)

## [1] "F"

1/sum(prop.table(table(df$sexo))**2)

## [1] 1.97561