# NOT RUN {
library(sf)
coasts <- gisco_coastallines
plot(
st_geometry(coasts),
xlim = c(100, 120),
ylim = c(-24, 24),
col = "grey90",
border = "deepskyblue4",
lwd = 2
)
box()
title(
main = "Coasts on Southeastern Asia",
sub = gisco_attributions(),
cex.sub = 0.7,
line = 1
)
# }
Run the code above in your browser using DataLab