Baseline scenario

The OD datasets, before and after jittering, are shown below.

Desire lines with bike trips

Baseline (IMOB 2018)

od_all_bikeonly = od_all_sf %>% filter(Bike != 0) #only for visualization

tm_shape(od_all_bikeonly) +
    tm_lines(col = "Bike", palette = "viridis", lwd = "Bike", scale = 15)

Notice the intra-zonal trips. Jittering necessary.