ggplot2：プロットキャンバスの端にプロットすることはできますか？

Question

私はggplot2を使用しています。私はプロットキャンバスの上端に赤い記号で印を付けるプロットを作りたい。そのような何か：

d <- data.frame(x=1:3, y=3:1) 
markings <- function() { 
    d2 <- data.frame(x=c(1.5,2.5), y=3) 
    geom_point(data=d2, aes(x=x, y=y), col="red") 
} 
ggplot(data=d) + geom_point(aes(x=x, y=y)) + markings() 

問題は（値3は不明である。）図の上縁がある場合markings()機能が知らないということです私はpar("usr")にを使用することができ、通常のグラフィックスで上端のy値を見つける、ggplot2のグラフの上端にポイントを強制する解決策はありますか？

Answer 1

ベストの選択肢はgeom_rugです。申し訳ありませんが、私はまだ かなりggplot方法で考えていないです...

d <- data.frame(x=1:3, y=3:1) 
markings <- function() { 
    d2 <- data.frame(x=c(1.5,2.5)) 
    geom_rug(data=d2, aes(x=x), col="red", sides="t") 
} 
ggplot(data=d) + geom_point(aes(x=x, y=y)) + markings() 

は、あなたが `Inf`を使用することができます:-)