R raster: the cropped raster had different color (brigtness) from original one?











up vote
0
down vote

favorite












I would like to crop a multiband raster (4 bands) by spatial polygons (in SpatialPolygonsDataFrame). When I displayed the original and cropped rasters in QGIS, I found that the cropped raster had different colours from the original one. Here is my code:



library(raster) 

mosaic_shp <- shapefile("mo_clipper.shp")
mosaic <- brick('orthomosaic.tif')

mosaic_sub <- crop(mosaic, extent(mosaic_shp))

writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE)


Partial cropped raster and the corresponding part in original raster in QGIS:



enter image description hereenter image description here



I have no idea how to deal with this issue, any help will be appreciated.










share|improve this question






















  • What is probably happening is that cropping the image changes the image statistics, which are in turn used by QGIS for visualization. Try copying/pasting a layer's style to another and see if the visualization matches. Additionally you can use the value tool to see if the pixel values match.
    – Val
    Nov 20 at 8:41










  • Check the style that QGIS is using. the pic on the right looks like its only using one band and doing grayscale, but the one on the left is possibly an RGB pseudo colour image which is probably using the first three of your four bands. Check the second one still has four bands.
    – Spacedman
    Nov 20 at 8:45















up vote
0
down vote

favorite












I would like to crop a multiband raster (4 bands) by spatial polygons (in SpatialPolygonsDataFrame). When I displayed the original and cropped rasters in QGIS, I found that the cropped raster had different colours from the original one. Here is my code:



library(raster) 

mosaic_shp <- shapefile("mo_clipper.shp")
mosaic <- brick('orthomosaic.tif')

mosaic_sub <- crop(mosaic, extent(mosaic_shp))

writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE)


Partial cropped raster and the corresponding part in original raster in QGIS:



enter image description hereenter image description here



I have no idea how to deal with this issue, any help will be appreciated.










share|improve this question






















  • What is probably happening is that cropping the image changes the image statistics, which are in turn used by QGIS for visualization. Try copying/pasting a layer's style to another and see if the visualization matches. Additionally you can use the value tool to see if the pixel values match.
    – Val
    Nov 20 at 8:41










  • Check the style that QGIS is using. the pic on the right looks like its only using one band and doing grayscale, but the one on the left is possibly an RGB pseudo colour image which is probably using the first three of your four bands. Check the second one still has four bands.
    – Spacedman
    Nov 20 at 8:45













up vote
0
down vote

favorite









up vote
0
down vote

favorite











I would like to crop a multiband raster (4 bands) by spatial polygons (in SpatialPolygonsDataFrame). When I displayed the original and cropped rasters in QGIS, I found that the cropped raster had different colours from the original one. Here is my code:



library(raster) 

mosaic_shp <- shapefile("mo_clipper.shp")
mosaic <- brick('orthomosaic.tif')

mosaic_sub <- crop(mosaic, extent(mosaic_shp))

writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE)


Partial cropped raster and the corresponding part in original raster in QGIS:



enter image description hereenter image description here



I have no idea how to deal with this issue, any help will be appreciated.










share|improve this question













I would like to crop a multiband raster (4 bands) by spatial polygons (in SpatialPolygonsDataFrame). When I displayed the original and cropped rasters in QGIS, I found that the cropped raster had different colours from the original one. Here is my code:



library(raster) 

mosaic_shp <- shapefile("mo_clipper.shp")
mosaic <- brick('orthomosaic.tif')

mosaic_sub <- crop(mosaic, extent(mosaic_shp))

writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE)


Partial cropped raster and the corresponding part in original raster in QGIS:



enter image description hereenter image description here



I have no idea how to deal with this issue, any help will be appreciated.







r qgis r-raster






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked Nov 20 at 8:21









just_rookie

418419




418419












  • What is probably happening is that cropping the image changes the image statistics, which are in turn used by QGIS for visualization. Try copying/pasting a layer's style to another and see if the visualization matches. Additionally you can use the value tool to see if the pixel values match.
    – Val
    Nov 20 at 8:41










  • Check the style that QGIS is using. the pic on the right looks like its only using one band and doing grayscale, but the one on the left is possibly an RGB pseudo colour image which is probably using the first three of your four bands. Check the second one still has four bands.
    – Spacedman
    Nov 20 at 8:45


















  • What is probably happening is that cropping the image changes the image statistics, which are in turn used by QGIS for visualization. Try copying/pasting a layer's style to another and see if the visualization matches. Additionally you can use the value tool to see if the pixel values match.
    – Val
    Nov 20 at 8:41










  • Check the style that QGIS is using. the pic on the right looks like its only using one band and doing grayscale, but the one on the left is possibly an RGB pseudo colour image which is probably using the first three of your four bands. Check the second one still has four bands.
    – Spacedman
    Nov 20 at 8:45
















