One of these may help you (?) :
library(ggplot2)
my_data <- data.frame(x = sample(3592185:3850502, 10),
y = sample(4104561:4258891, 10),
var = c("A","A","B","A","A","A","B","A","B","A"))
ggplot() +
geom_point(data=my_data, aes(x = x, y = y, colour = var, shape = var, fill = var,size=var), stroke = 0.4) +
scale_shape_manual(c("A","B"),values=c(24,24)) +
scale_color_manual(c("A","B"),values=c("gray30", "steelblue")) +
scale_fill_manual(c("A","B"),values=c("gray90", "lightblue")) +
scale_size_manual(c("A","B"),values=c(2,4)) +
geom_point(data=my_data, aes(x = x, y = y, fill = var), color = "black", shape = 16, size = 1) +
labs(title = NULL, x = NULL, y = NULL)
ggplot() +
geom_point(data=my_data, aes(x = x, y = y, colour = var, shape = var, fill = var),size=4, stroke = 0.4) +
scale_shape_manual(c("A","B"),values=c(24,24)) +
scale_color_manual(c("A","B"),values=c("gray30", "steelblue")) +
scale_fill_manual(c("A","B"),values=c("gray90", "lightblue")) +
# scale_size_manual(c("A","B"),values=c(2,4)) +
geom_point(data=my_data, aes(x = x, y = y, fill = var), color = "black", shape = 16, size = 1) +
labs(title = NULL, x = NULL, y = NULL)
Created on 2021-07-08 by the reprex package (v2.0.0)