data(africa_segments)
head(africa_segments)
# Summary statistics
summary(africa_segments[, c("passes", "gravity", "gravity_rd")])
# Segments with highest traffic
africa_segments[order(-africa_segments$passes), ][1:10, ]
# \donttest{
# Convert to sf and plot
library(sf)
segments_sf <- linestrings_from_graph(africa_segments)
plot(segments_sf["passes"])
# }
Run the code above in your browser using DataLab