facet_wrap：标记（颜色边框，线条和标题）一个特定的图表

Question

facet_wrap：标记（颜色边框，线条和标题）一个特定的图表

rplotggplot2colorsfacet-wrap

3

是否能够使用ggplot2标记facet_wrap中的具体图块?

假设我有一个3x3 facet_wrap图，并且我想通过给中间那个(i=2,j=2)加上红色边框、红色线条和红色标题颜色来标记它。有什么好的方便的方法可以实现吗？

- Squeezie

2

恐怕没有简单的解决方案。最简单的方法是创建N个单独的图，并使用egg、ggpubr或cowplot包将它们组合起来。 - pogibas

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Weihuang Wong · Accepted Answer

如评论中所述，按照你的建议并不容易实现。以下是一种可能的实现方式。在这里我创建了一个示例数据框，并加载了ggplot2和grid软件包。

library(ggplot2)
library(grid)

set.seed(123)
df <- data.frame(f = rep(LETTERS[1:9], 3), x = rnorm(27), y = rnorm(27))

现在，我创建了基本的图形。红线最简单：我们将color美学映射到我们用于分面的变量上，并在scale_colour_manual中设置颜色。

p <- ggplot(df, aes(x, y, colour = f == "E")) +
  geom_line() +
  scale_colour_manual(guide = FALSE, values = c("black", "red")) +
  facet_wrap("f")

对于剩下的部分，我们需要手动编辑图表。我们生成图表 grob 并进行检查：

g <- ggplotGrob(p)
g
# TableGrob (21 x 15) "layout": 62 grobs
#     z         cells        name                                           grob
# 1   0 ( 1-21, 1-15)  background               rect[plot.background..rect.5921]
# 2   1 ( 7- 7, 4- 4)   panel-1-1                      gTree[panel-1.gTree.5502]
# ...
# 6   1 (12-12, 8- 8)   panel-2-2                      gTree[panel-5.gTree.5562]
# ...
# 51  2 (11-11, 8- 8) strip-t-2-2                                  gtable[strip]
# ...
# 62 10 (20-20, 4-12)     caption          zeroGrob[plot.caption..zeroGrob.5919]

需要关注的图形是数字6和51，分别对应中心面板和其面板条。检查图形编号为6，我们可以看到以下内容：

str(g$grobs[[6]])
# List of 5
#  $ name         : chr "panel-5.gTree.5562"
#  ...
#  $ children     :List of 5
#   ..$ grill.gTree.5560           :List of 5
#   .. ..$ name         : chr "grill.gTree.5560"
# ...
#   .. ..$ children     :List of 5
#   .. .. ..$ panel.background..rect.5551      :List of 10
# ...
#   .. .. .. ..$ gp    :List of 4
#   .. .. .. .. ..$ lwd : num 1.42
#   .. .. .. .. ..$ col : logi NA
#   .. .. .. .. ..$ fill: chr "grey92"
#   .. .. .. .. ..$ lty : num 1
#   .. .. .. .. ..- attr(*, "class")= chr "gpar"
# ...
#  - attr(*, "class")= chr [1:3] "gTree" "grob" "gDesc"

请注意col元素。我们将值red分配给该元素：

g$grobs[[6]]$children[[1]]$children[[1]]$gp$col <- "red"

检查grob 51（它的结构略有不同），我们做同样的事情：

g$grobs[[51]]$grobs[[1]]$children[[2]]$children[[1]]$gp$col <- "red"

这就是我们需要做的全部内容。虽然检查grob结构需要一些努力，但修改它们并不需要太多的代码。总结一下，这就是我们需要做的全部步骤：

g <- ggplotGrob(p)
g$grobs[[6]]$children[[1]]$children[[1]]$gp$col <- "red"
g$grobs[[51]]$grobs[[1]]$children[[2]]$children[[1]]$gp$col <- "red"
grid.draw(g)

获取方式：