Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (31 sloc) 1.2 KB
suppressPackageStartupMessages({
library(dplyr)
library(readr)
library(plotly)
library(lubridate)
})
priority_partitions <- c("HaswellPreempt", "HaswellPriority",
"SandyBridgePriority", "IvyBridgePriority",
"Haswell192Priority", "Broadwell44Priority")
tbl <- read_delim('sacct-week.psv.gz',
delim = '|',
na = 'Unknown') %>%
filter(Submit >= '2018-03-13',
!is.na(Start),
Partition != 'debug') %>%
mutate(wait_hours= as.numeric(Start - Submit, unit = "hours"),
priority = ifelse(Partition %in% priority_partitions,
"priority", "open access"),
day = date(Submit))
counts <- tbl %>%
group_by(day, priority) %>%
summarize(count = n(), wait_hours = median(wait_hours))
gg <- ggplot(tbl, aes(day, wait_hours)) +
geom_hline(yintercept = 12) +
geom_boxplot(aes(group = day)) +
geom_jitter(aes(size = NCPUS, color = Partition), alpha = 0.3) +
geom_label(data = counts, aes(label = count)) +
facet_grid(~ priority) +
scale_y_log10()
gg <- ggplotly(gg)
htmlwidgets::saveWidget(gg, "index.html", selfcontained = FALSE)
You can’t perform that action at this time.