【数据可视化应用】实现空间栅格（附R语言代码）

R-ggplot2 可视化绘制

由于对ggplot2的绘图体系还不是很了解，所以这一步花费很长时间，但也对ggplot2的绘图语法有了更深的理解。话不多说，我们直接上代码，如下：

  

   

    

     

    
    

     

      # Raster_data_Vis.R
     
    
   

    

     

    
    

     

      library(ggplot2)
     
    
   

    

     

    
    

     

      library(raster)
     
    
   

    

     

    
    

     

      library(viridis)  
     
    
   

    

     

    
    

     

      library(ggthemes) 
     
    
   

    

     

    
    

     

      library(sf)
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

      # 添加字体
     
    
   

    

     

    
    

     

      windowsFonts(
     
    
   

    

     

    
    

     

         Cinzel = windowsFont("Cinzel"),#这里使用的是字体的主题名称
     
    
   

    

     

    
    

     

         Poppins = windowsFont("Poppins"),
     
    
   

    

     

    
    

     

         IBMPSBold = windowsFont("IBMPlexSans-Bold"),
     
    
   

    

     

    
    

     

         Roboto_Mono = windowsFont("Roboto Mono"),
     
    
   

    

     

    
    

     

         Open_Sans = windowsFont("Open Sans"),
     
    
   

    

     

    
    

     

         Open_Sans_ExtraBold = windowsFont("Open Sans ExtraBold"),
     
    
   

    

     

    
    

     

         Times_New_Roman = windowsFont("Times New Roman")
     
    
   

    

     

    
    

     

        )
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

      #数据
     
    
   

    

     

    
    

     

      datafold <- 'E:\\Data_ning\\RStudio projects\\guanzhoulanduse\\gzlu.tif'
     
    
   

    

     

    
    

     

      test <- raster(datafold) 
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

      #很关键的一步：将栅格数据转成可供ggplot2绘制的数据格式
     
    
   

    

     

    
    

     

      test_spdf <- as(test, "SpatialPixelsDataFrame")
     
    
   

    

     

    
    

     

      test_df <- as.data.frame(test_spdf)
     
    
   

    

     

    
    

     

      # 赋值列名
     
    
   

    

     

    
    

     

      colnames(test_df) <- c("value&
     
    
  
 

文章来源: wenyusuran.blog.csdn.net，作者：文宇肃然，版权归原作者所有，如需转载，请联系作者。

原文链接：wenyusuran.blog.csdn.net/article/details/122543454