Tengo un marco de datos con más de 40 niveles de factores y me gustaría asignar diferentes formas para cada nivel. Sin embargo, como se muestra en elscale_shapes_table deggplot2, Solo puedo asignar 26 de ellos y algunos!,",# y así.

Pero sé que en python o jmp puedes asignar muchas formas (como asteriscos, triángulo izquierdo, triángulo rectángulo, rectángulo, etc.). ¿También es posible también enggplot2?

data=data.frame(gr=seq(1,40), x1=runif(40), y1=runif(40))
library(ggplot2)
ggplot(data=data,aes(x=x1,y=y1,shape=factor(gr),col=factor(gr)))+
  geom_point(alpha = 0.3,size=4,stroke=1.4) +
  scale_shape_manual(values=c(0:40))