Existe uma maneira em R traçar uma lenda com dois eixos?


8

Eu gostaria de traçar uma lenda com dois eixos. Especificamente, eu combinei dois objetos espaciais que foram classificados, o primeiro mostrando a intensidade de um evento e o segundo mostrando a probabilidade do evento naquele local. Quero criar uma legenda que mostre onde os pixels da varredura combinada se enquadram em cada categoria. A legenda que eu gostaria de criar ficaria assim: Legenda com dois eixos .

insira a descrição da imagem aqui

A legenda normal dos dados classificados é assim: Legenda original

insira a descrição da imagem aqui

Aqui está um exemplo reproduzível do tipo de dados que estou usando:

library(raster)
library(rasterVis)

# setseed
set.seed(999)

# create raster (example of what would be the outcome of combining intensity and probability rasters)
plot.me<- raster(xmn=-110, xmx=-90, ymn=40, ymx=60, ncols=40, nrows=40)
val <- c(100:104, 200:204, 300:304, 400:404)
plot.me<- setValues(plot.me, sample(val,ncell(plot.me),replace=T))


######  Plotting

plot.me <- ratify(plot.me)
levelplot(plot.me,att="ID" ,
          col.regions=c("#beffff","#73dfff","#d0ff73","#55ff00",
                        "#73b2ff","#0070ff","#70a800","#267300",
                        "#f5f57a","#ffff00","#e8beff","#df73ff",
                        "#f5ca7a","#ffaa00","#e600a9","#a80084"))

Traçar a saída de cima

insira a descrição da imagem aqui

A maneira mais fácil seria criar o enredo e adicionar a legenda mais tarde em um editor gráfico ... mas tenho certeza de que deve haver uma maneira de fazer isso no próprio R! Atualmente, estou plotando com o pacote rasterVis, mas se houver respostas no ggplot ou na base R, elas serão igualmente bem-vindas.

Se for mais útil ter um exemplo reproduzível das etapas intermediárias (ou seja, com os rasters de intensidade / probabilidade), deixe-me saber e eu posso produzi-los.


1
O mais próximo que eu vi morando no github é github.com/clauswilke/multiscales , mas não é exatamente o seu exemplo.
teunbrand 7/03

1
Usando rasterViseu produzi esta imagem . Se é isso que você está procurando, tente o código disponível aqui (seção "Lenda da bivariada)."
Oscar Perpiñán

@ OscarPerpiñán Eu sinto que o seu exemplo é o mais próximo do que estou esperando (capaz de plotar a legenda no topo do mapa). Estou tendo dificuldades para entender uma parte do seu código - qual é o objetivo da etapa pList? É necessário que as etapas subsequentes funcionem corretamente ou é específico para o mapa que você estava criando?
dee_2_dee 9/03

1
@ dee_2_dee Esta etapa produz uma lista de gráficos de níveis, cada um deles correspondendo a uma classe (consulte o código acima, na seção "Dados categóricos"). Essa lista é recolhida em um gráfico global com Reducee +.trellis.
Oscar Perpiñán 11/03

Respostas:


4

Uma solução será fazer dois gráficos e combiná-los usando a grid.arrangefunção do gridExtrapacote, por exemplo

Primeiro, eu converto seu rasterLayer em um ajuste usando a função postada neste post: Sobrepor a camada raster no mapa no ggplot2 no R?

(PS: modifiquei seu valobjeto para criar apenas 16 cores diferentes que correspondam ao padrão de cores que você forneceu. No seu exemplo, valpossui 20 valores diferentes)

val <- c(101:104, 201:204, 301:304, 401:404) # correction from OP's question to match 16 different values

library(raster)
gplot_data <- function(x, maxpixels = 50000)  {
  x <- raster::sampleRegular(x, maxpixels, asRaster = TRUE)
  coords <- raster::xyFromCell(x, seq_len(raster::ncell(x)))
  ## Extract values
  dat <- utils::stack(as.data.frame(raster::getValues(x))) 
  names(dat) <- c('value', 'variable')

  dat <- dplyr::as.tbl(data.frame(coords, dat))

  if (!is.null(levels(x))) {
    dat <- dplyr::left_join(dat, levels(x)[[1]], 
                            by = c("value" = "ID"))
  }
  dat
}

df <- gplot_data(plot.me)

Em seguida, crio o primeiro gráfico, o mapa de calor usando geom_tile:

library(ggplot2)
plot <- ggplot(df, aes(x = x, y = y, fill = as.factor(value)))+
  geom_tile(show.legend = FALSE)+
  coord_fixed(ratio = 20/20)+
  scale_fill_manual(values = c("#beffff","#73dfff","#d0ff73","#55ff00",
                               "#73b2ff","#0070ff","#70a800","#267300",
                               "#f5f57a","#ffff00","#e8beff","#df73ff",
                               "#f5ca7a","#ffaa00","#e600a9","#a80084"))+
  scale_y_continuous(name = "Latitude",labels = paste(c(40,45,50,55,60),"°N"))+
  scale_x_continuous(name = "Longitude",labels = paste(c(-110,-105,-100,-95,-90),"°W"))+
  theme_linedraw()+
  theme(panel.border = element_rect(size = 2),
        axis.text = element_text(size = 10),
        axis.title = element_text(size = 10),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())

Em seguida, crio um quadro de dados separado para a legenda:

library(tidyverse)
df_legend <- data.frame(value = unique(df$value))
df_legend <- df_legend %>% rowwise() %>% 
  mutate(Dim1 = unlist(strsplit(as.character(value),""))[1],
         Dim3 = unlist(strsplit(as.character(value),""))[3])

Source: local data frame [16 x 3]
Groups: <by row>

# A tibble: 16 x 3
   value Dim1  Dim3 
   <int> <chr> <chr>
 1   404 4     4    
 2   204 2     4    
 3   304 3     4    
 4   104 1     4    
 5   202 2     2    
 6   302 3     2    
 7   203 2     3    
 8   301 3     1    
 9   402 4     2    
10   401 4     1    
11   303 3     3    
12   102 1     2    
13   201 2     1    
14   103 1     3    
15   403 4     3    
16   101 1     1    

Agora, eu fiz o enredo da lenda:

legend <- ggplot(df_legend, aes(x = as.factor(Dim1), y = as.factor(Dim3), fill = as.factor(value)))+
  geom_tile(show.legend = FALSE, color = "black")+
  coord_fixed(ratio = 1)+
  scale_fill_manual(values = c("#beffff","#73dfff","#d0ff73","#55ff00",
                               "#73b2ff","#0070ff","#70a800","#267300",
                               "#f5f57a","#ffff00","#e8beff","#df73ff",
                               "#f5ca7a","#ffaa00","#e600a9","#a80084"))+
  theme_linedraw()+
  labs(x = "Dim1", y = "Dim3")+
  theme(panel.border = element_rect(size = 2),
        axis.text = element_text(size = 10),
        axis.title = element_text(size = 10))

E, finalmente, eu os combino:

library(gridExtra)
grid.arrange(plot, legend, layout_matrix = rbind(c(1,1,2),c(1,1,3)))

insira a descrição da imagem aqui

Parece o que você está tentando obter?


NB: Você provavelmente pode plotar diretamente seu objeto raster, ggplot2mas eu não tinha certeza do procedimento exato. Além disso, você pode brincar com o layout de grid.arrange, a fim de fazer o enredo parecer exatamente o que você deseja

Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.