オーバーレイの回転密度プロット

Question

私は元の散布図に回転密度プロットを重ねるのに苦労しています。ここで私が持っている2つのプロットである：

require(ggplot2); set.seed(1); 

df1 <- data.frame(ID=paste0('ID',1:1000), value=rnorm(1000,500,100)) 

p1 <- ggplot(data = df1, aes(x=reorder(ID, value), y=value)) + 
    geom_point(size=2, alpha = 0.7)+ 
    coord_trans(y="log10") 

p2 <- ggplot(data = df1, aes(x=value)) + 
    coord_trans(x="log10") + 
    geom_density() + 
    coord_flip() 

p1 
p2 

まず、その縦軸はlog10の形質転換ではないことを密度プロットではほとんど問題があります。しかし、主な問題は、正しい座標を保持している以前のプロットで描画する方法を見つけることができないということです。

Answer 1

2番目のプロットでcoord_flipを使用しているため、2つの異なる値を同じx軸（密度とID）にプロットしようとしています。これを妨げている投稿がたくさんあります。例えば、How do I plot points with two different y-axis ranges on the same panel in the same X axis?です。