Добавить стрелки на уровень

Question

Я хотел бы добавить несколько стрелок к категориальному растровому графику.Используя в качестве примера базу R (для не ратифицированного растра):

r <- raster(nrow=10, ncol=10, crs='+proj=utm +zone=1')
r[] = 1
r[51:100] = 3
r[3:6, 1:5] = 5

plot(r)

arrows(100, 50,
       0, 50, 
       length = 0.1, 
       lwd=2,
       col="red"
)

На графике уровней вы должны сначала ратифицировать свой растр и добавить соответствующие уровни:

r <- raster(nrow=10, ncol=10, crs='+proj=utm +zone=1')
r[] = 1
r[51:100] = 3
r[3:6, 1:5] = 5


r <- ratify(r)
rat <- levels(r)[[1]]
rat$landcover <- c('Pine', 'Oak', 'Meadow')
rat$class <- c('A1', 'B2', 'C3')
levels(r) <- rat

levelplot(r)

Как я могудобавить красную стрелку (как показано в примере 1) к levelplot(), показанному во втором блоке кода?

Спасибо.

Answer 1

Вы можете решить это с layer и panel.arrows:

levelplot(r) + 
   layer(panel.arrows(100, 50, 0, 50, 
                      col = 'white'))