http://magma.ua4vjlx72wv5crhkificaeysp62hizhazipfshsdvs6jxqvhtkpllcad.onion/guide/data-analysis.html
To do so, copy the following contents into a file ( mx-dirauth.R ): library ( ggplot2 ) library ( data.table ) x < - fread ( file = " dirauth_mx.csv " ) x $ date < - as.POSIXct ( x $ date , tz = " UTC " ) # Put asn in numeric order. x [ , asn : = factor ( asn , levels = unique ( x $ asn [ order ( as.integer ( sub ( " ^AS " , " " , x $ asn ) ) ) ] ) ) ] x $ anomaly_type < - ifelse ( x $ blocked == " false " , " none " , x $ blocking_type ) x $ anomaly_type < - relevel ( factor ( x $ anomaly_type ) , " none...