r plotRGB добавить название

Question

Это очень простой вопрос, но мне еще предстоит найти решение, которое работает. Я хотел бы добавить заголовок в вывод plotRGB.

#create random raster stack 
r1 <- raster(nrow=5, ncol=5) 
values(r1) <- 1:25 

r2 <- r3 <- r1 
RGB_stack <- stack(r1, r2, r3) 

Я попытался:

# Create an RGB image from the raster stack 
plotRGB(RGB_stack, r = 1, g = 2, b = 3, 
     axes=TRUE, main="My Title") 


plotRGB(RGB_stack, r = 1, g = 2, b = 3, 
     axes=TRUE, addfun="(title='Test title')") 

Я попытался повернуть оси и выключаться. Я не уверен, что еще попробовать сделать эту работу. Любые отзывы/рекомендации очень ценятся. Спасибо! Лиа

UPDATE: основываясь на обратной связи ниже я понял, что

#Create an RGB image from the raster stack 
plotRGB(RGB_stack, r = 1, g = 2, b = 3, 
     axes=TRUE, main="My Title") 

работает, если вы очистили предыдущие участки, которые могут иметь оси выключен. Однако мне все равно понравится, что сюжет будет изображением без тиков и просто титров.

Answer 1

Ваши первые догадки работает для меня:

plotRGB(RGB_stack, r = 1, g = 2, b = 3, 
     axes=TRUE, main="My Title") 

После обсуждения, это правда, что положить оси = FALSE также удаляет заголовок. В качестве обходного пути вы можете попытаться построить ось и метки в белом цвете. Я также добавляю белый ящик.

original_par <-par() #original par 
par(col.axis="white",col.lab="white",tck=0) 
plotRGB(RGB_stack, r = 1, g = 2, b = 3, 
     axes=TRUE, main="My Title") 
box(col="white") 
par(original_par) # go back to original par