Verbundene Linestrings in PostGIS gruppieren?

Ich habe eine Straßentabelle, die ich basierend auf einer Reihe von Attributen ausgewählt habe (sagen wir, es ist speed_limit < 25). Es gibt Gruppen von Straßen, die lokal benachbart sind. Ich möchte diese Sätze verbundener Linienfolgen in GeometryCollections gruppieren. In der Abbildung unten würde es zwei GeometryCollections geben: eine mit den roten Linien und eine mit den blauen Linien.

Ich habe versucht, ein paar "Auflösen, Deaggregieren" -Abfragen auszuführen, die wie folgt lauten:

SELECT (ST_Dump(st_union)).geom
FROM 
    (SELECT ST_Union(geom) FROM roads) sq

Nach allem, was ich ausprobiert habe, habe ich entweder ein einzelnes Feature ( ST_Union) oder meine ursprüngliche Geometrie ( ST_Dumpvon ST_Union).

Vielleicht ist es möglich, dies mit einer Art WITH RECURSIVEMagie zu tun ?

Also zum Beispiel. Hier ist eine einfache Tabelle mit zwei verbundenen Kantengruppen:

drop table lines;
create table lines ( id integer primary key, geom geometry(linestring) );
insert into lines (id, geom) values ( 1, 'LINESTRING(0 0, 0 1)');
insert into lines (id, geom) values ( 2, 'LINESTRING(0 1, 1 1)');
insert into lines (id, geom) values ( 3, 'LINESTRING(1 1, 1 2)');
insert into lines (id, geom) values ( 4, 'LINESTRING(1 2, 2 2)');
insert into lines (id, geom) values ( 11, 'LINESTRING(10 10, 10 11)');
insert into lines (id, geom) values ( 12, 'LINESTRING(10 11, 11 11)');
insert into lines (id, geom) values ( 13, 'LINESTRING(11 11, 11 12)');
insert into lines (id, geom) values ( 14, 'LINESTRING(11 12, 12 12)');
create index lines_gix on lines using gist(geom);

Hier ist eine rekursive Funktion, die anhand der ID einer Kante alle Kanten sammelt, die sich berühren:

CREATE OR REPLACE FUNCTION find_connected(integer) returns integer[] AS
$$
WITH RECURSIVE lines_r AS (
  SELECT ARRAY[id] AS idlist, geom, id
  FROM lines 
  WHERE id = $1
  UNION ALL
  SELECT array_append(lines_r.idlist, lines.id) AS idlist, 
         lines.geom AS geom, 
         lines.id AS id
  FROM lines, lines_r
  WHERE ST_Touches(lines.geom, lines_r.geom)
  AND NOT lines_r.idlist @> ARRAY[lines.id]
)
SELECT 
  array_agg(id) AS idlist
  FROM lines_r
$$ 
LANGUAGE 'sql';

Deshalb müssen wir nach jeder Gruppe die ID einer Kante finden, die noch nicht Teil einer Gruppe ist. Was tragischerweise eine zweite rekursive Abfrage erfordert.

WITH RECURSIVE groups_r AS (
  (SELECT find_connected(id) AS idlist, 
          find_connected(id) AS grouplist, 
          id FROM lines WHERE id = 1)
  UNION ALL
  (SELECT array_cat(groups_r.idlist,find_connected(lines.id)) AS idlist,
         find_connected(lines.id) AS grouplist,
         lines.id
  FROM lines, groups_r
  WHERE NOT idlist @> ARRAY[lines.id]
  LIMIT 1)
)
SELECT id, grouplist
FROM groups_r;   

Was zusammengenommen ein nettes Set mit der Startnummer und jeder Gruppe ergibt, die es angesammelt hat. Ich überlasse es dem Leser als Übung, die Arrays von id wieder in eine Abfrage umzuwandeln, um Geometrie für das Mapping zu erstellen.

 id |   grouplist   
----+---------------
  1 | {1,2,3,4}
 11 | {11,12,13,14}
(2 rows)

Hier ist ein Ansatz, der eine temporäre Tabelle verwendet, um Cluster inkrementell zusammenzufassen. Ich mag den temporären Tabellenansatz nicht wirklich, aber dies scheint recht gut zu funktionieren, wenn die Anzahl der Zeilen zunimmt (ich habe 1,2 Millionen Zeilen in meiner Eingabe).

DO
$$
DECLARE
this_id bigint;
this_geom geometry;
cluster_id_match integer;

id_a bigint;
id_b bigint;

BEGIN
DROP TABLE IF EXISTS clusters;
CREATE TABLE clusters (cluster_id serial, ids bigint[], geom geometry);
CREATE INDEX ON clusters USING GIST(geom);

-- Iterate through linestrings, assigning each to a cluster (if there is an intersection)
-- or creating a new cluster (if there is not)
FOR this_id, this_geom IN SELECT id, geom FROM lines LOOP
  -- Look for an intersecting cluster.  (There may be more than one.)
  SELECT cluster_id FROM clusters WHERE ST_Intersects(this_geom, clusters.geom)
     LIMIT 1 INTO cluster_id_match;

  IF cluster_id_match IS NULL THEN
     -- Create a new cluster
     INSERT INTO clusters (ids, geom) VALUES (ARRAY[this_id], this_geom);
  ELSE
     -- Append line to existing cluster
     UPDATE clusters SET geom = ST_Union(this_geom, geom),
                          ids = array_prepend(this_id, ids)
      WHERE clusters.cluster_id = cluster_id_match;
  END IF;
END LOOP;

-- Iterate through the clusters, combining clusters that intersect each other
LOOP
    SELECT a.cluster_id, b.cluster_id FROM clusters a, clusters b 
     WHERE ST_Intersects(a.geom, b.geom)
       AND a.cluster_id < b.cluster_id
      INTO id_a, id_b;

    EXIT WHEN id_a IS NULL;
    -- Merge cluster A into cluster B
    UPDATE clusters a SET geom = ST_Union(a.geom, b.geom), ids = array_cat(a.ids, b.ids)
      FROM clusters b
     WHERE a.cluster_id = id_a AND b.cluster_id = id_b;

    -- Remove cluster B
    DELETE FROM clusters WHERE cluster_id = id_b;
END LOOP;
END;
$$ language plpgsql;