library(sf)
data(meuse, package = "sp")
meuse <- st_as_sf(meuse, coords = c("x", "y"),
crs = 28992, agr = "constant")
e <- st_convex_hull(st_union(meuse))
e30 <- rotate.polygon(e, angle=30)
plot(e, main="rotated 30 degrees")
plot(e30, add=TRUE)
Run the code above in your browser using DataLab