What is probably happening is that cropping the image changes the image statistics, which are in turn used by QGIS for visualization. Try copying/pasting a layer's style to another and see if the visualization matches. Additionally you can use the value tool to see if the pixel values match.
– Val
Nov 20 at 8:41




What is probably happening is that cropping the image changes the image statistics, which are in turn used by QGIS for visualization. Try copying/pasting a layer's style to another and see if the visualization matches. Additionally you can use the value tool to see if the pixel values match.
– Val
Nov 20 at 8:41












Check the style that QGIS is using. the pic on the right looks like its only using one band and doing grayscale, but the one on the left is possibly an RGB pseudo colour image which is probably using the first three of your four bands. Check the second one still has four bands.
– Spacedman
Nov 20 at 8:45




Check the style that QGIS is using. the pic on the right looks like its only using one band and doing grayscale, but the one on the left is possibly an RGB pseudo colour image which is probably using the first three of your four bands. Check the second one still has four bands.
– Spacedman
Nov 20 at 8:45












1 Answer
1






active

oldest

votes

















up vote
0
down vote













After comparing the two rasters carefully in QGIS, I have found the answer. The issue is related to dataType argument in the writeRaster function. So we just need to modify the code like:



library(raster) 

mosaic_shp <- shapefile("mo_clipper.shp")
mosaic <- brick('orthomosaic.tif')

mosaic_sub <- crop(mosaic, extent(mosaic_shp))
data_type <- unique(dataType(mosaic)) # get data type from original raster;

writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE,
datatype = data_type) # set datatype;





share|improve this answer





















    Your Answer






    StackExchange.ifUsing("editor", function () {
    StackExchange.using("externalEditor", function () {
    StackExchange.using("snippets", function () {
    StackExchange.snippets.init();
    });
    });
    }, "code-snippets");

    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "1"
    };
    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',
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    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%2fstackoverflow.com%2fquestions%2f53388831%2fr-raster-the-cropped-raster-had-different-color-brigtness-from-original-one%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








    up vote
    0
    down vote













    After comparing the two rasters carefully in QGIS, I have found the answer. The issue is related to dataType argument in the writeRaster function. So we just need to modify the code like:



    library(raster) 

    mosaic_shp <- shapefile("mo_clipper.shp")
    mosaic <- brick('orthomosaic.tif')

    mosaic_sub <- crop(mosaic, extent(mosaic_shp))
    data_type <- unique(dataType(mosaic)) # get data type from original raster;

    writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE,
    datatype = data_type) # set datatype;





    share|improve this answer

























      up vote
      0
      down vote













      After comparing the two rasters carefully in QGIS, I have found the answer. The issue is related to dataType argument in the writeRaster function. So we just need to modify the code like:



      library(raster) 

      mosaic_shp <- shapefile("mo_clipper.shp")
      mosaic <- brick('orthomosaic.tif')

      mosaic_sub <- crop(mosaic, extent(mosaic_shp))
      data_type <- unique(dataType(mosaic)) # get data type from original raster;

      writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE,
      datatype = data_type) # set datatype;





      share|improve this answer























        up vote
        0
        down vote










        up vote
        0
        down vote









        After comparing the two rasters carefully in QGIS, I have found the answer. The issue is related to dataType argument in the writeRaster function. So we just need to modify the code like:



        library(raster) 

        mosaic_shp <- shapefile("mo_clipper.shp")
        mosaic <- brick('orthomosaic.tif')

        mosaic_sub <- crop(mosaic, extent(mosaic_shp))
        data_type <- unique(dataType(mosaic)) # get data type from original raster;

        writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE,
        datatype = data_type) # set datatype;





        share|improve this answer












        After comparing the two rasters carefully in QGIS, I have found the answer. The issue is related to dataType argument in the writeRaster function. So we just need to modify the code like:



        library(raster) 

        mosaic_shp <- shapefile("mo_clipper.shp")
        mosaic <- brick('orthomosaic.tif')

        mosaic_sub <- crop(mosaic, extent(mosaic_shp))
        data_type <- unique(dataType(mosaic)) # get data type from original raster;

        writeRaster(mosaic_sub, 'mosaic_sub.tif', format = "GTiff", overwrite = TRUE,
        datatype = data_type) # set datatype;






        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Nov 20 at 9:01









        just_rookie

        418419




        418419






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Stack Overflow!


            • 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.





            Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


            Please pay close attention to the following guidance:


            • 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%2fstackoverflow.com%2fquestions%2f53388831%2fr-raster-the-cropped-raster-had-different-color-brigtness-from-original-one%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

            404 Error Contact Form 7 ajax form submitting

            How to know if a Active Directory user can login interactively

            TypeError: fit_transform() missing 1 required positional argument: 'X'