W jaki sposób uzyskać identyczne rozmiary i skale facetów w kilku wieloobiektywowych grafikach ggplot2?

Question

Mam serię grafik ggplot2 ze stałą liczbą poziome, ale różniących się liczbą pionowych faset. Chciałbym zapisać grafikę jako .pdf w formacie a4.

Jednak nie wiem, w jaki sposób mogę osiągnąć identyczne proporcje faset. Jeśli spróbuję zmodyfikować je ręcznie i zmienić width i height dla różnych liczb pionowych faset, skale będą się różnić między działkami, tj. Otrzymam różne rozmiary punktów i szerokości linii.

W zasadzie, w jaki sposób mogę uzyskać identyczne rozmiary i skale faset dla działek ze zmienną liczbą (pionowych) ścianek?

Oto przykład:

df <- expand.grid(a = 1:2, b = 1:5, x = 1:10) 
df$y <- df$x 
plot <- ggplot(data = df, mapping = aes(x = x, y = y)) + 
      geom_point() 
plot1 <- plot + facet_grid(facets = "a ~ b") 
plot2 <- plot + facet_grid(facets = ". ~ b") 

ggsave(filename = "./figures/plot1.pdf", plot = plot1, 
    height = 210, width = 297, units = "mm") 

ggsave(filename = "./figures/plot2.pdf", plot = plot2, 
    height = 210, width = 297, units = "mm") 

Answer 1

używam tego kodu, aby ustawić rozmiary panelu do wartości bezwzględnych, może to pomaga tutaj

set_panel_size <- function(p=NULL, g=ggplotGrob(p), file=NULL, 
          margin = unit(1,"mm"), 
          width=unit(4, "cm"), 
          height=unit(4, "cm")){ 

    panels <- grep("panel", g$layout$name) 
    panel_index_w<- unique(g$layout$l[panels]) 
    panel_index_h<- unique(g$layout$t[panels]) 
    nw <- length(panel_index_w) 
    nh <- length(panel_index_h) 

if(getRversion() < "3.3.0"){ 

    # the following conversion is necessary 
    # because there is no `[<-`.unit method 
    # so promoting to unit.list allows standard list indexing 
    g$widths <- grid:::unit.list(g$widths) 
    g$heights <- grid:::unit.list(g$heights) 

    g$widths[panel_index_w] <- rep(list(width), nw) 
    g$heights[panel_index_h] <- rep(list(height), nh) 

} else { 

    g$widths[panel_index_w] <- rep(width, nw) 
    g$heights[panel_index_h] <- rep(height, nh) 

} 

    if(!is.null(file)) 
    ggsave(file, g, 
      width = convertWidth(sum(g$widths) + margin, 
           unitTo = "in", valueOnly = TRUE), 
      height = convertHeight(sum(g$heights) + margin, 
            unitTo = "in", valueOnly = TRUE)) 

    invisible(g) 
} 

print.fixed <- function(x) grid.draw(x)