r - 使用 facet_grid 的每个子图的 y 轴

Question

我无法得到这个问题的答案。我和那个用户想要的是在使用 facet_grid() 时向所有列添加轴刻度和标签。

分面时显示每个子图的 y 轴

当我运行可重现的示例和解决方案时（在添加 abc=as.data.frame(abc) 以修复初始错误之后）我收到一条错误消息

gtable_add_grob(g, grobs = list(segmentsGrob(1, 0, 1, 1), segmentsGrob(1, ) 中的错误：并非所有输入的长度都为 1 或与 'grobs 相同的长度

我制作了自己的可重现示例，因为原始示例是 ehhm，有点奇怪:-)。它导致相同的错误消息

require(ggplot2)
require(reshape)
require(grid)
require(gtable)
data(iris)
iris$category=rep(letters[1:4],length.out=150)
plot1=ggplot(data=iris,aes(x=1,y=Sepal.Width))+geom_boxplot()+facet_grid(Species~category)

答案应该是这样的：

g <- ggplotGrob(plot1)

require(gtable)
axis <- gtable_filter(g, "axis-l")[["grobs"]][[1]][["children"]][["axis"]][,2]
segment <- segmentsGrob(1,0,1,1)
panels <- subset(g$layout, name == "panel")
g <- gtable_add_grob(g, grobs=list(axis, axis), name="ticks",
                     t = unique(panels$t), l=tail(panels$l, -1)-1)

g <- gtable_add_grob(g, grobs=list(segmentsGrob(1,0,1,1), 
                                   segmentsGrob(1,0,1,1)), 
                     t = unique(panels$t), l=tail(panels$l, -1)-1, 
                     name="segments")

Answer 1

您所指的答案不适用于您的情况。

为了更好地放置刻度线和刻度线标签，我会在 gtable 中添加列以获取轴材料。新列的宽度与原始 y 轴相同。

您可能希望在面板之间添加更多边距。这样做theme(panel.margin.x = unit(1, "lines"))。

require(ggplot2)
require(grid)
require(gtable)
data(iris)
iris$category = rep(letters[1:4], length.out = 150)
plot1 = ggplot(data = iris, aes(x = 1, y = Sepal.Width))+
   geom_boxplot()+
   facet_grid(Species~category)

# Get the ggplot grob
g <- ggplotGrob(plot1)

# Get the yaxis
yaxis <- gtable_filter(g, "axis-l")

# Get the width of the y axis
Widths = yaxis$widths

# Add columns to the gtable to the left of the panels, 
# with a width equal to yaxis width
panels <- g$layout[grepl("panel", g$layout$name), ]
pos = rev(unique(panels$l)[-1] - 1)
for(i in pos) g = gtable_add_cols(g, Widths, i)

# Add y axes to the new columns
panels <- g$layout[grepl("panel", g$layout$name), ]
posx = rev(unique(panels$l)[-1] - 1)
posy = unique(panels$t)

g = gtable_add_grob(g, rep(list(yaxis), length(posx)), 
     t = rep(min(posy), length(posx)), b = rep(max(posy), length(posx)), l = posx)

# Draw it
grid.newpage()
grid.draw(g)

或者，将轴放置在与原始 y 轴宽度相同但右对齐的视口中。然后，将生成的 grob 添加到面板之间的现有边距列，调整这些列的宽度以适应。

require(ggplot2)
require(grid)
require(gtable)
data(iris)
iris$category = rep(letters[1:4], length.out = 150)
plot1 = ggplot(data = iris, aes(x = 1, y = Sepal.Width))+
   geom_boxplot() + 
   facet_grid(Species ~ category ) 

# Get the ggplot grob
g <- ggplotGrob(plot1)

# Get the yaxis
axis <- gtable_filter(g, "axis-l")

# Get the width of the y axis
Widths = axis$width

# Place the axis into a viewport, 
# of width equal to the original yaxis material,
# and positioned to be right justified
axis$vp = viewport(x = unit(1, "npc"), width = Widths, just = "right")

# Add y axes to the existing margin columns between the panels
panels <- g$layout[grepl("panel", g$layout$name), ] 
posx = unique(panels$l)[-1] - 1
posy = unique(panels$t)

g = gtable_add_grob(g, rep(list(axis), length(posx)), 
     t = rep(min(posy), length(posx)), b = rep(max(posy), length(posx)), l = posx)

# Increase the width of the margin columns
g$widths[posx] <- unit(25, "pt") 
# Or increase width of the panel margins in the original construction of plot1

# Draw it
grid.newpage()
grid.draw(g)

Answer 2

这就是我想出的（使用ggplot2_2.1.0）：

g <- ggplotGrob(plot1)
axis <- gtable_filter(g, "axis-l")
newG <- gtable_add_grob(g, list(axis, axis, axis), 
                t = rep(4, 3), b = rep(8, 3), l = c(5, 7, 9))
grid.draw(newG)

..看起来像这样：

这是我经历的过程：

1. g <- ggplotGrob(plot1)创建一个 gtable。
2. print(g)查看 gtable 的元素...我正在寻找我想弄乱的 grobs 的名称。在这里，它是称为“axis-l”的三个 grobs。
3. axis <- gtable_filter(g, "axis-l")我从较大的 gtable 对象中选择了我的三个 grobs g，并将它们保存在一个名为 的 gtable 中axis。请注意，这gtable_filter实际上是在选择 grobs，而不是从g.
4. gtable_show_layout(g)查看的布局，g以便我可以找出axis与整体情节相关的位置。
5. gtable_add_grob等。现在我知道我要去哪里了，我可以在原始情节后面加上axis.

我认为这些步骤对于 gtable 来说是一个非常常见的工作流程。当然你会有其他的东西，你可能会弄乱。例如，在这种情况下，为除最左边的 y 轴标签之外的所有标签提供的空间是不够的。所以也许只是：

newG$widths[c(5, 7, 9)] <- grid:::unit.list(axis$widths) # you won't need to wrap this in grid
grid.draw(newG)