段的不规则外观（ggplot2）

Question

我正在使用ggplot2做一个情节。一切顺利，直到我放置模型的线条（PGLS）。当我尝试使用geom_segment（）时，它们的线条不平滑，就像它们是由几条短水平线组成的。

我不知道为什么会这样，我试图在网上寻求帮助而没有结果。

p3 <- ggplot(data =biases, aes(y=prevbias, x=bsbias, color=parasitism))+ 
geom_point(size=2)+
xlab("sexual size dimorphism") + ylab("bias in blood parasite prevalence")+
geom_hline(aes(yintercept=0),color="grey50", linetype="dashed")+ 
geom_vline(aes(xintercept=0),color="grey50",linetype="dashed")+
theme(axis.text=element_text(size=12),
    axis.title.y = element_text(size=12),
    axis.title.x = element_text(size=12))+
scale_color_manual(values=c("darkred","grey15"))+
geom_segment(aes(x = -0.659, xend = 0.6325, y = -0.0065069, yend =-0.0065069 + 0.0162262*0.6325), color="darkred")+
geom_segment(aes(x = -0.33910, xend = 0.75890, y = 0.0055704, yend = 0.0055704 + 0.0644188*0.75890), color="grey15")
print(p3)