df<-data.frame(x=1:10,y=1:10,ymin=(1:10)-runif(10),ymax=(1:10)+runif(10),xmin=(1:10)-runif(10),xmax=(1:10)+runif(10))ggplot(data=df,aes(x=x,y=y))+geom_point()+geom_errorbar(aes(ymin=ymin,ymax=ymax))+geom_errorbarh(aes(xmin=xmin,xmax=xmax)) 另外,你还可以...