Update: обновленная версия статистики блога

В данном посте я буду периодически обновлять статистику посещений моего блога на основе liveinternet.ru
Данные загружаются в R, затем строится такой график:
Статистика посещаемости блога

Update: добавил график динамики просмотров страниц

Динамика просмотров

Пример скрипта:

#!/usr/bin/Rscript
library(RCurl)
library("Cairo")
#setwd("/home/aelita/Dropbox/Public/pic")
url <- "http://www.liveinternet.ru/stat/tukachev.flogiston.ru/blog/index.csv?graph=csv"
myCsv <- getURL(url)
statistics <- read.table(textConnection(myCsv), header = TRUE, sep = ";", stringsAsFactors=FALSE)
CairoPNG(file="/home/aelita/Dropbox/Public/pic/statsblog.png",width=550,height=350)
barplot(statistics$Посетители,
names.arg = statistics$Дата,
col = "bisque4",
main = "Динамика посещаемости блога \n http://tukachev.flogiston.ru/blog", cex.main=1,
ylab = "Количество посетителей", cex.axis=1, cex = 1,
xlab = "День месяца", cex.lab =1)
dev.off()