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