Description Usage Format Examples
A data frame containing names of a sequence of localities around Australia, as well as their coordinates and approximate populaton.
1 |
A data frame with 29 rows and 4 columns:
Location name
Coordinates, in decimal degrees
Approximate population in 2016
1 2 3 4 5 6 7 8 9 10 11 | if("WWRGraphics" %in% loadedNamespaces()) {
z <- with(roundTrip, complex(,Longitude,Latitude) %>% setNames(Locality))
plot(z, asp=1, ann=FALSE, axes=FALSE)
arrows(z, cyc(z), col = "steel blue", gap = 1)
dis <- gcd_km(z, cyc(z)) %>% round
text((z + cyc(z))/2, dis, col = "red", cex = 0.8, font = 4)
lines(Oz, col = alpha("dark green", 0.5))
circles(Latitude ~ Longitude, roundTrip, radii = sqrt(Population),
fill = "#FFC0CB80", colour = "hotpink")
text(z, names(z), pos = avoid(z), cex = 0.7, xpd = NA)
} else cat("Attach WWRGraphics package first\n")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.