ggplot2 - 更改分面的相对宽度

facet_plot在关联数据上，可谓非常方便，当然有个槽点，就是它利用了facet_grid，从而也就没办法设置不同panel之间的宽度比例了，所以你画的图，所有的panel都是一样大。这篇文章就来突破一下这个限制。

library(ggplot2)
library(ggstance)
library(ggtree)
library(reshape2)

set.seed(123)
tree <- rtree(30)

p <- ggtree(tree, branch.length = "none") + 
    geom_tiplab()

a <- runif(30, 0,1)
b <- 1 - a
df <- data.frame(tree$tip.label, a, b)
df <- melt(df, id = "tree.tip.label")

p2 <- facet_plot(p + xlim_tree(8), panel = 'bar', data = df, geom = geom_barh, 
                 mapping = aes(x = value, fill = as.factor(variable)), 
                 width = 0.8, stat='identity')

假设我们画了p2这个图，在ggtree新版中，我又加入了一个函数facet_widths用于设置不同panel的相对宽度，比如：

facet_widths(p2, widths = c(1, 2))

当然参数也允许用named vector，你可以指定某个panel，比如：

facet_widths(p2, c(Tree = .5))

最主要的是它还能用于其它的ggplot对象：

p <- ggplot(iris, aes(Sepal.Width, Petal.Length)) + 
  geom_point() + facet_grid(.~Species)
facet_widths(p, c(setosa = .5))


当然这个由于不是ggplot2所支持，得借助于grid来实现，继而输出的就不是原来的ggplot对象了，所以你最好在最后一步才用它。不像之前介绍的《facet_plot更改panel label》，则是在原来的ggplot对象中稍做修改而来。

比如你要联用facet_widths和facet_labeller话，只能先facet_labeller再facet_widths而反之则不行。

facet_labeller(p2, c(Tree = "phylogeny")) %>% facet_widths(c(Tree = .4))

---

往期精彩