ggplot2：使用独立的“Y”轴改变刻面宽度

Question

虚拟数据

d = data.frame(
    x = factor(LETTERS[c(1,2,3,4,1,2,3,4,1,2,1,2,1,2,1,2)]),
    y = c(100,80,70,60,130,90,65,60,2,3,3,3,2,2,1,2),
    grid = rep(letters[1:2], each=8)
)

问题

ggplot(d, aes(x=x, y=y)) + facet_grid(~grid, scales="free",space="free_x") + geom_point()

我喜欢这个图表。我唯一的问题是两个网格都使用相同的Y 轴。所以，我尝试使用facet_wrap 而不是facet_grid 并得到了

ggplot(d, aes(x=x, y=y)) + facet_wrap(~grid, scales="free") + geom_point()

但不幸的是，facet_wrap 没有“空格”参数，因此左右图的宽度相同。

问题

我怎样才能使变量d$x 的级别之间的空间在两个方面之间相等（导致方面具有不同的宽度）并且每个方面都有一个单独的Y 轴。当然，我想保持刻面水平对齐。

Answer 1

使用ggplot grob并修改表格中的宽度

# Capture the plot
q = ggplot(d, aes(x=x, y=y)) + facet_grid(~grid, scales="free",space="free_x") + geom_point()
gt = ggplotGrob(q)

# Modify the widths
gt$widths[5] = unit(8, "cm")
gt$widths[9] = unit(4, "cm")

# Plot the graph
grid.newpage()
grid.draw(gt)