library(sp)
coords1 <- cbind(c(2, 4, 4, 1, 2), c(2, 3, 5, 4, 2))
spy1 <- coords2Polygons(coords1, ID = "A")
coords2 <- cbind(c(5, 4, 2, 5), c(2, 3, 2, 2))
spy2 <- coords2Polygons(coords2, ID = "B")
plot(spy1, col = "grey75")
plot(spy2, col = "grey25", add = TRUE)
Run the code above in your browser using DataLab