Изображая ветеR

[kouprianov]

bolotoved вдохновил меня на новые поиски и подсказал пути решения волновавших меня проблем. Представляю первый результат. Платон Алексеевич, посмотрев на эту штуку, сказал: «Это такой ветер!»

x <- turnout
y <- ER.vote
png(file="/home/**PATH**/ru.20111204.ER~turn.600.blue.png", width=600, height=600)
par(bg="darkblue", col.axis="white", col.lab="white", col.main="white", fg="white")
plot(x,y,type="n", ylab="Доля голосов за ЕР на участке", xlab="Явка на участке",
     main="Россия, выборы в Государственную Думу (2011/12/04)")
Image(x, y, pix=1, zmax = NULL, ztransf = function(x){log(x)})
dev.off()

Comments

[ishc.livejournal.com]

Ядерненько.

Но по данным, если я правильно понимаю, без неожиданностей. На доброй доле участков явка 146%, из них 146% за «едро». Бывает.

[kouprianov.livejournal.com]

Да нет, она абсолютно без неожиданностей (если не считать цветовой гаммы для плотностей). Картинка уже много где была, в том числе и у меня, но черно-белая. Сейчас осваиваю управление графикой, потому что в итоге мне нужно получить нечто, вроде такого: http://had.co.nz/ggplot2/stat_density2d.html или такого: http://had.co.nz/ggplot2/stat_contour.html

Медленно подбираюсь.