R - Нанесение изображения RBG с легендой, названием, масштабом и т. Д. - PullRequest
Новая
       9

R - Нанесение изображения RBG с легендой, названием, масштабом и т. Д.

0 голосов
/ 07 апреля 2020

Попытка добавить заголовок, легенду, масштаб, стрелку на север и т. Д. c. к этому изображению RGB. enter image description here Не могу заставить его работать с планами уровней. Аналогично x, y, масштабируется на показанном примере. Буду признателен за помощь. enter image description here

rows <- 100
cols <- 100
cuts <- 8
(cols * rows) %% cuts == 0 #Must be true
colorgroups <- as.integer(cut(0:255,cuts))
colors <- c("red","green","blue")
result <- lapply(colors,function(y){
    unlist(
        lapply(seq(1,cuts),function(x){sample((0:255)[colorgroups == x],
                                              size = (rows*cols)/cuts,
                                              replace = TRUE)})
    )})

Band1.matrix <-   matrix((result[[1]]),nrow=rows,ncol=cols,byrow = TRUE)
Band2.matrix <-   matrix((result[[2]]),nrow=rows,ncol=cols,byrow = FALSE)
Band3.matrix <-   matrix(rev(result[[3]]),nrow=rows,ncol=cols,byrow = FALSE)  

library(grid)
rgb.matrix <- rgb(Band1.matrix,Band2.matrix,Band3.matrix,maxColorValue = 255)
dim(rgb.matrix) <- c(rows,cols)
grid.newpage()
grid.raster(rgb.matrix,interpolate = FALSE)
...