Скорректированные метки скрыты для вложенных участков - PullRequest
Новая
       23

Скорректированные метки скрыты для вложенных участков

0 голосов
/ 26 апреля 2018

Как сделать так, чтобы скорректированные метки на вложенных графиках plot_grid не скрывались под другими графиками?

Это прекрасно работает: 

# label 'b' is visible on top of figure a
plot_grid(ggdraw(), ggdraw(), nrow=2, labels=c("a", "b"), hjust=c(-0.5, -5), vjust=c(1,-2))

enter image description here

Но не это: 

# label 'b' is invisible below figure a.
plot_grid(ggdraw(), 
      plot_grid(ggdraw(), ggdraw(),
         nrow=2, rel_heights = c(0.4, 0.6), labels=c("b", "c"), hjust=c(-5,-0.5), vjust=c(0.5,0)), 
      nrow=2, rel_heights = c(0.33, 0.66))

enter image description here

1 Ответ

0 голосов
/ 26 апреля 2018

Это проблема отсечения. plot_grid() использует ggplot для рисования сетки, и ggplot обрезает содержимое, которое выходит за пределы панели графика. Ваше обрезанное письмо частично находится за пределами графической панели: 

p1 <- ggdraw() + theme(plot.background = element_rect(fill = "#FF000080", color = NA))
p2 <- ggdraw() + theme(plot.background = element_rect(fill = "#00FF0080", color = NA))
p3 <- ggdraw() + theme(plot.background = element_rect(fill = "#0000FF80", color = NA))

row <- plot_grid(p1, p2, nrow=2, rel_heights = c(0.4, 0.6),
          labels=c("b", "c"), hjust=c(-5,-0.5), vjust=c(0.5,0))
plot_grid(p3, row, nrow=2, rel_heights = c(0.33, 0.66))

enter image description here

Одним из решений является отключение этого отсечения: 

row_grob <- ggplotGrob(row)
index <- grep("panel", row_grob$layout$name)
row_grob$layout$clip[index] = "off"

plot_grid(p3, row_grob,
          nrow=2, rel_heights = c(0.33, 0.66))

enter image description here

В качестве альтернативы вы можете нарисовать метки после того, как соберете всю сетку, используя draw_label().

...