geom_tile 和 facet_grid/facet_wrap 用于使瓷砖具有相同的高度

Question

使用ggplot，我想要表示一个带有面板的图形图块，但每个面板的图块高度相同。 我有这张图：

dataSta <- list(sites=rep(paste("S", 1:31),each=12), month=rep(1:12,31), value=round(runif(31*12, min=0, max=3000)), panel=c(rep("Group 1",16*12),rep("Group 2", 12*12), rep("Group 3", 3*12)))

    library(ggplot2)
    library(grid)
    base_size <- 9

    windows()
    ggplot(data.frame(dataSta), aes(factor(month), sites)) + 
      geom_tile(aes(fill = value), colour = "black")+
      facet_wrap(~panel, scale="free_y", nrow=3)+
      theme_grey(base_size = base_size) +  
      labs(x = "",y = "") + 
      scale_x_discrete(expand = c(0, 0)) +    
      scale_y_discrete(expand = c(0, 0)) +    
      theme(legend.title = element_blank(),
            axis.ticks = element_blank(),     
            axis.text.x = element_text(size = base_size *0.8, hjust = 0),
            panel.margin = unit(0,"lines"),
            strip.text = element_text(colour="red3", size=10, face=2))

但是面板之间的瓷砖高度不同。我尝试使用 facet_grid：

windows()
ggplot(data.frame(dataSta), aes(factor(month), sites)) + 
  geom_tile(aes(fill = value), colour = "black")+
  facet_grid(panel~., scales="free_y", space="free")+
  theme_grey(base_size = base_size) +  
  labs(x = "",y = "") + 
  scale_x_discrete(expand = c(0, 0)) +    
  scale_y_discrete(expand = c(0, 0)) +    
  theme(legend.title = element_blank(),
        axis.ticks = element_blank(),     
        axis.text.x = element_text(size = base_size *0.8, hjust = 0),
        panel.margin = unit(0,"lines"),
        strip.text = element_text(colour="red3", size=10, face=2))

瓷砖的高度问题已经解决，但是面板的标签（Group 1... Group 3）不在面板的顶部。是否可以使用facet_grid更改面板标签的位置？或者结合facet_grid和facet_wrap？谢谢您的帮助，对不起我的英语！

- Ma.

---

可能是重复问题：https://dev59.com/9I_ea4cB1Zd3GeqPNmIX#32733035 - Undo

Answer 1

在绘图之前，您可以查看 ggplot 包含的内容，并相应地重新调整面板的比例。

g <- ggplot_build(p) 
## find out how many y-breaks are in each panel
## to infer the number of tiles
vtiles <- sapply(lapply(g$panel$ranges, "[[", "y.major"), length)

## convert the plot to a gtable object 
gt <- ggplot_gtable(g)
## find out which items in the layout correspond to the panels
## we refer to the "t" (top) index of the layout
panels <- gt$layout$t[grepl("panel", gt$layout$name)]
## replace the default panel heights (1null) with relative sizes 
## null units scale relative to each other, so we scale with the number of tiles
gt$heights[panels] <-lapply(vtiles, unit, "null")
## draw on a clean slate
library(grid)
grid.newpage()
grid.draw(gt)

- baptiste

---

非常感谢，这正是我所寻找的！它运行得非常好！ - Ma.

Answer 2

我花了一些时间找到了更简单的解决方案，实际上是使用facet_grid的一部分，您可以设置space = "free_y"。更多信息请参见最近的问题。

- tlask

---

如果这应该作为答案留下，请在此处发布一个完整的解决方案，引用问题并使用其reprex，而不仅仅链接到另一个问题。后者最好在评论中完成。 - pat-s

OP 希望每个面板上方都有标签，facet_grid 不允许这样做。 - Nova

Answer 3

ggforce包中有一个非常不错的函数，称为facet_col。它不需要操作grid包！

你所要做的就是将调用facet_grid替换为相应的facet_col选项：

library(ggplot2)
library(ggforce)

dataSta <- list(sites=rep(paste("S", 1:31),each=12), 
month=rep(1:12,31), value=round(runif(31*12, min=0, max=3000)), 
panel=c(rep("Group 1",16*12),rep("Group 2", 12*12), rep("Group 3", 3*12)))

base_size <- 9

ggplot(data.frame(dataSta), aes(factor(month), sites)) + 
  geom_tile(aes(fill = value), colour = "black") +

  # Here's the line to alter:
  facet_col(vars(panel), , scales = "free_y", space = "free") +

  theme_grey(base_size = base_size) +  
  labs(x = "",y = "") + 
  scale_x_discrete(expand = c(0, 0)) +    
  scale_y_discrete(expand = c(0, 0)) +    
  theme(legend.title = element_blank(),
        axis.ticks = element_blank(),     
        axis.text.x = element_text(size = base_size *0.8, hjust = 0),
        panel.spacing = unit(0,"lines"),
        strip.text = element_text(colour="red3", size=10, face=2))

- Nova