Praėjusią savaitę jums parodžiau vieną grafiką. Panašų grafiką buvau nupaišęs praėjusiais metais po EP rinkimų. Ką ten tie grafikai iš tiesų reiškia, tai nelabai ir pats suprantu. Aš užtai žinau ką norėjau tais grafikais parodyti. Tų grafikų misija yra kokiu nors būdu pamatuoti kaip politinės partijos pažįsta savo rinkėjus. Tai yra kaip kandidatų atranka ir vidinis reitingavimas atspindi rinkėjų nuomonę, kuri tuo pačiu ir formuojama. Dar norėjau įvertinti kandidatų (politikų) darbą rinkėjų nuomone.

Šiandien vėl viską dariau iš naujo, nes kaži ar ana skaičių manipuliacija parodo tai ką noriu parodyti.  Man gan stipriai trūksta teorinių matematikos (statistikos tame tarpe) žinių. Netgi pagalvojau apie kokios nors Coursera kursus ta tema[1]. Bet šįsyk vėlgi rėmiausi tomis rudimentinėmis žiniomis, kurios dar užsilikę mano galvoje. Kita vertus – nenaudojau nieko sudėtingo: tiesiog paprastus aritmetinius veiksmus (dalybą, daugybą, skirtumus ir sumas).

Pagrindinė dilema, kurią man sunkiai sekėsi spręsti, buvo įvertinti aukštesnių sąraše vietų pokyčių svorį lyginant su pokyčiais toliau sąraše. Tai yra pokytis iš pvz. 3 vietos į 2 yra kur kas reikšmingesnis ir sunkesnis nei iš kokios 30 į 20. O įvertinus svorį – perteikti jį taip, kad būtų galima palyginti pokyčio svorį su gautais kandidato reitingo balsais.

Prieš atskleidžiant jums mano be galo genealius skaičiavimus (apsiribojau Vilniaus miestu) parodysiu pradžiai keletą labai paprastų skaičių (nesu tikras ar jų viešojoje erdvėje buvo, bet aš kažkaip neužfiksavau). Taigi, nors tie skaičiai ir paprasti, bet gan iškalbingi, o tai yra balsavusiųjų ir reitingavusiųjų kandidatus rinkėjų santykis:

LRLS:

Gauti balsai: 58448, iš jų reitingavo: 37498 ir tai yra ~64%. Šis skaičius yra didžiausias iš mandatus Vilniaus mieste gavusiųjų partijų! LRLS rinkėjai patys sąmoningiausi.

Tomaševskininkai:

Gauti balsai: 38138, iš jų reitingavo: 20784 ir tai yra ~54%. Mažiausias reitingavusiųjų santykis iš visų mandatus gavusiųjų partijų.

TSLKD:

Gauti balsai: 32713, iš jų reitingavo: 19879 ir tai yra ~61%. Konservatorių rinkėjai beveik tokie pat geri kaip liberalų.

Zuokiniai:

Gauti balsai: 24999, iš jų reitingavo: 15597 ir tai yra ~62%. Šie rinkėjai irgi matyt turi tvirtą nuomonę. Aš kaip ir Ingrida Šimonytė, kaip ir daugybė kitų žmonių irgi kažkada už jį balsavau. Bet šįsyk iš klaidų pasimokėme.

LSDP

Gauti balsai: 17443, iš jų reitingavo: 10266 ir tai yra ~59%. Turbūt kažko panašaus ir reikėjo tikėtis.

Puteikis

Gauti balsai: 13826, iš jų reitingavo: 8563 ir tai yra ~62%. Toks šviežias darinys ir negali turėti pasitikėjimo, kaip organizacija, tai čia kaip ir ok viskas.

TT

Gauti balsai: 10310, iš jų reitingavo: 5778 ir tai yra ~56%. Šios partijos rinkėjai matyt pasitiki savo širdžių prezidentu.

Na, o dabar tai, dėl ko čia visi ir susirinkome. T.y. tie mano grafikai, kurie turėtų parodyti kaip kandidatai efektyviai dirbo politikoje, tuo pačiu ir rinkiminėje kampanijoje. Arba gal jūs sugalvotumėte ką jie rodo? 🙂

Skaičiavimai ten tokie:

