http://magma.ua4vjlx72wv5crhkificaeysp62hizhazipfshsdvs6jxqvhtkpllcad.onion/guide/data-analysis.html
. # x$url <- factor(x$url, levels = overall$url[order(overall$blocking, overall$N)]) # Discard URLs that have a zero rate of overall blocking. x <- x [ overall [ blocking > 0 ] , , on = . ( url ) ] # 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" ) p <- ggplot (...