How to use `key_glyph` with `geom_jitter`?

Question

The following does not add anything to the legend:

ggplot(diamonds, aes(x = color, y = table, color = cut)) + 
  geom_jitter(key_glyph = draw_key_rect)

draw_key_point works, draw_key_dotplot does to. draw_key_rect also perfectly works with geomtries like geom_line or geom_linerange . How can I use it with points?

Answer 1

Add the aesthetic fill for rect

library(tidyverse)

diamonds %>% 
  ggplot()+
  geom_jitter(aes(x=color, y=table,
                  color=cut,
                  fill=cut),
                  key_glyph = draw_key_rect)

^{Created on 2020-12-01 by the reprex package (v0.3.0)}