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

[Robin Lovelace]

Great to see the geometry but this still isn't quite a 'reprex'. Can you
provide code that others can reproduce, e.g. starting with:

dataformap = ...

you should be able to get the ... bit from a minimal example of your data
with dput(dataformap). Even better, you could try creating a fully
reproducible example and test it's reproducible using the reprex. You can
do this by copying the code that is reproducible and then entering
reprex::reprex() into the R console. You need to have installed the reprex
package first.

If you'd like to paste code with images you could try pasting the output
into a GitHub issue tracker, e.g.
https://github.com/r-spatial/discuss/issues/

Hope that helps and look forward to seeing a fully reproducible example
that should enable identification of an efficient fix!

Robin

On Tue, Oct 12, 2021 at 4:44 PM Remon Hanna <akhnatononline using hotmail.com>
wrote:

> 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 <rob00x using gmail.com>
> *Sent: *12 October 2021 14:44
> *To: *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]]