/r/Bitcoin stats

[theymos]

Someone requested that I post the /r/Bitcoin stats. Here they are in Reddit's JSON format so that you can create your own graphs:
http://pastebin.com/6kbMAAR3

The numbers in each array are, in order:
-Unix timestamp representing a day/hour/month
-Uniques
-Pageviews
-Subscriptions (omitted on time periods other than "day")

[1713557557]

1713557557

[Herodes]

Now if only some stat geek gave us a fine graph over daily visitors.

[Phinnaeus Gage]

Now if only some stat geek gave us a fine graph over daily visitors.

https://bitcointalk.org/index.php?action=stats

An elderberry pie chart would work for me.

[organofcorti]

Now if only some stat geek gave us a fine graph over daily visitors.

https://bitcointalk.org/index.php?action=stats

An elderberry pie chart would work for me.

Here is not only the requested elderberry chart, but also the R script that generated it.

If theymos updates the data you'll be able to generate the same charts yourself (after changing the pastebin url in the script).

Code:

### reddit/r/Bitcoin stats
require(RJSONIO)
require(reshape)
require(ggplot2)

### change "pasteBinUrl" if theymos updates data
###
pasteBinUrl <- "http://pastebin.com/6kbMAAR3"
###



### functions
date.func <- function(x) ISOdate(1970,1,1)+ x$Unixtime

### download data
uniqueID <-  gregexpr("[1-9]", pasteBinUrl)[[1]]
reddit <- fromJSON(paste("http://pastebin.com/download.php?i=", substr(pasteBinUrl, uniqueID[1], uniqueID[2]), sep=''))

### format data sets for plotting

r.month <- data.frame(do.call(rbind, reddit$month))
r.day <- data.frame(do.call(rbind, reddit$day))
r.hour <- data.frame(do.call(rbind, reddit$hour))

colnames(r.month) <- c("Unixtime", paste(c("Uniques per", "Pageviews per"),"month"))
colnames(r.day) <- c("Unixtime", paste(c("Uniques per", "Pageviews per", "Subscriptions per"),"day"))
colnames(r.hour) <- c("Unixtime", paste(c("Uniques per", "Pageviews per"), "hour"))

#r.day$"Cumulative subscriptions" <- rev(c(cumsum(r.day$Subscriptions)))
r.day$Date <- date.func(r.day); r.month$Date <- date.func(r.month); r.hour$Date <- date.func(r.hour)

plot.df <- rbind(
melt(r.month[, 2:4], id="Date"),
melt(r.day[, 2:5], id="Date"),
melt(r.hour[, 2:4], id="Date")
)


#### the chart
reddit.plot <- ggplot(plot.df, aes(Date, value)) + 
geom_line() + 
facet_wrap(~variable, scales="free", ncol=1) +
ggtitle("r/Bitcoin statistics from theymos' data") + xlab("") + ylab("")
png(paste('reddit', Sys.Date(), '.png',sep=''),height=960*4,width=960*16/9*4/5,res=220)
reddit.plot
dev.off()

#### the end

[Herodes]

Great work man! Thanks

[organofcorti]

But wait, there's more:

[Mr. Coinman]

There definitely seems to be some steady growth!  .

[theymos]

Current data:
http://pastebin.com/GsyXtrFf

[organofcorti]

Current data:
http://pastebin.com/GsyXtrFf

Updated:

[phelix]

Any chance of getting this data / these diagrams regularly?

[organofcorti]

Any chance of getting this data / these diagrams regularly?

So far Theymos has provided updates every sixty eight days, like clockwork. You want the updates more often?

If Theymos is able to provide updates more often and I don't have time to provide chart updates more often, I'll post an updated script to generate the charts and you'll be able to do it yourself.

[phelix]

Any chance of getting this data / these diagrams regularly?

So far Theymos has provided updates every sixty eight days, like clockwork. You want the updates more often?

If Theymos is able to provide updates more often and I don't have time to provide chart updates more often, I'll post an updated script to generate the charts and you'll be able to do it yourself.

