線形回帰生存プロット - 失敗（0）ドットの位置を変更する方法？

Question

これは私がここに投稿した最初の質問ですので、何か問題があれば事前にお詫びします。私は...ここhttps://rpubs.com/bbolker/logregexp

が再現可能な例です...ここで概説として、Rにggplot2を使用して（私の場合低木カバー巣の周囲に）生息環境変数に対する巣の生存をプロットしています

library(ggplot2) 

nest_data <- structure(list(Exposure = c(5L, 5L, 2L, 6L, 2L, 4L, 1L, 3L, 3L, 6L, 2L, 6L, 4L, 5L, 3L, 7L, 7L, 5L, 4L, 8L, 4L, 8L, 1L, 5L, 7L, 3L, 6L, 5L, 7L, 10L, 5L, 6L, 5L, 4L, 8L, 6L, 5L, 6L, 7L, 7L, 7L, 7L, 5L, 7L, 8L, 3L, 5L, 5L, 6L, 6L, 5L, 2L, 2L, 6L, 4L, 6L, 6L, 5L, 4L, 8L), Surv = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 1L), shr5 = c(60, 60, 71.25, 43.75, 43.75, 91.25, 33.75, 83.75, 82.5, 82.5, 82.5, 67.5, 72.5, 72.5, 23.75, 92.5, 78.75, 58.75, 42.5, 42.5, 40, 40, 94.75, 60, 60, 60, 21.25, 92, 92, 100, 100, 100, 97.5, 46.25, 46.25, 65.25, 65.25, 72.5, 72.5, 53.75, 43.75, 43.75, 82.75, 82.75, 57.5, 57.5, 52.5, 52.5, 98.75, 98.75, 88.75, 88.75, 61.25, 95.75, 90, 100, 100, 77.5, 40, 40)), .Names = c("Exposure", "Surv", "shr5"), class = "data.frame", row.names = c(699L, 700L, 709L, 718L, 719L, 724L, 727L, 732L, 740L, 741L, 742L, 746L, 750L, 751L, 753L, 757L, 770L, 777L, 781L, 782L, 786L, 787L, 790L, 802L, 803L, 807L, 811L, 821L, 822L, 826L, 827L, 828L, 829L, 840L, 841L, 846L, 847L, 858L, 859L, 867L, 872L, 873L, 874L, 875L, 878L, 879L, 883L, 884L, 888L, 889L, 897L, 898L, 901L, 905L, 911L, 915L, 916L, 920L, 921L, 922L)) 

ggplot(nest_data,aes(x=shr5,y=Surv)) + 
    geom_point(aes(size=Exposure), shape=1) + 
    geom_smooth(method="glm", col="black") + 
    theme_bw() + 
    theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank()) + 
    xlab("Shrub cover") + 
    ylab("Survival") + 
    scale_size("Exposure days") 

あなたはそれがその巣ジ失敗した間隔（ピリオドを表示する必要があるため、ホワイトスペースの多くはプロットであり見ることができるように

：これは私にこのプロットを与えますdで生き残ることはできません）

私の質問は...どのようにプロット内の0にあるドットを移動するのですか（ただし、同じ場所に1つのドットを残してください）次に、y軸を調整してその空白をすべて削除します。私はposition_nudgeを使ってみましたが、それは0と1の円を同じ距離だけ動かしました。

ありがとうございます！もちろん

Answer 1

あなただけの「それらを上に移動」したい場合は、ちょうどあなたのポイントのy値の美学を変更

ggplot(nest_data,aes(x=shr5,y=Surv)) + 
    geom_point(aes(y=ifelse(Surv==0, .6, Surv), size=Exposure), shape=1) + 
    geom_smooth(method="glm", col="black") + 
    theme_bw() + 
    theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank()) + 
    xlab("Shrub cover") + 
    ylab("Survival") + 
    scale_size("Exposure days") 

これは本当に任意のより意味のあるy軸のためになりません。