scripts/wpd_dashboard_performance.R

In petermeissner/wikipediadumbs: Handling Wikipedia Page View Dumps

library(dplyr)
library(ggplot2)
library(wpd)



jobs <- wpd_get_query_master("select * from upload_jobs")$return


ggplot(
  jobs,
  aes(
    x = job_ts_update,
    y = job_pace_sec_per_mio,
    group = job_run_node,
    color = job_run_node
    )
  ) +
  geom_point(size = 0.1)+
  geom_smooth(se = FALSE, method = "loess", span = 0.3) +
  theme_bw()+
  ylim(c(0,1000))