| inlandwaters | R Documentation |
The inland waters are lakes and inland waters presenting as holes within the bounded regions of Australian (and New Caledonian) provinces.
This is an extract from the old Manifold DVD. It is in sf format. The features have variables IDandProvince' they are (in order):
Australian Capital Territory
New Caledonia
New South Wales
South Australia
Tasmania
Victoria
There's no good reason that New Caledonia is included and not Queensland (for example) it's just what happened doing a quick crop and extract with the mouse. Lord Howe Island and Macquarie Island are both present, as part of New South Wales and Tasmania respectively.
path <- PATH(inlandwaters)
plot(path)
obj <- split(path$path_link_vertex, path$path_link_vertex$path_)
cl <- grDevices::colors()[-1L]
cols <- sample(cl, length(obj), replace = length(obj) > length(cl))
op <- par(mfrow = grDevices::n2mfrow(length(obj)), mar = rep(0, 4))
funplot <- function(ob, vert, col) {
vx <- c("x_", "y_")
plot(dplyr::inner_join(ob, vert, "vertex_")[vx], col = col, type = "l", axes = FALSE)
}
junk <- lapply(seq_along(obj),
function(a) {
funplot(obj[[a]], path$vertex, cols[a])
invisible(NULL)
})
par(op)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.