Some shape types inherit fill when they shouldn't

[cpsievert]

df_shapes <- data.frame(shape = factor(0:24))
p <- ggplot(df_shapes, aes(shape=shape)) +
      geom_point(aes(shape=shape, x=0, y=0), size=5, fill="red") +
      facet_wrap(~shape) +
      scale_shape_manual(values=df_shapes$shape, guide="none")

ggplotly(p)