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

Posted 2022-02-23 文宇肃然

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&