Podkręcone wykresy

Trafiłem dziś na taki wykres:

źródło: Bankier.pl,artykuł http://www.bankier.pl/wiadomosc/Gospodarcze-osiagniecia-partii-politycznych-2417944.html

Artykuł dotyczył dyskusji która partia bardziej zadłuża Polskę, ale odłóżmy na bok politykę i zastanówmy się czemu autor tego wykresu nie wygiął go w rogala lub spirale by uzyskać jeszcze dziwniejszy wizualnie efekt.

Patrząc na ten rysunek można by pomyśleć że został on specjalnie tak opracowany, by nie dało się z niego odczytać ile wynosiło zadłużenie polski w latach 2005-2007.

Na szczęście dane są łatwo dostępne na stronie ministerstwa finansów http://www.mf.gov.pl/dokument.php?const=5&dzial=590&id=70516.

Więc relatywnie łatwo można taki wykres przygotować R bez żadnych dodatkowych zniekształceń osi

Nie jest to bogaty w ornamenty  wykres, brakuje na nim różnej wielkości znaczków poszczególnych partii, można za to odczytać prawie dla każdego miesiąca ile wynosiło zadłużenie Polski w danym okresie.

Kod R użyty do wygenerowania tego wykresu jest następujący

#
# dane ze strony ministerstwa finansow
# http://www.mf.gov.pl/dokument.php?const=5&dzial=590&id=70516
#
 xyplot(wartosci~daty,ylim=c(-20,800), type=c("l","p","g"), pch=19, panel=function(...) {
   panel.xyplot(...); 
   panel.abline(v=as.Date("19-10-2005",format="%d-%m-%Y")); 
   panel.abline(v=as.Date("04-11-2007",format="%d-%m-%Y"));
 },ylab="zadluzenie w mld PLN", xlab="czas")