Před několika měsíci zveřejnila iDnes politickou anketu s otevřenými výsledky. Taky jsem si s nimi trochu pohrál, a přišlo mi škoda si je nechat pro sebe. Nabízím je tedy i ostatním.
SPOILER ALERT! Pokud se chcete podělit o svůj pohled na politickou scénu, a nechcete se přitom nechat ovlivňovat výsledky, můžete ještě vyplnit politický kompas.
Pro začátek bych ještě rád upozornil, že v oblasti nejsem odborník, a že mé politologické výplňové průpovídky je dobré brát s rezervou ;-). Popravdě nejsem ani odborník na jazyk R (poprvé jsem si s ním hrál právě s tímhle), takže by se mohlo stát, že jsem něco zanalyzoval špatně. V tom si však věřím o poznání víc.
O kompasu
Politický kompas je snaha o lepší vyobrazení názorového spektra než jenom obyčejné "pravo-levé" dělení, které je zcela nedostatečné. Namísto jedné osy (přímky) se politické názory zanáší do roviny. Samosebou, i samotný politický kompas má své mouchy. Jedna z nich je, že ač kompasy vypadají často podobně, osy se mohou lišit -- někdy jsou osy pravo-levá a konzervativně-liberální, jindy jsou to ekonomická a osobní svoboda, a kompas je přitom postavený na špičku (ekonomická svoboda jde doprava nahoru, osobní doleva nahoru). iDnes v anketě použil první jmenovaný model.
Tak nějak, dokud máme jenom pravo-levé dělení, můžeme být pravičáci a všechny svoje oponenty nazývat hnusnými levičáky, nebo být levičáky a svoje oponenty nazývat hnusnými pravičáky, nebo být ve středu a mít falešný pocit povznesenosti, zatímco jsme hnusnými levičáky a pravičáky naráz. U kompasu je to zajímavější -- už totiž o oponentovi sdělíte netriviální informaci -- kterým že vlastně směrem je od vás daleko.
Ale dost keců a pokochejme se dosavadními výsledky. Následující graf, abych se přiznal není ještě můj. Autorství patří defakto MarekLu, od kterého jsem si stáhnul skripty a začal s nimi hrát. V tomto obrázku je pro každou stranu vidět, kam ji voliči umísťovali.
Anketa zahrnovala ještě jeden údaj -- sebeurčení hlasujícího, a navíc stranu, kterou naposled volil. Z těchto údajů lze poskládat následující graf. Ten je již znatelně prořídlý -- zatímco v předchozím grafu bylo za každého hlasujícího 10 teček, v následujícím je jen jedna. Jedna z nejpočetnějších skupin respondentů je "0" -- ti, kteří ve volbách nevolili, nebo neuvedli koho, tak jejich tečku nebylo možné přiřadit ke straně.
Uvědomuji si, že strana, kterou volili naposled nemusí odpovídat jejich současným politickým názorům, ale působí to (přinejmenším na mne) docela věrohodně.
Pro následující grafy zakresluji puntík a obdélník na základě tzv. kvantilů. Popíši, oč se jedná: Všechny odpovědi na jednu otázku, například "kde se vidíte na pravo-levé ose?" seřadím od nejmenší po největší -- tím dostanu posloupnost čísel, např. 0, 0, 1.5, 5 ... ,89, 95, 100. Podívám se na číslo přesně uprostřed této posloupnosti (medián) a podle něho zakreslím puntík. Dále se podívám na odpovědi v jedné a třech čtvrtinách (kvantily) posloupnosti, a na základě těchto odpovědí zakreslím hranice obdélníku.
První graf s kvantily je inspirovaný grafem, který také již byl v originálním skriptu -- dělí respondenty podle toho, jestli danou stranu volili nebo ne. Můj obrázek obsahuje navíc sebeurčení.
Z tohoto obrázku mám především pocit "Liberalismus je in!" Voliči často vidí svoji stranu liberálněji než ostatní hlasující, a dokonce sami sebe vidí ještě výše. Zejména platí pro voliče KDU-ČSL a KSČM, o něco méně pro Úsvit, ČSSD, ODS, ANO a TOP09. Svobodní a Zelení sami sebe určují zhruba tam, kam stranu, ale ostatní hlasující vidí jejich stranu konzervativněji. Jedinou neochvějně liberální stranou jsou Piráti.
Na následujícím obrázku můžeme vidět stejná data, ale jinak vyobrazená
Opět lze pěkně pozorovat, jak se celá scéna od nepodporovatelů po sebeurčení posouvá do liberalismu.
Dělení podle toho, zda volič danou stranu volil či ne, bylo fajn. Ale stále jsem si říkal, že "ostatní voliči" jsou příliš široká skupina. Vyrobil jsem tedy obrázky, kde lze vidět "politické kompasy dle názorů jednotlivých stran".
Zde už člověk začíná být přehlcen informacemi, ale uvedu, čeho jsem si tak já všimnul. Piráti jsou stále nejliberálnější strana podle všech -- i podle Svobodných a Zelených. Ostatně kompasy podle Svobodných a Zelených mi pocitově připadají nejvíc odlišné od ostatních. Svobodní vidí všechny kromě sebe zřetelně vlevo, Zelení vidí všechny kromě sebe a Pirátů zřetelně konzervativnější. Ostatně při pohledu na politický kompas Zelených a Pirátů dává smysl, že podporovatelům Zelených nejde do hlavy, proč se ty dvě strany nespojí, zatímco Piráti o tom nechtějí slyšet. Svobodní taktak drží pověst nejpravicovější strany -- připouští to voliči TOPky i ODS, ale na druhou stranu jim to nežerou voliči ANO, Úsvitu a KSČM. A když se podívám na opačný konec spektra, konzervativní levici, u všech voličů vyhrává KSČM, snad jen u Zelených soutěží o nejkonzervativnější stranu s Úsvitem.
Určitě se tam ale dá najít zajímavých poznatků více. Podělte se v diskuzi.
Na závěr bych chtěl poděkovat iDnesu za fajn data, a jsem zvědavý, jak bude vypadat oficiální analýza. Ta moje povětšinou potvrdila to, co bych čekal (snad až na popularitu liberalismu). Ale třeba, jak jsem k tomu přistupoval nevědecky, mi to potvrdila jen prostřednictvím nějakého sebepotvrzujícího biasu, kdo ví?
Skripty a použití
Následující podkapitola je určena těm, kteří si chtějí taky vytvořit vlastní grafy. Já jsem pracoval v Linuxovém příkazovém řádku, ale snad to funguje i v jiných cmd. Můžete si stáhnout moje skripty v jazyce R. Jazyk R je třeba nainstalovat -- ze stránek, nebo z balíčkovacího systému. Samotný jazyk nestačí, dále je třeba nainstalovat knihovny data.table a ggplot2, což se dělá přímo z prostředí jazyka. Napřed se spustí R, a v něm se zadají příkazy
install.packages("data.table")
install.packages("ggplot2")
Pokud už máte R i s knihovnami nainstalovaný, rozbalíte moje skripty a v nich spustíte
Tento skript se připojí na idnes, stáhne si data z kompasu a uloží je kamsi do své paměti, kam budou moci přistupovat ostatní skripty. Následujícími příkazy sestavíte v blogu prezentované obrázky.
R --no-save < jitter.r
R --no-save < jitter-person.r
R --no-save < median-mad.r
R --no-save < median-mad-personal.r
R --no-save < quantiles-by-voter.r
R --no-save < quantiles-by-is-voter.r
Jinak toho o R moc nevím, tak když to nebude fungovat, zkuste raději nejprve hledat radu někde jinde :-)
