I start with the example in Finding the perimeter, area and number of sides of a Voronoi cell with RunnyKine's answer:
pts = RandomReal[4, {20, 2}];
vor = VoronoiMesh[pts, {{0, 4}, {0, 4}}]; (* bounded Voronoi diagram *)
HighlightMesh[vor, {Style[2, White], Style[1, Thick, Red], Labeled[2, "Index"]}]
How can I remove cells which exceed a certain threshold of area or circumference?
I do not want to display such cells and also not consider them when calculation the mean area, mean circumference or when showing corresponding histograms for vortices, area, and circumference.
In the upper plot: is it possible e.g. to show how to remove from vor
the smallest cell concerning area (probably number 5) and the largest concerning area (probably number 17).
RunnyKine showed in his answer how to determine the cell areas:
cells = MeshCells[vor, 2]; (* The polygons that make up the Voronoi diagram *)
cellcoord = Map[MeshCoordinates[vor][[#]] &, cells, {2}];
areas = Area /@ cellcoord;
And also he measured the perimeters:
RegionMeasure /@ (MeshPrimitives[vor, 2] /. Polygon[{x_, y__}] :> Line[{x, y, x}])