可以仅通过facet(row)更改 facet_grid() 高度

网格图形使您可以修改ggplot()个对象中的widths个和heights个.

示例代码:

library(grid)   



gg = ggplot(salm_data, aes(x=type) ) + 
      geom_bar(stat = "count", position = position_dodge())+ 
      facet_grid(year ~ type, scales = "free_x", space = "free")+
      geom_text(size=2.5, stat = "count", aes(label = after_stat(count)), vjust = -0.3) +
      theme_bw() + 
      labs(y="Number of samples") + 
      theme(panel.grid.minor = element_blank())+
      labs(x=expression(paste(italic("Klebsiella spp."), " ")))
    
    
    
gt = ggplot_gtable(ggplot_build(g))
gt$widths[7] = 4*gt$widths[7]  # modify panel-1-2 and panel-2-2  
gt$heights[7] = 4*gt$heights[7] #modify panel-1-2 and panel-2-2 
grid.draw(gt)

样地:

Sample data:

salm_data<-structure(list(type = c("A", "B", "C", "D", "A", "B", "C", "D", 
"A", "B", "C", "D", "A", "C", "A", "B", "C", "D", "A", "B", "C", 
"D", "A", "B", "C", "D", "A", "C", "A", "B", "C", "D", "A", "B", 
"C", "D", "A", "B", "C", "D", "A", "C", "A", "B", "C", "D", "A", 
"B", "C", "D", "A", "B", "C", "D", "A", "C", "A", "B", "C", "D", 
"A", "B", "C", "D", "A", "B", "C", "D", "A", "C", "A", "B", "C", 
"D", "A", "B", "C", "D", "A", "B", "C", "D", "A", "C", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A"
), year = c(2001, 2001, 2001, 2001, 2001, 2002, 2001, 2002, 2001, 
2002, 2001, 2002, 2002, 2002, 2001, 2001, 2001, 2001, 2001, 2002, 
2001, 2002, 2001, 2002, 2001, 2002, 2002, 2002, 2001, 2001, 2001, 
2001, 2001, 2002, 2001, 2002, 2001, 2002, 2001, 2002, 2002, 2002, 
2001, 2001, 2001, 2001, 2001, 2002, 2001, 2002, 2001, 2002, 2001, 
2002, 2002, 2002, 2001, 2001, 2001, 2001, 2001, 2002, 2001, 2002, 
2001, 2002, 2001, 2002, 2002, 2002, 2001, 2001, 2001, 2001, 2001, 
2002, 2001, 2002, 2001, 2002, 2001, 2002, 2002, 2002, 2001, 2001, 
2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 
2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 2001, 
2001, 2001, 2001, 2001)), class = "data.frame", row.names = c(NA, 
-112L))