叠加旋转密度图

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

因为您在第二个图上使用coord_flip，所以有效地尝试将两个不同的值绘制到相同的x轴（密度和ID）上。有很多帖子令人沮丧，例如：How do I plot points with two different y-axis ranges on the same panel in the same X axis?。