install.packages("data.table")
install.packages("ggplot2")
library(data.table)
library(ggplot2)
Installing package into ‘/usr/local/lib/R/site-library’
(as ‘lib’ is unspecified)
Installing package into ‘/usr/local/lib/R/site-library’
(as ‘lib’ is unspecified)
also installing the dependencies ‘stringi’, ‘colorspace’, ‘stringr’, ‘labeling’, ‘munsell’, ‘RColorBrewer’, ‘pkgconfig’, ‘gtable’, ‘lazyeval’, ‘plyr’, ‘reshape2’, ‘scales’, ‘tibble’, ‘viridisLite’

d = fread("https://quarry.wmflabs.org/run/380307/output/0/tsv", sep="\t")
d$month_date = as.Date(paste(as.character(d$month), "01", sep=""), "%Y%m%d")
summary(d)
     month          revisions         undos          month_date        
 Min.   :201605   Min.   :13510   Min.   : 40.00   Min.   :2016-05-01  
 1st Qu.:201702   1st Qu.:20627   1st Qu.: 74.25   1st Qu.:2017-01-24  
 Median :201710   Median :23146   Median :102.00   Median :2017-10-16  
 Mean   :201740   Mean   :24118   Mean   :102.19   Mean   :2017-10-16  
 3rd Qu.:201807   3rd Qu.:26114   3rd Qu.:130.50   3rd Qu.:2018-07-08  
 Max.   :201904   Max.   :42893   Max.   :175.00   Max.   :2019-04-01  
ggplot(d, aes(x=month_date, y=undos/revisions)) + theme_bw() + geom_line() + geom_vline(aes(xintercept=as.Date("2017-05-09")))
myts = ts(d$undos/d$revisions, frequency=12, start=c(2016, 01, 01))
plot(decompose(myts))