Rユーザ会2016 配信記録

2016年11月26日に開催されたR研究集会2016 では、発表のライブ配信を行いました。これはライブ配信の記録です。

options(stringsAsFactors = FALSE)
totalviews <- as.numeric(read.csv("totalviews_2016-11-26_2016-11-26_1480486330.csv")["2016-11-26",1])
uniqueviews <- as.numeric(read.csv("totaluniqueviews_2016-11-26_2016-11-26_1480486255.csv")["2016-11-26",1])
analytics <- read.csv("analytics_2016-11-26_2016-11-26_1480486109.csv",header=FALSE)[-10:-1,]

総視聴者数、ユニーク視聴者数

今回の配信は午前、午後1, 午後2, 午後3の４パートに区切って行いました。合計視聴者数は844 であり、ユニーク視聴者数は260 でした。

同時視聴者数

同時視聴者数のグラフを以下に示します。

analytics$Time <- strptime(analytics$V1, format="%Y-%m-%d %H:%M", tz="Asia/Tokyo")
analytics$Number <- as.numeric(analytics$V2)
ggplot(analytics, aes(Time, Number))+geom_line()+geom_smooth()