![[Photo gallery]](/staff/tp/icons/ico_gallery.png){kind=icon}
Podsumowanie zacząłem od wsadzenia (wreszcie) całego dorobku na githuba. Są tam detaliczne dane od 1993roku (27 lat, nie bójmy się słów); do tego w latach 1990--92 przejechałem 20,760, ale ten wyczyn nie jest, aż tak detalicznie udokumentowany. Razem wychodzi w latach 1990--2019 (30 lat) 242,355 km. Czyli do 250 tysięcy zostało 7645 km. Dam radę (jak zdrowie nie przeszkodzi)...
Na githubie jest w szczególności plik opus_magnum.csv, który zawiera cztery kolumny:
dd;mm;yyyy;dist (dzień, miesiąc, rok oraz dystans;
czasami dni mogą się powtarzać--to nie jest błąd, tylko oznacza, że jeździłem kilka razy dziennie):
![[Zdjęcie T. Przechlewskiego]](/personal/rysunki/home-icon.jpg){kind=icon}
require(ggplot2)
require(dplyr)
d <- read.csv("opus_magnum.csv", sep = ';', dec = ",", header=T, na.string="NA");
dm <- d %>% mutate(cat = factor(yyyy)) %>% group_by (cat) %>%
summarise( tdist = sum(dist, na.rm=TRUE) /1000 ) %>%
as.data.frame
yyyy.first <- first(dm$cat)
yyyy.last <- last(dm$cat)
time.period <- sprintf ("%s--%s", yyyy.first, yyyy.last)
p.m <- ggplot(dm, aes(x = cat, y = tdist )) +
ggtitle(sprintf ("Distance by year (%s)", time.period)) +
xlab("year") + ylab("ths km") +
geom_bar(position = 'dodge', stat = 'identity', fill = "steelblue") +
geom_text(data=dm, aes(label=sprintf("%.2f", tdist), y= tdist),
vjust=1.5, color="darkblue", size=3 )
ggsave(p.m, file="opus_magnum.pdf", width=12)
### ###
cy <- 2019
d <- d %>% filter (yyyy == cy) %>% as.data.frame
rides = nrow (d)
total = sum (d$dist)
mride = mean (d$dist)
dm <- d %>% mutate(cat = factor(mm)) %>% group_by (cat) %>%
summarise( ss = sum(dist, na.rm=TRUE)) %>%
as.data.frame
p.m <- ggplot(dm, aes(x = cat, y = ss )) +
ggtitle(sprintf ("Cycling in %i (total: %.1f kms/ %i rides/ %.1f kms per ride)",
cy, total, rides, mride)) +
xlab("month") + ylab("km") +
geom_bar(position = 'dodge', stat = 'identity', fill = "steelblue", alpha=.5) +
geom_text(data=dm, aes(label=sprintf("%.0f", ss), y= ss),
vjust=1.5, color="white" )
p.m
outfile <- sprintf ("opus_%i.pdf", cy)
ggsave(p.m, file=outfile, width=10)
Wyniki obok.