R-ggplot2 可视化绘制
由于对ggplot2的绘图体系还不是很了解,所以这一步花费很长时间,但也对ggplot2的绘图语法有了更深的理解。话不多说,我们直接上代码,如下:
#Raster_data_Vis.Rlibrary(ggplot2)library(raster)library(viridis)library(ggthemes)library(sf)#添加字体windowsFonts(Cinzel=windowsFont("Cinzel"),#这里使用的是字体的主题名称Poppins=windowsFont("Poppins"),IBMPSBold=windowsFont("IBMPlexSans-Bold"),Roboto_Mono=windowsFont("RobotoMono"),Open_Sans=windowsFont("OpenSans"),Open_Sans_ExtraBold=windowsFont("OpenSansExtraBold"),Times_New_Roman=windowsFont("TimesNewRoman"))#数据datafold<-E:\\Data_ning\\RStudioprojects\\guanzhoulanduse\\gzlu.tif est<-raster(datafold)#很关键的一步:将栅格数据转成可供ggplot2绘制的数据格式test_spdf<-as(test,"SpatialPixelsDataFrame")test_df<-as.data.frame(test_spdf)#赋值列名colnames(test_df)<-c("value&
如果觉得《【数据可视化应用】实现空间栅格(附R语言代码)》对你有帮助,请点赞、收藏,并留下你的观点哦!