r - ggplot グラフィックで geom_point() を使用するときに塗りつぶされたポイントを取得する方法

Question

こんにちは、私は2つの連続変数を扱っています。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たが、同じ結果が得られました。ありがとう。