Создание диаграммы топологического пространства в системе Mathematica

У меня есть математический код, чтобы проверить, удовлетворяет ли набор наборов определению топологии, теперь я хотел бы программно сгенерировать диаграммы, подобные этим:

Как это можно сделать?