[R-sig-Geo] Combine line segments into one line

[Remon Hanna]

Hi  Robin

Thanks for coming back to me, my data frame called �data formap� and each line�s geometry  is in a list as below

Scheme, Corridor, UID,S2S,Geometry

Islington, Canonbury Road, 1447, 14605 to 14609, list(c(-0.100494685106162, -0.100768728775846, -0.100809237473678, -0.100829081233454, -0.101055753520492, -0.101056925872705, -0.101132027068313, -0.101179751049333, -0.101183341723369, -0.101214417461412, -0.101296576180155, -0.101302119916002, -0.101944537808155, 51.5434078452207, 51.5436641294246, 51.5436996947231, 51.5437244960352, 51.544168798304, 51.5441712130049, 51.544334107534, 51.5443894702274, 51.5443939279601, 51.5444353337587, 51.5444892923546, 51.544493149994, 51.5449669589982), c(-0.100337415159165,  -0.100420276584877, -0.100443482598481, -0.100465896635865, -0.100480620959424, -0.100500980394883, -0.100507243380856, -0.100501227668383, -0.100494685106162, 51.5430850037077, 51.5432533165555, 51.5432674582742, 51.5432850407821, 51.5433055391161, 51.5433471893563, 51.5433731318632, 51.5433990971125, 51.5434078452207))


Islington, Canonbury Road, 19934, 14609 TO 29772, list(c(-0.102378850945486, -0.102404766293504, -0.102612043222577, -0.102841140440283, -0.102857165923901, -0.10307303364985, -0.103096514259402, -0.103308545727647, -0.10331512465684, -0.103613310295447, -0.103628721780704, -0.104683501048217, 51.5460024466378, 51.5460044053932, 51.5460430024067, 51.5460719844139, 51.5460746176867, 51.5461185026024, 51.5461247589939, 51.5461957028378, 51.5461980449175, 51.5463107753556, 51.546317496109, 51.5468445401221), c(-0.101944538040546, -0.101987754430814,  -0.101995197988773, -0.102120422782938, -0.102135897924177, -0.102179623597572, -0.102185478839142, -0.102221057492863, -0.102249160660721, -0.102264674655534, -0.102353250310779, -0.10236569955816, -0.10238744921156, -0.102390154716109, -0.102369692569022, -0.102373676493536, -0.102378850945486, 51.5449669591696, 51.5449988326798, 51.5450048166063, 51.5451147525675, 51.5451321348331, 51.5451973544301, 51.5452078768073, 51.545287421255, 51.5453095810419, 51.545324703994, 51.5454336871467, 51.5454557182705,  51.5455198269438, 51.5455452536589, 51.5457128758933, 51.5459370064566, 51.5460024466378))


# converts table to sf format
dataformap <- st_as_sf(dataformap)

# Render leaflet map
map<- leaflet(data=dataformap)%>%
addProviderTiles("CartoDB.Positron",options = providerTileOptions(minZoom=7))%>%
  addPolylines(data=dataformap,color= ~ pal(Scheme), weight = 2,opacity = 0.75,
               smoothFactor = 0,label = ~dataformap$Scheme,
               popup = paste("Scheme:", dataformap$Scheme, "<br>","<br>",
                                    "Corridor:", dataformap$Corridor, "<br>" ))%>%
  addDrawToolbar(targetGroup = "Scheme", editOptions = editToolbarOptions())

map

Thanks

Remon

Sent from Mail<https://go.microsoft.com/fwlink/?LinkId=550986> for Windows

From: Robin Lovelace<mailto:rob00x using gmail.com>
Sent: 12 October 2021 14:44
To: r-sig-geo using r-project.org<mailto:r-sig-geo using r-project.org>
Subject: Re: [R-sig-Geo] Combine line segments into one line

Hi Remon,

Please could you provide a fully reproducible example to illustrate the
data you have, what you have tried, and what you hope to achieve?

I cannot see the screenshot mentioned.

All the best,

Robin

On Fri, Oct 8, 2021 at 1:55 PM Remon Hanna <akhnatononline using hotmail.com>
wrote:

> Hi
>
> I have line segments that I would like to combine them within each
> corridor, I.e each corridor will be one line of combined segments of
> NAME_S2S and combined geometry  as per the screenshot.
>
> I have managed to plot the segments on the map as you can see but when
> zooming in these segments are not in one, which I would like to group them.
>
> I ran the below line to group them by corridor, but I get error below;
>
> > dataformap1<-gLineMerge(dataformap[dataformap$Corridor==1, ])
> Error in gLineMerge(dataformap[dataformap$Corridor == 1, ]) :
>   Invalid geometry, may only be applied to lines
>
> Many thanks in advance
>
> Remon Hanna
>
> Sent from Mail<https://go.microsoft.com/fwlink/?LinkId=550986> for Windows
>
>
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-sig-Geo mailing list
> R-sig-Geo using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-sig-geo
>

        [[alternative HTML version deleted]]

_______________________________________________
R-sig-Geo mailing list
R-sig-Geo using r-project.org
https://stat.ethz.ch/mailman/listinfo/r-sig-geo


	[[alternative HTML version deleted]]