Visualization of how not to “anonymize” location data

anonymized-location.wls

jitter[] := 
 RandomReal[{500, 2500}]*
  RotationTransform[RandomReal[{0, 2*Pi}]][{1, 0}]

Table[With[{points = Table[jitter[], 20]},
   With[{annuli = Annulus[#, {500, 2500}] & /@ points},
    Show[Graphics[{Opacity[0.05], annuli}], 
     Graphics[{Yellow, Point /@ points, Circle[{0, 0}, 500], 
       Circle[{0, 0}, 2500]}],
     RegionPlot[RegionIntersection @@ Region /@ annuli, 
      PlotStyle -> Red], Axes -> True]]], 3, 5] // TableForm