ggplot2：geom_point（）闪避形状但不是颜色

I'm trying to get a plot in ggplot2 with geom_point() having variables mapped to x, y, color and shape and to dodge the position for color but not shape.I'm trying to get a plot in ggplot2 with geom_p