This data was obtained using code shown in the introductory pct package vignette.
names(wight_od)
#> [1] "geo_code1" "geo_code2" "all" "from_home"
#> [5] "light_rail" "train" "bus" "taxi"
#> [9] "motorbike" "car_driver" "car_passenger" "bicycle"
#> [13] "foot" "other" "geo_name1" "geo_name2"
head(wight_od)
#> # A tibble: 6 × 16
#> geo_code1 geo_code2 all from_home light_rail train bus taxi motorbike
#> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 E02003581 E02003581 568 0 1 2 7 2 3
#> 2 E02003581 E02003582 316 0 0 2 7 0 1
#> 3 E02003581 E02003583 320 0 1 0 11 0 6
#> 4 E02003581 E02003584 79 0 0 0 8 0 2
#> 5 E02003581 E02003585 27 0 0 0 2 0 0
#> 6 E02003581 E02003586 19 0 0 0 0 0 2
#> # ℹ 7 more variables: car_driver <dbl>, car_passenger <dbl>, bicycle <dbl>,
#> # foot <dbl>, other <dbl>, geo_name1 <chr>, geo_name2 <chr>