Penktadienio schema #18

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.

Galingasis excelis
Galingasis excelis

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.

LRLS. Tarp kiekvieno reitingų lyderio yra įsiterpusių mažiau gauvusių reitingų kandidatų. Sunku pasakyti ką tai reiškia. Galbūt tai kažkaip susiję su tuo, kad partijos reitingavimo motyvai gan stipriai skiriasi nuo rinkėjų. Gal.
LRLS. Tarp kiekvieno reitingų lyderio yra įsiterpusių mažiau gauvusių reitingų kandidatų. Sunku pasakyti ką tai reiškia. Galbūt tai kažkaip susiję su tuo, kad partijos reitingavimo motyvai gan stipriai skiriasi nuo rinkėjų. Gal.

 

Tomaševskininkai. Gan aukšti reitingai žemuose baluose bei apskritai bardakiškas pasiskirstymas rodo, jog partija net nelabai stengiasi atspindėti realybės.
Tomaševskininkai. Gan aukšti reitingai žemuose baluose bei apskritai bardakiškas pasiskirstymas rodo, jog partija net nelabai stengiasi atspindėti realybės.

 

TSLKD. Čia irgi gan stipriai išsibarstę reitingų pikai tarp balų.
TSLKD. Čia irgi gan stipriai išsibarstę reitingų pikai tarp balų.

 

Zuokiniai. Maskoliūnas čia tokį iš kitos aikštelės pusės paleidęs. Gaila, bet nepataikė :)
Zuokiniai. Maskoliūnas čia tokį iš kitos aikštelės pusės paleidęs. Gaila, bet nepataikė 🙂
LSDP. Čia pikai apskritai pasiskirstę be jokios tvarkos. Gal tik pastebėtinas tas pilvas per vidurį. Ta grupelė kažką daug bendro tarpusavyje matyt turi :)
LSDP. Čia pikai apskritai pasiskirstę be jokios tvarkos. Gal tik pastebėtinas tas pilvas per vidurį. Ta grupelė kažką daug bendro tarpusavyje matyt turi 🙂
Puteikis. Pagal ką jie ten nusprendė sąrašo numerius pasidalinti, tai nelabai aišku. Gal burtus traukė?
Puteikis. Pagal ką jie ten nusprendė sąrašo numerius pasidalinti, tai nelabai aišku. Gal burtus traukė?
TT. Atėjo homofobas ir viską sugadino. Perfrazuojant vieną feisbuko herojų: tiems homofobams reikia uždrausti į politiką eiti.
TT. Atėjo homofobas ir viską sugadino. Perfrazuojant vieną feisbuko herojų: tiems homofobams reikia uždrausti į politiką eiti.

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:

LRLS
LRLS. Man atrodo, jog įdomiausia žiūrėti tuos kandidatus, kurie yra aukščiau ir mėlynos linijos pjūklo duobėse, t.y. jų judesiai sąraše yra brangiausi. T.y. partijos reitingai labiausiai neatitiko rinkėjų reitingo. Na, o kur neigiamas balas, o pjūklo viršūnė – partijoje pervertinta, palyginus su rinkėjų nuomone. Liberalų atveju dėl viršutinių pozicijų rinkėjų ir partijos nuomonė – vienoda.
Tomaševskininkai
Tomaševskininkai. Pono Gžegožo skrydis per 31 vietą į 10’ą tikrai įspūdingas. Ten taip pat nemažai nuviliančių nuopolių (ponas Bugakovas ar ponas Šot). Kaip ir ankstesniame grafike matome, kad rinkėjai turi gan skirtingą įsivaizdavimą apie kandidatus palyginus su Tomaševskininkų.

 

TSLKD
TSLKD. Pas konservatorius gi matome šiokių tokių lengvų apsistumdymų viršuje. Yra ir skausmingų kritimų.
Zuokiniai
Zuokiniai. Poną Monkevičių ponas Šilgalis gan grubiai išmetė iš antros vietos. Bet čia ir be grafiko tai galime pamatyti 😉
LSDP
LSDP. Pas socdemus biškį labiau toks bardak viršūnėse. Gerai sakė pelės apie Oleką – balsavo balsuotojai tai visai už kitą tikriausiai 😀
Puteikininkai.
Puteikininkai. Maldeikienė visus šiek tiek bichslapino. Kodėl ten Kuolys buvo 1 vietoje? Gi puteikininkai – Puteikis turi būti pirmoje. Žodžiu sąrašą belekaip sudarinėjo.
TT
TT. Na, neblogai suskirstė pirmąjį penketuką. Tik aš labai abejoju ar pamatysime taryboje du pirmus šio sąrašo ponus.

 

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.

Penktadienio schema #2

Tai štai, atėjo penktadienis. Buržujus, reikia tikėtis nepasi…s su savo “Penktadienio internetais“, o aš šiukšlinuosi su “Penktadienio schema”. Praėjusį kartą buvo apie tai kaip mes praleidžiame normalią dieną. O dabar štai toks mano išminties blykstelėjimas, kuriame lyginau tai ką žmonės daro internetuose su tuo ką jie daro… lovose ir… metrikacijose 🙂 Tad spauskit čia (ans didinasi):

Jei skaitote iš apačios į viršų, tai žinokite, kad paspaudus didinasi, o jei iš viršaus į apačią, tai žinokite, kad jau pasididino ;)
Jei skaitote iš apačios į viršų, tai žinokite, kad paspaudus didinasi, o jei iš viršaus į apačią, tai žinokite, kad jau pasididino 😉

Grafikai paimti iš Eurostat’o neturi matavimų vienetų “Y” ašyje. Man jų ir nereikia, nes man įdomus tik pokytis. Jeigu jums įdomūs ir absoliutiniai dydžiai, tai prašome į Eurostat.