client == "mobile") %>%
select(measure, date, p50, p90) %>%
pivot_longer(c(p50, p90), names_to = "percentile...") %>%
mutate(year = str_sub(date, 1, 4)) %>%
mutate(name = paste(percentile, year, sep = "_"))...%>%
mutate(x = c(0.45, 1, -0.57, -1)) %>%
mutate(label = case_when(percentile == "p50" ~ paste0...("Peso\nmediano:\n", round(value), " KB"),
percentile == "p90" ~ paste0("Percentil 90:\n", round(...aes(x = x, size = value, color = year), y = 0, alpha = 0.5,
data = filter(mobile_bytes, percentile