组合光栅&x27；R语言中的传说

很抱歉，这个明显很愚蠢的问题，即使在谷歌搜索了一段时间后，我仍然无法解决。让我们假设以下情况，其中有两个光栅具有重叠但不同的值列

library(raster)
# A couple of rasters from scratch
r2 <- r1 <- raster(nrows=10, ncols=10)
r1[] <- sample(c(0:99), 100, replace = F)
r2[] <- sample(c(50:149), 100, replace = F)
par(mfrow = c(1,2))
plot(r1)
plot(r2)

库（光栅）
#从零开始的几个锉刀
r2根据我在前面评论中分享的答案，您可以手动设置图例和颜色的分隔符。然后，您只需要将该颜色渐变应用于两个绘图。这是代码和情节

# Adjust plot margins
par(mar=c(2,2,2,5))

# Set manually the breaks
breaks = seq(0,150,25)
pal <- colorRampPalette(c("white","orange","yellow","green","forestgreen"))

plot(r1, breaks=breaks, col = pal(length(breaks)-1)) 
plot(r2, breaks=breaks, col = pal(length(breaks)-1)) 

#调整打印边距
par（mar=c（2,2,2,5））
#手动设置中断
中断=顺序（0150,25）
朋友，我不认为这是一个伟大的想法，试图在这种情况下有一个组合传奇。因为，值和颜色在这些图中显示不同的东西。例如，第一个光栅（左）上的80是绿色，而第二个光栅（右）上的80是黄色。这个答案可能会有帮助：嗯，@bird，这正是我想要解决的问题的一部分。我试图通过人工替换两个光栅中的值来获得相同的等级（我正在使用的光栅是巨大的，这种替换仅用于说明目的），但即使如此，我也无法得到我想要的。谢谢，@JonathanV.Solórzano，我已经看到了那个。无论如何，我应该把两个光栅放在同一个等级内。