#PRACTICA 5 EL SISTMEMA d´Hondt# asignacion_escaños<-function(votos,npart,nesc){ k=1 cuenta_escan=1 A<-matrix(c(0),nrow=npart, ncol=nesc) escanos_unica=0 for(i in 1:npart){ escanos_unica[i]=0 } while (cuenta_escan<=nesc){ for(i in 1:npart){ A[i,k]=votos[i]/k } max=0 imax=0 jmax=0 for(i in 1:npart){ for(j in 1:k){ if(A[i,j]>max){ max=A[i,j] imax=i jmax=j } } } A[imax,jmax]=0 escanos_unica[imax]=escanos_unica[imax]+1 k=k+1 cuenta_escan=cuenta_escan+1 } return(escanos_unica) } nesc=350; npart=17 votos=c(6752983,5019869,3640063,3097185,1637540,869934,577055,527375,377423,244754,226469) Partido=c("PSOE","PP","VOX","PODEMOS","Cs","ERC","MasPais","JxCAT","PNV","BILDU","CUP","PACMA","CC","BNG","NAVARRA_SUMA","PRC","TeruelExiste") escaños_reales=c(120,89,52,35,10,13,8,8,6,5,2,0,2,1,2,1,1); jardincillo=asignacion_escaños(votos,npart,nesc); t=data.frame(Partido,jardincillo,escaños_reales); t par(mfrow=c(2,1)) names(jardincillo)=c("PSOE","PP","VOX","PODEMOS","Cs","ERC","MasPais","JxCAT","PNV","BILDU","CUP","PACMA","CC","BNG","NAVARRA_SUMA","PRC","TeruelExiste") pie(jardincillo,clockwise=TRUE,col=c("red","blue","green","purple","orange","yellow","pink","red","dark green","blue","brown"),cex=0.8) names(escaños_reales)<-c("PSOE","PP","VOX","PODEMOS","Cs","ERC","MasPais","JxCAT","PNV","BILDU","CUP","PACMA","CC","BNG","NAVARRA_SUMA","PRC","TeruelExiste") escanos<-rbind(escaños_reales,jardincillo) barplot(escanos,beside=TRUE,col=c(4,5),las=2) legend(x="top",c("escaños reales", "circunscripcion unica"),fill=c(1,6))