删除ggplot错误栏末尾的垂直条

Question

我正在绘制两个轴上带有误差条的散点图。数据位于包含x，y，SEy，SEx和color（以及一些无关的内容）列的表文件中。

comp    source2 y   SEy source1 x   SEx color
alpha   popA    0.09    0.0011  pop1    0.09    0.0011  blue
beta    popA    0.21    0.0011  pop1    0.22    0.0011  blue
gamma   popA    0.15    0.0011  pop1    0.15    0.0011  blue
delta   popA    0.09    0.0011  pop1    0.091   0.0011  blue
alpha   popB    0.094   0.0011  pop1    0.092   0.0011  green
beta    popB    0.23    0.0011  pop1    0.24    0.0011  green
gamma   popB    0.156   0.0011  pop1    0.166   0.0011  green
delta   popB    0.08    0.0011  pop1    0.092   0.0011  green

（通常每个x / y都有一个唯一的SE，这些只是在这里组成的数字）

read.table("junk.txt", header = TRUE) -> tbl
require(ggplot2)
ggplot(data = tbl,aes(x = x,y = y)) + 
  geom_point(colour=tbl$color) +  
  geom_errorbar(aes(ymin = y-SEy,ymax = y+SEy,height=0)) + 
  geom_errorbarh(aes(xmin = x-SEx,xmax = x+SEx,height=0)) +
  geom_abline(intercept = 0, slope = 1)

高度设置为零，但我仍然在y轴误差条上得到垂直条纹。这里发生了什么？ （另外，在切向奖金问题上，如何让误差线与点颜色相同？）