如何将 `key_glyph` 与 `geom_jitter` 一起使用？

Question

以下内容不会向图例添加任何内容：

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

draw_key_point有效， draw_key_dotplot有效。 draw_key_rect也可以完美地与geom_line或geom_linerange等几何图形一起使用。 如何使用积分？

Answer 1

为矩形添加美学fill

library(tidyverse)

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

^{由代表 package (v0.3.0) 于 2020 年 12 月 1 日创建}