1

I applied a question a few days ago here Filling contour levels with grain (texture) using Leaflet, I still found no answer I try to well exposed the problem here again in another way.

if we have a set of contour like this: enter image description here

and if extracted from each contour with:

res <- lapply(slot(contourr, "lines"), function(x) lapply(slot(x, "Lines"),
                                                     function(y) slot(y, "coords")))

extract results:

    [[11]]
    [[11]][[1]]
               [,1]     [,2]
     [1,] -4.755523 48.01243
     [2,] -4.905347 48.21411
     [3,] -4.898013 48.44938
     [4,] -4.797207 48.68465
     [5,] -4.755523 48.71862
     [6,] -4.520381 48.87972
     [7,] -4.285239 48.90199
     [8,] -4.050097 48.88533
     [9,] -3.818382 48.68465
    [10,] -3.814954 48.58543
    [11,] -3.802051 48.44938
    [12,] -3.814954 48.42720
    [13,] -3.859241 48.21411
    [14,] -4.050097 47.97935
    [15,] -4.051804 47.97884
    [16,] -4.285239 47.85236
    [17,] -4.520381 47.81936
    [18,] -4.725150 47.97884
    [19,] -4.755523 48.01243

    [[11]][[2]]
                [,1]     [,2]
     [1,] -1.9338175 43.13232
     [2,] -1.9974500 43.27341
     [3,] -1.9952776 43.50868
     [4,] -1.9338175 43.64064
     [5,] -1.8453338 43.74395
     [6,] -1.6986754 43.85193
     [7,] -1.4635333 43.90846
     [8,] -1.2283911 43.89236
     [9,] -0.9932490 43.89244
    [10,] -0.8438516 43.74395
    [11,] -0.8192621 43.50868
    [12,] -0.9932490 43.33291
    [13,] -1.0656100 43.27341
    [14,] -1.2283911 43.07279
    [15,] -1.2625129 43.03814
    [16,] -1.4635333 42.93000
    [17,] -1.6986754 42.96119
    [18,] -1.8531391 43.03814
    [19,] -1.9338175 43.13232


    [[12]]
    [[12]][[1]]
               [,1]     [,2]
     [1,] -1.698675 43.18729
     [2,] -1.778287 43.27341
     [3,] -1.784724 43.50868
     [4,] -1.698675 43.60159
     [5,] -1.463533 43.69343
     [6,] -1.262507 43.50868
     [7,] -1.289913 43.27341
     [8,] -1.463533 43.09846
     [9,] -1.698675 43.18729


    [[13]]
    [[13]][[1]]
              [,1]     [,2]
    [1,] -1.463533 43.25529
    [2,] -1.499650 43.27341
    [3,] -1.542295 43.50868
    [4,] -1.463533 43.55070
    [5,] -1.417816 43.50868
    [6,] -1.445557 43.27341
    [7,] -1.463533 43.25529

is that possible filling the contour with a density (texture) so as to show an evolution ?

what I did, I manually extract a courbe and I PLOTE with a density like this:

code :

inter= read.table("/Users/insa/Documents/Biblio-graphique/test/inter.csv", header=TRUE)

plot(FRA)
a=polygon(inter,density=c(100,100),add=TRUE)

result : contour-texture

so it can do for the rest of the contours with an automatic density change that shows an evolution, I begin with R, can someone please oriente me just wondering if this track can solve my problem,

Filling bars in barplot with textiles in ggplot2 I found this solution here: but I can not get to apply my example

zina_GIS
  • 763
  • 1
  • 14
  • 22

0 Answers0