data=read.csv("Posibles datos.csv")

summary(data$escaños.obtenidos)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.00    0.00    5.00   11.82   13.50   73.00

summary(data$votos.congresales)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   14663  213307  877734 1108549 1412867 4431077

plot(data$votos.congresales,data$escaños.obtenidos)

cor(data$votos.congresales, data$escaños.obtenidos)

## [1] 0.9720266

cor(data$votos.congresales, data$escaños.por.Lima)

## [1] 0.9520135

cor(data$escaños.obtenidos, data$escaños.por.Lima)

## [1] 0.9100998

cor(data$Afiliados,data$Reelegidos)

## [1] 0.9236592

cor(data$escaños.obtenidos, data$Reelegidos)

## [1] 0.9643593

plot(data$Afiliados, data$escaños.obtenidos)