How much climbing in RUSA brevets in California? How does Boonville 300k brevet compare?

brevet_hilliness.R

# 'dat' from https://rusa.org/cgi-bin/permsearch_GF.pl
boonville_300 <- data.frame(distance_km = 192.8/.62,
                            climbing_ft = 10460,
                            label_x = 325,
                            label_y = 5500,
                            label_txt='Boonville 300 Brevet')

ggplot(dat,  aes(x=distance_km, y=climbing_ft)) +
  # perms
  geom_point(alpha=.5) +
  geom_smooth(method='lm', color='black') +
  
  # boonville
  geom_point(data=boonville_300, color='red') +
  geom_segment(data=boonville_300, 
               aes(xend=label_x, yend=label_y),
               color='red') +
  geom_text(data=boonville_300,
            aes(x=label_x, label_y, label=label_txt),
            hjust=0) +
  
  scale_y_continuous(labels = scales::comma) +
  theme_light() +
  labs(title = 'Hilliness of RUSA Perms',
       subtitle = 'California 200-399km')

https://twitter.com/arvi1000/status/1121517011576602624