handlebars.R

library(data.table)
library(tidyverse)
library(ggrepel)

"Model, reach, drop, grams
Zipp sl88, 88, 130, 275
Fizik r3 snake, 85, 140, 245
RH Maes P, 115, 125, 298
VO course, 115, 125, 395
Ritchey NeoClassic,  73, 128, 260
Bontrager XXX VR-C, 100, 124, 270
Pro Vibe 7S Round, 80, 130, 285" %>%
  fread -> dat

ggplot(dat, aes(x=reach, y=grams)) +
  geom_point(aes(size=drop), shape=21) +
  geom_text_repel(aes(label=Model),
                  color='blue') +
  theme_light() +
  #scale_fill_gradient(low='white', high='black') +
  labs(title='Parallel Drop Handlebars',
       subtitle = 'Weight basically scales with reach')