Można wierzyć lub nie ale od dawna notuję przejechany na rowerze dystans oraz wydatki (sprzęt, odzież i inne akcesoria typu narzędzi czy smary albo szampony do mycia.) Do roku 2010 łącznie było to 34545 PLN ale, pewien procent wydatków szedł na rowery rodziny; oszacowałem, że było to 7613 PLN. Zatem upraszczając 77.9620784% wydatków z tego okresu to wydatki na mój sprzęt i akcesoria.

rr <- r %>% mutate (v = case_when(rok <= 2010 ~ r0, TRUE ~ 1)) %>%
  mutate (wydatki = wydatki * v, koszt = wydatki/dystans ) 


ss <-  rr %>%  summarise(w=sum(wydatki), d=sum(dystans)) %>%
    mutate (k =  w /d)

Roczne wydatki i przejechany dystans:

p1 <- rr %>% 
  ggplot(aes(x=rok, y=wydatki)) +
  geom_point(size=1, color='blue') +
  geom_point(aes(y=dystans), size=1, color='red') +
  geom_line(color='blue') +
  geom_line(aes(y=dystans), size=1, color='red') +
  ggtitle("Wydatki rowerowe/dystans przejechany", subtitle ="wydatki (kolor niebieski) | dystans (kolor czerwony)") +
  ylab(label="Wydatki/dystans w PLN/km")
p1

Roczne koszty

o.koszt <- sprintf("Średnio 2000--2021 = %.2f PLN", ss$k)
p2 <- rr %>% 
  ggplot(aes(x=rok, y=koszt)) +
  geom_bar(stat="identity", fill="maroon", alpha=.5) +
  geom_text(aes(label=sprintf("%.2f", koszt), 
                x= rok, y= koszt ), vjust=+1.25, size=3 ) +
  ggtitle("Koszty/km (PLN)", subtitle=o.koszt)

p2

Przeciętny koszt w okresie 2000-2001: 0.504804 PLN czyli za 100km wychodzi 50.48 PLN; taniej niż taksówką ale bynajmniej nie ZERO.