近期在用ggplot做论文的图,深感这个绘图包的博大精深。
加载包和数据:
## plot raw data of soil moisture
library(ggplot2)
library(sf)
library("rnaturalearth")
library("rnaturalearthdata")
# 加载数据
data_fr<-read.csv('D:\\research\\2_STH\\data_fr_0430_class.csv')
data_th<-read.csv('D:\\research\\2_STH\\data_th_0430_class.csv')
# 定义world地图
world <- ne_countries(scale = "medium", returnclass = "sf")
将某一连续类型手动离散化
data_th$smclass<-0
smclass <-data_th$smclass
smclass[which(data_th$sm >