r - ggplot2 偏移散点图点

Question

我有两组带有误差线的点。我想偏移第二个，以便它显示在第一个稍微向下的位置，这样它就不会遮住原来的。

这是一个模拟数据集:

x=runif(4,-2,2)
y=c("A","B","C","D")
upper=x+2
lower=x-2
x_1=runif(4,-1,3)
upper_1=x_1+1
lower_1=x_1-2

这是我用来生成情节的代码:

qplot(x,y)+
  geom_point(size=6)+
  geom_errorbarh(aes(xmax=upper,xmin=lower),size=1)+
  geom_point(aes(x_1,y),size=6,pch=8,vjust=-1,col="grey40")+
  geom_errorbarh(aes(xmax=upper_1,xmin=lower_1),size=1,col="grey40")

这是情节:



我希望将灰色星号和相关误差线绘制在黑色圆圈和相关误差线下方的头发上。我会转换数据集，但 Y 轴是分类变量。

Answer 1

使用 Richie 对您的数据进行重组，这也完全可以在 ggplot 内实现。 ，而不必弄乱轴:

dodge <- position_dodge(width=0.5)  
p <- ggplot(dfr,aes(x=y,y=x,colour=type)) + 
        geom_point(aes(shape=type),position=dodge) +
        geom_errorbar(aes(ymax=upper,ymin=lower),position = dodge) + 
        scale_colour_manual(values = c('gray','black')) +
        scale_shape_manual(values = c(8,19)) +
        coord_flip() + 
        opts(legend.position="none")

这给了我这个情节:



备注 : 自 0.9.2 版 opts已 replaced来自 theme :

+ theme(legend.position = "none")