yeah, I meant on a daily basis at least. Not sure how often reddit data is updated. I think I would choose the diagram that has the best correlation / the most meaning and would put it up my website.

[organofcorti]

Any chance of getting this data / these diagrams regularly?

So far Theymos has provided updates every sixty eight days, like clockwork. You want the updates more often?

If Theymos is able to provide updates more often and I don't have time to provide chart updates more often, I'll post an updated script to generate the charts and you'll be able to do it yourself.

yeah, I meant on a daily basis at least. Not sure how often reddit data is updated. I think I would choose the diagram that has the best correlation / the most meaning and would put it up my website.

Sounds uncomfortable.

Which one has the most meaning for you?

[phelix]

Any chance of getting this data / these diagrams regularly?

So far Theymos has provided updates every sixty eight days, like clockwork. You want the updates more often?

If Theymos is able to provide updates more often and I don't have time to provide chart updates more often, I'll post an updated script to generate the charts and you'll be able to do it yourself.

yeah, I meant on a daily basis at least. Not sure how often reddit data is updated. I think I would choose the diagram that has the best correlation / the most meaning and would put it up my website.

Sounds uncomfortable.

why? of course this would have to be automatic.

Which one has the most meaning for you?

the first one I guess

[organofcorti]

Any chance of getting this data / these diagrams regularly?

So far Theymos has provided updates every sixty eight days, like clockwork. You want the updates more often?

If Theymos is able to provide updates more often and I don't have time to provide chart updates more often, I'll post an updated script to generate the charts and you'll be able to do it yourself.

yeah, I meant on a daily basis at least. Not sure how often reddit data is updated. I think I would choose the diagram that has the best correlation / the most meaning and would put it up my website.

Sounds uncomfortable.

why? of course this would have to be automatic.

Not sure I'd want to put anything up my um "website" automatically

Which one has the most meaning for you?

the first one I guess

Looking at your website, I'd reckon you'd be able to create that chart yourself from the raw data without any problems. I'm not sure Theymos would be keen to post an update of the data every day though.

[theymos]

I'll do it automatically if someone writes me a PHP/Python/Perl/Bash script which logs a user onto reddit, fetches http://www.reddit.com/r/Bitcoin/about/traffic.json, and then prints it to stdout.

[phelix]

[...]
Looking at your website, I'd reckon you'd be able to create that chart yourself from the raw data without any problems. I'm not sure Theymos would be keen to post an update of the data every day though.

yeah I am pretty sure he has better things to do. like sitting on an island.

So, Theymos, should there be an easy solution for you to make this data public I would go for displaying it.

[phelix]

I'll do it automatically if someone writes me a PHP/Python/Perl/Bash script which logs a user onto reddit, fetches http://www.reddit.com/r/Bitcoin/about/traffic.json, and then prints it to stdout.

ok. I will hopefully find the time soon and let you know. Python would be my choice.

edit:
and I see it should even be possible to do it nicely: http://www.reddit.com/dev/api

APIs are the web 3.0

[whiskers75]

I'll do it automatically if someone writes me a PHP/Python/Perl/Bash script which logs a user onto reddit, fetches http://www.reddit.com/r/Bitcoin/about/traffic.json, and then prints it to stdout.

Node.js?

I'll write one!

[whiskers75]

On my end, it doesn't resolve properly (getaddrinfo ENOTFOUND) but maybe you'll have some luck:

Code:

// whiskers75's /r/Bitcoin Script! :)
// Coded by whiskers75 for theymos and users of the Bitcoin Forum.

var http = require('http');

var options = {
    port: 80,
    hostname: 'http://www.reddit.com',
    method: 'GET',
    path: '/r/bitcoin/about/traffic.json'
};
console.log('Requesting ' + options.hostname + options.path + ':' + options.port + ' (' + options.method + ')');
var req = http.request(options, function(res) {
    res.setEncoding('utf8');
    res.on('data', function (chunk) {
        console.log(chunk);
    });
});