相対yを使用して密度プロットの下の線分を描画しますか？

Question

密度プロットの下に線分を描きたいので、距離を一定のピクセル数にしたいと思います。これは可能ですか？私は距離をハードコードする方法を知っています。例えば：

set.seed(40816) 
library(ggplot2) 
df.plot <- data.frame(x = rnorm(100, 0, 1)) 
ggplot(df.plot, aes(x = x)) + geom_density() + 
    geom_segment(aes(x = -1, y = -0.05, xend = 1, yend = -0.05), 
       linetype = "longdash") 

が生成：

しかし

df.plot <- data.frame(x = rnorm(100, 0, 4)) 
ggplot(df.plot, aes(x = x)) + geom_density() + 
    geom_segment(aes(x = -1, y = -0.025, xend = 1, yend = -0.025), 
       linetype = "longdash") 

ははるか遠く密度

からセグメントとのプロットを生成します

Answer 1

あなたは、おかげで@baptiste

set.seed(40816) 
library(ggplot2) 
df.plot <- data.frame(x = rnorm(100, 0, 1)) 
strainerGrob <- function(pos=unit(2,"mm"), gp=gpar(lty=2, lwd=2)) 
    segmentsGrob(0, unit(1,"npc") - pos, 1, unit(1,"npc") - pos, gp=gp) 

ggplot(df.plot, aes(x = x)) + geom_density() + 
    annotation_custom(strainerGrob(), xmin = -1, xmax = 1, ymin=-Inf, ymax=0) + 
    expand_limits(y=-0.1)