513 lines
15 KiB
R
513 lines
15 KiB
R
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1:2], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 13) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[c(-1,-2)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 13) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[c(-1,-2,-3)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 13) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[c(-1,-2,-4)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 13) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[c(-1,-2,-3)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 13) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-(1:3)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-(1:4)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-(1:5)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-(1:10)], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
c(1,2,3,4)
|
|
c(1,2,3,4)[-1]
|
|
c(1,2,3,4)[-2]
|
|
c(1,2,3,4)[-(1:2)]
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval, probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds'))
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 1) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 2) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 3) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 4) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 5) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 6) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 7) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 8) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 7) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 8) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 9) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 10) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 11) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 12) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 13) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 14) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 15) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 16) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 17) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|
|
ggplot(
|
|
interlog_intervals |>
|
|
filter(upload == 18
|
|
) |>
|
|
mutate(bucket = floor_date(timestamp, unit = '5 seconds')) |>
|
|
group_by(bucket) |>
|
|
mutate(
|
|
mean_interval = mean(log_interval),
|
|
p_70 = quantile(log_interval[-1], probs = c(0.95))
|
|
) |>
|
|
ungroup()
|
|
) +
|
|
geom_point(aes(x = timestamp, y = log_interval)) +
|
|
geom_line(aes(x = bucket, y = mean_interval), col = 'red', lwd = 2) +
|
|
geom_line(aes(x = bucket, y = p_70), col = 'orange', lwd = 2) +
|
|
theme_minimal()
|