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)