如何使用 R 中的 levelplot 在绘图中添加子图?
How can I add a subplot within a plot using levelplot in R?
我想在我的主关卡中添加一个子图,类似于 this image. I want lat/lon axis for both my maps but I have not managed to find a way to do this with the levelplot. Also, I've seen this question 但没有答案。
我对子图和新的 par() 很困惑,所以我真的需要一些帮助。
library("raster")
library ("rasterVis")
library("viridis")
r <- raster(system.file("external/test.grd", package="raster"))#subplot
r2<-r/2 #main plot
ckey <- list(labels=list(cex=1.5), height=1,space='top')
levelplot(r2,colorkey=ckey,margin=FALSE,xlab="", ylab="",col.regions=viridis,at=seq(100,500, len=20),
scales=list(x=list(cex=1.5),y=list(cex=1.5))) #from this point, I do not know how to add a subplot
gridExtra
包中的 grid.arrange
可以为您做到这一点
library(raster)
library(rasterVis)
library(viridis)
library(gridExtra)
r <- raster(system.file("external/test.grd", package = "raster")) # subplot
r2 <- r / 2 # main plot
ckey <- list(labels = list(cex = 1.5), height = 1, space = "top")
lv1 <- levelplot(r2,
colorkey = ckey, margin = FALSE, xlab = "", ylab = "", col.regions = viridis, at = seq(100, 500, len = 20),
scales = list(x = list(cex = 1.5), y = list(cex = 1.5))) # from this point, I do not know how to add a subplot
lv2 <- levelplot(r2,
colorkey = ckey, margin = FALSE, xlab = "", ylab = "", col.regions = viridis, at = seq(100, 500, len = 20),
scales = list(x = list(cex = 1.5), y = list(cex = 1.5)))
lay <- rbind(
c(1, 1, NA, NA, NA),
c(1, 1, 2, 2, 2),
c(NA, NA, 2, 2, 2),
c(NA, NA, 2, 2, 2)
)
grid.arrange(lv1, lv2, layout_matrix = lay,
top = "Figure 1.",
bottom = "bottom\nlabel")
由 reprex package (v0.3.0)
于 2019-11-22 创建
我想在我的主关卡中添加一个子图,类似于 this image. I want lat/lon axis for both my maps but I have not managed to find a way to do this with the levelplot. Also, I've seen this question 但没有答案。 我对子图和新的 par() 很困惑,所以我真的需要一些帮助。
library("raster")
library ("rasterVis")
library("viridis")
r <- raster(system.file("external/test.grd", package="raster"))#subplot
r2<-r/2 #main plot
ckey <- list(labels=list(cex=1.5), height=1,space='top')
levelplot(r2,colorkey=ckey,margin=FALSE,xlab="", ylab="",col.regions=viridis,at=seq(100,500, len=20),
scales=list(x=list(cex=1.5),y=list(cex=1.5))) #from this point, I do not know how to add a subplot
gridExtra
包中的 grid.arrange
可以为您做到这一点
library(raster)
library(rasterVis)
library(viridis)
library(gridExtra)
r <- raster(system.file("external/test.grd", package = "raster")) # subplot
r2 <- r / 2 # main plot
ckey <- list(labels = list(cex = 1.5), height = 1, space = "top")
lv1 <- levelplot(r2,
colorkey = ckey, margin = FALSE, xlab = "", ylab = "", col.regions = viridis, at = seq(100, 500, len = 20),
scales = list(x = list(cex = 1.5), y = list(cex = 1.5))) # from this point, I do not know how to add a subplot
lv2 <- levelplot(r2,
colorkey = ckey, margin = FALSE, xlab = "", ylab = "", col.regions = viridis, at = seq(100, 500, len = 20),
scales = list(x = list(cex = 1.5), y = list(cex = 1.5)))
lay <- rbind(
c(1, 1, NA, NA, NA),
c(1, 1, 2, 2, 2),
c(NA, NA, 2, 2, 2),
c(NA, NA, 2, 2, 2)
)
grid.arrange(lv1, lv2, layout_matrix = lay,
top = "Figure 1.",
bottom = "bottom\nlabel")
由 reprex package (v0.3.0)
于 2019-11-22 创建