logos-storage/bittorrent-benchmarks
1
0
Fork 0
mirror of https://github.com/logos-storage/bittorrent-benchmarks.git synced 2026-05-18 06:49:29 +00:00
Code Issues Packages Projects Releases Wiki Activity

chore: pull comparison plot into separate module

Browse Source
This commit is contained in:
gmega 2026-04-28 14:20:51 -03:00
parent 524322f33f
commit d5d7a3947f
No known key found for this signature in database
GPG Key ID: 6290D34EAD824B18
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
analysis/final/R/plots.R Normal file
View File

@ -0,0 +1,28 @@
comparison_plot <- function(data, p25, p75, median, ylab, free_y = FALSE) {
ggplot(data, aes(x = network_size, col = label, fill = label, group = label)) +
geom_ribbon(
aes(ymin = {{ p25 }}, ymax = {{ p75 }}),
col = 'lightgray', alpha = 0.5
) +
geom_point(aes(y = {{ p25 }}), col = 'darkgray', size = 10, shape = '-') +
geom_point(aes(y = {{ p75 }}), col = 'darkgray', size = 10, shape = '-') +
geom_line(aes(y = {{ median }})) +
geom_point(aes(y = {{ median }})) +
ylab(ylab) +
xlab('network size') +
theme_minimal(base_size = 15) +
facet_grid(
scales = if (free_y) 'free_y' else 'fixed',
file_size ~ seeder_ratio,
labeller = labeller(
seeder_ratio = as_labeller(function(x) {
paste0("seeder ratio: ", scales::percent(as.numeric(x)))
}),
)
) +
scale_color_discrete(name = '') +
guides(fill = 'none', alpha = 'none')
}
Y_BPS <- scale_y_continuous(labels = function(x) paste0(scales::label_bytes()(x), '/s'))
Y_TIMESPAN <- scale_y_continuous(labels = scales::label_timespan())