Assigning 40 shapes or more in scale_shape_manual

Question

I have a data frame with more than 40 factor levels and I would like to assign different shapes for each level. However, as shown in the scale_shapes_table of ggplot2<

Answer 1

Maybe use gr as labels, using ggrepel, easier to find a number than comparing shapes:

library(ggrepel)

ggplot(data = data, aes(x = x1, y = y1, label = gr))+
  geom_point() +
  geom_label_repel()