是否能够使用ggplot2标记facet_wrap中的具体图块?
假设我有一个3x3
facet_wrap图,并且我想通过给中间那个(i=2,j=2
)加上红色边框、红色线条和红色标题颜色来标记它。有什么好的方便的方法可以实现吗?
是否能够使用ggplot2标记facet_wrap中的具体图块?
假设我有一个3x3
facet_wrap图,并且我想通过给中间那个(i=2,j=2
)加上红色边框、红色线条和红色标题颜色来标记它。有什么好的方便的方法可以实现吗?
如评论中所述,按照你的建议并不容易实现。以下是一种可能的实现方式。在这里我创建了一个示例数据框,并加载了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"
g$grobs[[51]]$grobs[[1]]$children[[2]]$children[[1]]$gp$col <- "red"
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)
获取方式:
egg
、ggpubr
或cowplot
包将它们组合起来。 - pogibas