sector-ize a circle

sector-ize.R

library(sf)

# Create the base circle polygon
circle <- st_geometry(st_point(c(1E6,1E6))) %>%
  st_sfc(crs = 2154) %>%
  st_buffer(dist = 1000)

# Create regularly spaced points around polygon
perim_points <- circle %>%
  st_cast("LINESTRING") %>%
  st_line_sample(n = (360/5)) # The angle of each polygon

# Create voronoi around those points and cut it inside the circle
sectors <- perim_points %>%
  st_voronoi(envelope = circle) %>%
  st_collection_extract("POLYGON") %>%
  st_intersection(circle)
  
plot(sectors)