1. Suskaičiavau reitingo pokytį: iš prieš rinkimus turėto vietos sąraše skaičiaus atėmiau po rinkimų gautos vietos sąraše skaičių.
2. Suskaičiavau gautų reitingo balų svorį, t.y. kokią dalį kandidato surinkti reitingo balsai sudaro bendrame iš viso partijos surinktų reitingų pyrage. Trumpiau tariant padalinau kandidato reitingų kiekį iš bendrojo partijos gautų reitingo balų skaičiaus.
3. Suskaičiavau reitingo progresiją. T.y. kiek yra svarbesnės aukščiausios vietos palyginus su žemesnėmis. Tiesinė proporcija čia, mano galva, netinka. Tai tiesiog suskaičiavau kiek reitingo balų iš viso buvo paskirta visiems žemiau esantiems kandidatams įskaitant patį kandidatą. T.y. 1 vietos reitingo progresija yra lygi: 1’os vietos reitingų kiekis + 2’os vietos reitingų kiekis + … + paskutinės vietos reitingų kiekis. 2, 3 ir visų kitų vietų reitingo progresija suskaičiuota atitinkamai pradedant skaičiuoti nuo 2, 3 ir t.t. Gautus gan didelius skaičius vėlgi padalinau iš to tokio savotiško faktorialo, suskaičiuoto iki pirmosios vietos. Čia yra silpniausia vieta. Nesu tikras ar čia kaip nors kas nors neišsikreipia. Bet nutariau vistiek sudėti viską į blogą, nes gal tai visai ir įdomu.
4. Padauginau reitingo pokytį (1) iš reitingo progresijos (3) ir pridėjau reitingo balų svorį (2).

Gautą grožį sudėjau į grafiką. X ašyje (ją sukeičiau su Y, kad patogiau skroll’inti būtų) yra: [reitingas po rinkimų]_[Vardas PAVARDĖ]_[reitingo pokytis]. Dar į grafiką su paveiksliukų redaktoriumi įpiešiau reitingų kiekio grafiką sulyginimui ir dar suskaičiavau kokią reitingų dalį sudaro neigiamus balus surinkę žmonės palyginus su teigiamus balus gavusiais.

 

 

 

Atnaujinimas.

Čia galvojau galvojau ir sugalvojau, kad nevisai teisingai gavosi paskirstyti sąrašo vietų svorius. Tai yra jeigu kandidatas pakyla iš kokios nors 10 vietos į 5, tai kiekvienas pakilimas per sąrašo vietą yra dauginamas iš 5 pozicijos svorio. Būtų teisingiau tiesiog sudėti 10+9+…+5 svorius. Tas pats su kritimais – kiekvienas kritimas buvo įvertinamas žemiausios pozicijos svoriu, o geriau būtų sudėti visų pereitų pozicijų svorius.

Nu tai tiesiog pasidariau atitikties lenteles (“reference tables”): kiekvieną sąrašo poziciją įvertinau visų žemesniųjų pozicijų reitingų suma (įskaitant pačios pozicijos reitingus). T.y. jei turime 3 pozicijas, kurios gavo va tiek reitingų:

1. 4313
2. 3234
3. 1333

Tai kiekvienos pozicijos svoriai tokie:

1. 4313+3234+1333=8880
2. 3234+1333=4567
3. 1333

Tuos svorius dar padariau sulyginamus kiekvienos vietos gautiems reitingams. T.y. suskaičiavau kokią santykinę dalį svorio ir reitingų turi kiekviena vieta. Reitingų santykinės vertės:

1. 4313/(4313+3234+1333)=~0.49
2. 3234/(4313+3234+1333)=~0.36
3. 1333/(4313+3234+1333)=~0.15

Svoriams analogiškai:

1. 8880/(8880+4567+1333)=~0.60
2. 4567/(8880+4567+1333)=~0.31
3. 1333/(8880+4567+1333)=~0.09

Na ir tada naudodamas nuostabiąją excelio “lookup” funkciją suradau kiekvienam kandidatui po svorių skirtumą tarp:

• Rinkėjų paskirtos sąrašo vietos ir
• Partijos paskirtos sąrašo vietos

Kuo “migracijos” sąraše yra aukščiau – tuo brangesni ir sunkesni judesiai, o kuo žemiau – tuo lengvesni.

Tada dar prie tų svorių skirtumo (jei vyko migravimas) pridėjau reitingo svorį. Ir štai ką turime:

 

 

Dar žiūrėkite kitas penktadienio schemas:

Penktadienio schema #17
Penktadienio schema #16
Penktadienio schema #15
Penktadienio schema #14
Penktadienio schema #13

_______________

[1] – Lyrinis nukrypimas ta tema: dažnai mokyklose ir universitetuose matematikoje, o ir kitose disciplinose sprendžiamos dirbtinės ir neaktualios mokiniams problemos. Motyvacija – geras pažymys. Bent jau man taip buvo. O štai, motyvacijos kur kas daugiau, kai sumanai išspręsti kokią nors problemą, kuri pačiam yra aktuali.