# Create the figure layout
(figure <- multi_panel_figure(
width = c(30,40,60),
height = c(40,60,60,60),
panel_label_type = "upper-roman"))
# Fill the top-left panel using a grob object directly
a_grob <- grid::linesGrob(arrow = grid::arrow())
figure %<>% fill_panel(a_grob)
if (FALSE) {
# Save the figure
figure %>%
save_multi_panel_figure(
filename = paste0(
tempfile(),
".png"))
}
Run the code above in your browser using DataLab