在ggplot图形中使用geom_point（）时如何获取填充点

Question

亲爱的，我正在处理两个连续变量。当我制作ggplot图形时，我使用了这段代码：

p4 <- ggplot(DataBase, aes(x=x, y=y))+xlab("Porcentaje de Tamaño Acumulado")+ylab("Porcentaje de Monto Acumulado")
p4 + geom_line(colour="darkblue",size = 1.5)+geom_point(colour = "red", size = 4,,shape=5)

我得到了这张照片：

积分为空的地方。可以填充它们。我尝试了fill，但我得到了相同的结果。感谢。