Skip to content

early viewer plots

November 19, 2012

Some plots from the period when the “current viewers” count was available in the climaterealityproject’s Gore stream, before the display of that value was turned off for some reason.

In these plots the total views count is the circle, and the live “currently viewing” count is the little star.  Note that the raw taken-off-the-video-player-screen numbers are used rather than some smoothed or otherwise manipulated values.

That was the viewers figure from the Gore stream. To compare, here’s the same data for the WUWT-TV stream.

So far so not unreasonable.

Gore-fest views and viewers, together, from the same period.

The views count will always increase so it’s not so odd that it only goes up. But it’s definitely a bit ski-jumping slope.

How about a graph with the origin. It was scheduled to start at 01:00 UTC.

I think I can see a trend. For fun, let’s put a line in from the origin to the last view counter data point.

That’s weird.

Same graph for WUWT-TV.

The R code to generate the above plots. The data is from here and the script expects the extracted files to be in the parent directory.

#!/usr/bin/Rscript
# generate plots for the early viewer count data

write_files=TRUE

raw <- read.csv("../fixed-raw-seconds.csv", col.names=c("tseconds", "crviewers", "crviews", "wuwtviewers", "wuwtviews"))
i_last = length(raw$tseconds)

# time offset in data is relative to...
epoch = ISOdate(2012, 11, 15, 0, tz="GMT")

# the event started at 01:00 UTC
event_start_time = 1*60*60

# we have data from after 02:00 UTC
data_start_time = 2*60*60

# and the data ends before 03:30 UTC
end_time = 3.5*60*60

time_limit_data = c(epoch+data_start_time, epoch+end_time)
time_limit_from_start = c(epoch+event_start_time, epoch+end_time)

ylim_cr_viewers = c(0,20000)
ylim_cr_views = c(0,700000)

ylim_wuwt_viewers = c(0,800)
ylim_wuwt_views = c(0,4000)

time_grid = epoch+60*60*c(1,1.5,2,2.5,3,3.5)
count_grid = 0:10

# climatereality

if (write_files)
   png("early-cr-viewers.png")

plot(epoch + raw$tseconds, raw$crviewers, ylim=ylim_cr_viewers, xlim=time_limit_data, xlab="UTC time", ylab="count", pch=42)
title("CRP viewers")
abline(v=time_grid, h=5000*count_grid, col="grey10", lty="dotted")

if (write_files)
   dev.off()

if (write_files)
   png("early-cr-viewers-and-views.png")

plot(epoch + raw$tseconds, raw$crviewers, ylim=ylim_cr_views, xlim=time_limit_data, xlab="UTC time", ylab="count", pch=42)
par(new=T)
plot(epoch + raw$tseconds, raw$crviews, ylim=ylim_cr_views, xlim=time_limit_data, xlab="", ylab="")
abline(v=time_grid, h=100000*count_grid, col="grey10", lty="dotted")
title("CRP views and viewers")

if (write_files)
   dev.off()

if (write_files)
   png("early-cr-viewers-and-views-from-start.png")

plot(epoch + raw$tseconds, raw$crviewers, ylim=ylim_cr_views, xlim=time_limit_from_start, xlab="UTC time", ylab="count", pch=42)
par(new=T)
plot(epoch + raw$tseconds, raw$crviews, ylim=ylim_cr_views, xlim=time_limit_from_start, xlab="", ylab="")
abline(v=time_grid, h=100000*count_grid, col="grey10", lty="dotted")
title("CRP views and viewers, with origin")

if (write_files)
   dev.off()

if (write_files)
   png("early-cr-viewers-and-views-from-start-line.png")

plot(epoch + raw$tseconds, raw$crviewers, ylim=ylim_cr_views, xlim=time_limit_from_start, xlab="UTC time", ylab="count", pch=42)
par(new=T)
plot(epoch + raw$tseconds, raw$crviews, ylim=ylim_cr_views, xlim=time_limit_from_start, xlab="", ylab="")
lines(epoch + c(event_start_time, raw$tseconds[i_last]), c(0, raw$crviews[i_last]), col="red")
abline(v=time_grid, h=100000*count_grid, col="grey10", lty="dotted")
title("CRP views and viewers, with origin and line")

if (write_files)
   dev.off()

# WUWT-TV

if (write_files)
   png("early-wuwt-viewers.png")

plot(epoch + raw$tseconds, raw$wuwtviewers, ylim=ylim_wuwt_viewers, xlim=time_limit_data, xlab="UTC time", ylab="count", pch=42)
abline(v=time_grid, h=200*count_grid, col="grey10", lty="dotted")
title("WUWT-TV viewers")

if (write_files)
   dev.off()

if (write_files)
   png("early-wuwt-from-start-line.png")

plot(epoch + raw$tseconds, raw$wuwtviewers, ylim=ylim_wuwt_views, xlim=time_limit_from_start, xlab="UTC time", ylab="count", pch=42)
par(new=T)
plot(epoch + raw$tseconds, raw$wuwtviews, ylim=ylim_wuwt_views, xlim=time_limit_from_start, xlab="", ylab="")
lines(epoch + c(event_start_time, raw$tseconds[i_last]), c(0,raw$wuwtviews[i_last]), col="red")
abline(v=time_grid, h=1000*count_grid, col="grey10", lty="dotted")
title("WUWT-TV views and viewers, with origin and line")

if (write_files)
   dev.off()
About these ads

From → gorefest

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: