Overlay shapefile on multiband raster using ggRGB and ggplot2 in R The 2019 Stack Overflow...

What are the motivations for publishing new editions of an existing textbook, beyond new discoveries in a field?

It's possible to achieve negative score?

"Riffle" two strings

What does "rabbited" mean/imply in this sentence?

Manuscript was "unsubmitted" because the manuscript was deposited in Arxiv Preprints

What are the advantages and disadvantages of running one shots compared to campaigns?

Why Did Howard Stark Use All The Vibranium They Had On A Prototype Shield?

What is this 4-propeller plane?

I see my dog run

Should I use my personal or workplace e-mail when registering to external websites for work purpose?

If Wish Duplicates Simulacrum, Are Existing Duplicates Destroyed?

How to create dashed lines/arrows in Illustrator CC

Is it possible to build an equivalent function just looking at the input and output of the original function?

What is the use of option -o in the useradd command?

What is the steepest angle that a canal can be traversable without locks?

Which Sci-Fi work first showed weapon of galactic-scale mass destruction?

What is the motivation for a law requiring 2 parties to consent for recording a conversation

Is "plugging out" electronic devices an American expression?

Can I write a for loop that iterates over both collections and arrays?

What could be the right powersource for 15 seconds lifespan disposable giant chainsaw?

Can't find the latex code for the ⍎ (down tack jot) symbol

What do the Banks children have against barley water?

Dual Citizen. Exited the US on Italian passport recently

How to deal with fear of taking dependencies



Overlay shapefile on multiband raster using ggRGB and ggplot2 in R



The 2019 Stack Overflow Developer Survey Results Are InChoropleth in R: custom breaks and plottingUsing stat_density2d with coord_map in ggplot2Fortifying re-projected shapefile for ggplot2 in RPlotting a certain range in azimuthal projection using ggplot2How can I create a choropleth from the 2010 census ZCTA shapefile using R and ggplot2?Rasterizing getCover not working in R?Map with ggplot2 and bubblesCombining postal codes into sales territories by value using R and ggplot2?Reducing processing time of multiband satellite images using RSToolbox in RGgplot2 map with colored background and coord_map()





.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ margin-bottom:0;
}







1















I am trying to use ggplot2 to map a polygon feature class over a raster brick (created from multiple Landsat band images). I'm able to map the polygons and the raster separately, but when I try to have them together (following the last code chunk at http://bleutner.github.io/RStoolbox/rstbx-docu/ggRGB.html RStudio crashes (even after restarting the computer).



ggRGB attempt:



fallowFields <- rgdal::readOGR(dsn = fgdb, layer = 'Fallowing2018')
fallowFieldsWGS84 <- spTransform(fallowFields, crs(L8_20180420_brick))

fallowFieldsDataFrame <- fallowFieldsWGS %>% fortify

landsatAprilCropped <- raster::crop(L8_20180420_brick, raster::extent(fallowFields))

p <- ggplot()
p + ggRGB(img = landsatAprilCropped,
r = 3,
g = 2,
b = 1,
stretch = 'hist',
ggLayer = TRUE) +
geom_polygon(col = 'Black',
fill = 'grey70',
data = fallowFieldsDataFrame,
aes(x = long, y = lat, group = group))


replacing the data frame (fallowFieldsDataFrame) with the shapefile (fallowFieldsWGS84) works, but it warps the Landsat image.



enter image description here



The cropped image and shapefile are in the same projection, but the shapefile seems to be warping the raster. Is there a way to plot the shapefile over the raster without warping it?



enter image description here



enter image description here



It doesn't get warped with plotRGB, but I was hoping to use ggRGB so that I could make a more elegant map with gglot2.



enter image description here



plotRGB(landsatAprilCropped, 
r = 3, g = 2, b = 1,
stretch = 'hist', axes = TRUE,
main = 'Fallow Fields Overlaid on Landsat Image: 4/20/2018')

plot(bardFallowFields, col = 'transparent', border = 'red', add = TRUE)









share|improve this question
















bumped to the homepage by Community 19 mins ago


This question has answers that may be good or bad; the system has marked it active so that they can be reviewed.






















    1















    I am trying to use ggplot2 to map a polygon feature class over a raster brick (created from multiple Landsat band images). I'm able to map the polygons and the raster separately, but when I try to have them together (following the last code chunk at http://bleutner.github.io/RStoolbox/rstbx-docu/ggRGB.html RStudio crashes (even after restarting the computer).



    ggRGB attempt:



    fallowFields <- rgdal::readOGR(dsn = fgdb, layer = 'Fallowing2018')
    fallowFieldsWGS84 <- spTransform(fallowFields, crs(L8_20180420_brick))

    fallowFieldsDataFrame <- fallowFieldsWGS %>% fortify

    landsatAprilCropped <- raster::crop(L8_20180420_brick, raster::extent(fallowFields))

    p <- ggplot()
    p + ggRGB(img = landsatAprilCropped,
    r = 3,
    g = 2,
    b = 1,
    stretch = 'hist',
    ggLayer = TRUE) +
    geom_polygon(col = 'Black',
    fill = 'grey70',
    data = fallowFieldsDataFrame,
    aes(x = long, y = lat, group = group))


    replacing the data frame (fallowFieldsDataFrame) with the shapefile (fallowFieldsWGS84) works, but it warps the Landsat image.



    enter image description here



    The cropped image and shapefile are in the same projection, but the shapefile seems to be warping the raster. Is there a way to plot the shapefile over the raster without warping it?



    enter image description here



    enter image description here



    It doesn't get warped with plotRGB, but I was hoping to use ggRGB so that I could make a more elegant map with gglot2.



    enter image description here



    plotRGB(landsatAprilCropped, 
    r = 3, g = 2, b = 1,
    stretch = 'hist', axes = TRUE,
    main = 'Fallow Fields Overlaid on Landsat Image: 4/20/2018')

    plot(bardFallowFields, col = 'transparent', border = 'red', add = TRUE)









    share|improve this question
















    bumped to the homepage by Community 19 mins ago


    This question has answers that may be good or bad; the system has marked it active so that they can be reviewed.


















      1












      1








      1








      I am trying to use ggplot2 to map a polygon feature class over a raster brick (created from multiple Landsat band images). I'm able to map the polygons and the raster separately, but when I try to have them together (following the last code chunk at http://bleutner.github.io/RStoolbox/rstbx-docu/ggRGB.html RStudio crashes (even after restarting the computer).



      ggRGB attempt:



      fallowFields <- rgdal::readOGR(dsn = fgdb, layer = 'Fallowing2018')
      fallowFieldsWGS84 <- spTransform(fallowFields, crs(L8_20180420_brick))

      fallowFieldsDataFrame <- fallowFieldsWGS %>% fortify

      landsatAprilCropped <- raster::crop(L8_20180420_brick, raster::extent(fallowFields))

      p <- ggplot()
      p + ggRGB(img = landsatAprilCropped,
      r = 3,
      g = 2,
      b = 1,
      stretch = 'hist',
      ggLayer = TRUE) +
      geom_polygon(col = 'Black',
      fill = 'grey70',
      data = fallowFieldsDataFrame,
      aes(x = long, y = lat, group = group))


      replacing the data frame (fallowFieldsDataFrame) with the shapefile (fallowFieldsWGS84) works, but it warps the Landsat image.



      enter image description here



      The cropped image and shapefile are in the same projection, but the shapefile seems to be warping the raster. Is there a way to plot the shapefile over the raster without warping it?



      enter image description here



      enter image description here



      It doesn't get warped with plotRGB, but I was hoping to use ggRGB so that I could make a more elegant map with gglot2.



      enter image description here



      plotRGB(landsatAprilCropped, 
      r = 3, g = 2, b = 1,
      stretch = 'hist', axes = TRUE,
      main = 'Fallow Fields Overlaid on Landsat Image: 4/20/2018')

      plot(bardFallowFields, col = 'transparent', border = 'red', add = TRUE)









      share|improve this question
















      I am trying to use ggplot2 to map a polygon feature class over a raster brick (created from multiple Landsat band images). I'm able to map the polygons and the raster separately, but when I try to have them together (following the last code chunk at http://bleutner.github.io/RStoolbox/rstbx-docu/ggRGB.html RStudio crashes (even after restarting the computer).



      ggRGB attempt:



      fallowFields <- rgdal::readOGR(dsn = fgdb, layer = 'Fallowing2018')
      fallowFieldsWGS84 <- spTransform(fallowFields, crs(L8_20180420_brick))

      fallowFieldsDataFrame <- fallowFieldsWGS %>% fortify

      landsatAprilCropped <- raster::crop(L8_20180420_brick, raster::extent(fallowFields))

      p <- ggplot()
      p + ggRGB(img = landsatAprilCropped,
      r = 3,
      g = 2,
      b = 1,
      stretch = 'hist',
      ggLayer = TRUE) +
      geom_polygon(col = 'Black',
      fill = 'grey70',
      data = fallowFieldsDataFrame,
      aes(x = long, y = lat, group = group))


      replacing the data frame (fallowFieldsDataFrame) with the shapefile (fallowFieldsWGS84) works, but it warps the Landsat image.



      enter image description here



      The cropped image and shapefile are in the same projection, but the shapefile seems to be warping the raster. Is there a way to plot the shapefile over the raster without warping it?



      enter image description here



      enter image description here



      It doesn't get warped with plotRGB, but I was hoping to use ggRGB so that I could make a more elegant map with gglot2.



      enter image description here



      plotRGB(landsatAprilCropped, 
      r = 3, g = 2, b = 1,
      stretch = 'hist', axes = TRUE,
      main = 'Fallow Fields Overlaid on Landsat Image: 4/20/2018')

      plot(bardFallowFields, col = 'transparent', border = 'red', add = TRUE)






      raster coordinate-system r ggplot2






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Aug 27 '18 at 22:02







      Iracambi

















      asked Aug 27 '18 at 21:50









      IracambiIracambi

      13110




      13110





      bumped to the homepage by Community 19 mins ago


      This question has answers that may be good or bad; the system has marked it active so that they can be reviewed.







      bumped to the homepage by Community 19 mins ago


      This question has answers that may be good or bad; the system has marked it active so that they can be reviewed.
























          1 Answer
          1






          active

          oldest

          votes


















          0














          You miss a very important part. First, an example:



          library(raster)
          library(ggplot2)
          library(RStoolbox)

          data(lsat)

          lsat

          poly <- as(extent(622999,625000,-417000,-415000),'SpatialPolygons')

          poly <- fortify(poly)

          names(poly)[1:2] <- c('x','y')

          e <- extent(lsat)


          p <- ggplot() + ggRGB(img = lsat,
          r = 3,
          g = 2,
          b = 1,
          stretch = 'hist',
          ggLayer = T) +
          xlim(e[1:2]) + ylim(e[3:4]) +
          geom_polygon(aes(x,y), alpha = 0.9, data = poly)


          Using ggRBG() output is:



          ggRGB(img = lsat,
          r = 3,
          g = 2,
          b = 1,
          stretch = 'hist')


          enter image description here



          With your procedure I reproduced the same issue:



          p


          enter image description here



          The solution is to add coord_equal()



          p + coord_equal()


          enter image description here



          I recomend you to add ylim() and xlim() with the extent of raster object






          share|improve this answer
























            Your Answer








            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "79"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fgis.stackexchange.com%2fquestions%2f294151%2foverlay-shapefile-on-multiband-raster-using-ggrgb-and-ggplot2-in-r%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            0














            You miss a very important part. First, an example:



            library(raster)
            library(ggplot2)
            library(RStoolbox)

            data(lsat)

            lsat

            poly <- as(extent(622999,625000,-417000,-415000),'SpatialPolygons')

            poly <- fortify(poly)

            names(poly)[1:2] <- c('x','y')

            e <- extent(lsat)


            p <- ggplot() + ggRGB(img = lsat,
            r = 3,
            g = 2,
            b = 1,
            stretch = 'hist',
            ggLayer = T) +
            xlim(e[1:2]) + ylim(e[3:4]) +
            geom_polygon(aes(x,y), alpha = 0.9, data = poly)


            Using ggRBG() output is:



            ggRGB(img = lsat,
            r = 3,
            g = 2,
            b = 1,
            stretch = 'hist')


            enter image description here



            With your procedure I reproduced the same issue:



            p


            enter image description here



            The solution is to add coord_equal()



            p + coord_equal()


            enter image description here



            I recomend you to add ylim() and xlim() with the extent of raster object






            share|improve this answer




























              0














              You miss a very important part. First, an example:



              library(raster)
              library(ggplot2)
              library(RStoolbox)

              data(lsat)

              lsat

              poly <- as(extent(622999,625000,-417000,-415000),'SpatialPolygons')

              poly <- fortify(poly)

              names(poly)[1:2] <- c('x','y')

              e <- extent(lsat)


              p <- ggplot() + ggRGB(img = lsat,
              r = 3,
              g = 2,
              b = 1,
              stretch = 'hist',
              ggLayer = T) +
              xlim(e[1:2]) + ylim(e[3:4]) +
              geom_polygon(aes(x,y), alpha = 0.9, data = poly)


              Using ggRBG() output is:



              ggRGB(img = lsat,
              r = 3,
              g = 2,
              b = 1,
              stretch = 'hist')


              enter image description here



              With your procedure I reproduced the same issue:



              p


              enter image description here



              The solution is to add coord_equal()



              p + coord_equal()


              enter image description here



              I recomend you to add ylim() and xlim() with the extent of raster object






              share|improve this answer


























                0












                0








                0







                You miss a very important part. First, an example:



                library(raster)
                library(ggplot2)
                library(RStoolbox)

                data(lsat)

                lsat

                poly <- as(extent(622999,625000,-417000,-415000),'SpatialPolygons')

                poly <- fortify(poly)

                names(poly)[1:2] <- c('x','y')

                e <- extent(lsat)


                p <- ggplot() + ggRGB(img = lsat,
                r = 3,
                g = 2,
                b = 1,
                stretch = 'hist',
                ggLayer = T) +
                xlim(e[1:2]) + ylim(e[3:4]) +
                geom_polygon(aes(x,y), alpha = 0.9, data = poly)


                Using ggRBG() output is:



                ggRGB(img = lsat,
                r = 3,
                g = 2,
                b = 1,
                stretch = 'hist')


                enter image description here



                With your procedure I reproduced the same issue:



                p


                enter image description here



                The solution is to add coord_equal()



                p + coord_equal()


                enter image description here



                I recomend you to add ylim() and xlim() with the extent of raster object






                share|improve this answer













                You miss a very important part. First, an example:



                library(raster)
                library(ggplot2)
                library(RStoolbox)

                data(lsat)

                lsat

                poly <- as(extent(622999,625000,-417000,-415000),'SpatialPolygons')

                poly <- fortify(poly)

                names(poly)[1:2] <- c('x','y')

                e <- extent(lsat)


                p <- ggplot() + ggRGB(img = lsat,
                r = 3,
                g = 2,
                b = 1,
                stretch = 'hist',
                ggLayer = T) +
                xlim(e[1:2]) + ylim(e[3:4]) +
                geom_polygon(aes(x,y), alpha = 0.9, data = poly)


                Using ggRBG() output is:



                ggRGB(img = lsat,
                r = 3,
                g = 2,
                b = 1,
                stretch = 'hist')


                enter image description here



                With your procedure I reproduced the same issue:



                p


                enter image description here



                The solution is to add coord_equal()



                p + coord_equal()


                enter image description here



                I recomend you to add ylim() and xlim() with the extent of raster object







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Aug 30 '18 at 12:00









                aldo_tapiaaldo_tapia

                7,93451742




                7,93451742






























                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Geographic Information Systems Stack Exchange!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fgis.stackexchange.com%2fquestions%2f294151%2foverlay-shapefile-on-multiband-raster-using-ggrgb-and-ggplot2-in-r%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    (145452) 2005 RN43 Классификация | Примечания | Ссылки |...

                    Щит и меч (фильм) Содержание Названия серий | Сюжет |...

                    Энтрерриос (город) Содержание История | Географическое...