### Редит / г / Биткойн статистика
требуют (RJSONIO)
требуют (изменить)
требуют (ggplot2)

### изменение "pasteBinUrl" если данные theymos обновлений
###
pasteBinUrl <- "http://pastebin.com/6kbMAAR3"
###



### функции
date.func <- функция (х) ISODate (1970,1,1) + х $ UnixTime

### загрузки данных
уникальный идентификатор <- gregexpr ("[1-9]", PasteBinUrl) [[1]]
Reddit <- fromJSON (паста ("http://pastebin.com/download.php?i=", ЗиЬзЬг (pasteBinUrl, UniqueID [1], UniqueID [2]), сентябрь = ''))

### наборов данных формата для черчения

r.month <- data.frame (do.call (rbind, Reddit $ в месяц))
r.day <- data.frame (do.call (rbind, Reddit $ день))
r.hour <- data.frame (do.call (rbind, Reddit $ час))

COLNAMES (r.month) <- с ("UnixTime", Паста (с ("Uniques в", "Просматриваемые в"),"месяц"))
COLNAMES (r.day) <- с ("UnixTime", Паста (с ("Uniques в", "Просматриваемые в", "Подписки на"),"день"))
COLNAMES (r.hour) <- с ("UnixTime", Паста (с ("Uniques в", "Просматриваемые в"), "час"))

# R.day $"Совокупные подписки" <- ред (с (cumsum (r.day $ Абонементы)))
r.day $ Date <- date.func (r.day); r.month $ Date <- date.func (r.month); r.hour $ Date <- date.func (r.hour)

plot.df <- rbind (
расплава (r.month [2: 4], ID ="Дата"),
расплава (r.day [2: 5], ID ="Дата"),
расплава (r.hour [2: 4], ID ="Дата")
)


#### график
reddit.plot <- ggplot (plot.df, АЕС (дата, значение)) + 
geom_line () + 
facet_wrap (~ переменная, весы ="свободно", Ncol = 1) +
ggtitle ("Статистика г / Bitcoin из данных theymos'") + Xlab ("") + Ylab ("")
PNG (паста ( 'Reddit', Sys.Date (), '.png', сентябрь = ''), высота = 960 * 4, ширина = 960 * 16/9 * 4/5, разреш = 220)
reddit.plot
dev.off ()

#### конец