r - ggforce facet_zoom 如何仅注释缩放的图形

Question

我想仅在放大区域中对图表进行注释，以提供有关突出显示数据的详细信息。

在下面的示例代码中，想法是仅在放大区域中显示文本“仅缩放”。

require(ggplot2)
require(ggforce)
ggplot(iris, aes(Petal.Length, Petal.Width, colour = Species)) +
    geom_point() +
    facet_zoom(x = Species == "versicolor") + 
    annotate("text", x=4, y=2, label="zoom only")

仅缩放文本（预期状态）：

两者中的文本（当前状态）：

有没有办法做到这一点？

Answer 1

我们可以深入研究对象，并将该文本设置为透明（alpha = 0）：

p <- ggplot(iris, aes(Petal.Length, Petal.Width, colour = Species)) +
  geom_point() +
  facet_zoom(x = Species == "versicolor") + 
  annotate("text", x=4, y=2, label="zoom only")

pb <- ggplot_build(p)
pb$data[[2]][1, 'alpha'] <- 0
pg <- ggplot_gtable(pb)
plot(pg)