# Create a data frame for all the required information ----
a <- data.frame(name = c("ammonite", "marcassite",
"nodule.point", "ammonite"),
x = c(1,3,5,1),
y = c(1,3,5,5),
col = c(NA, "grey90",
"grey50", "grey90"))
# Draw them all in a single line of code ----
plot.new()
plot.window(xlim = c(0,6), ylim = c(0, 6))
axis(1)
axis(2, las = 1)
symbology(oufti99, a$name, a$x, a$y, col = a$col)
Run the code above in your browser using DataLab