early viewer plots

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()