ggplot2 - цвета графиков с графическими границами в легендах

У меня есть график ggplot2, который затем управляет графиком. Я использую набор данных об имеющихся алмазах и получаю некоторую нестабильность в легендах. Я хочу, чтобы легенда показывала ТОЛЬКО раскраску цветов. Кажется, он пытается взять каждую ясность из каждого аспекта и слиться с легендой.

Как я могу заставить легенду отображать цвета прозрачности только один раз? Примечание: я уже пытался удалить размер :)

Ниже приведен код и изображение того, что производится.

d = diamonds %>% sample_frac(.01)    
p = d %>%
  ggplot(aes(x = carat, y = price)) +
  geom_point(aes(size = depth, color = clarity)) +
  facet_wrap(~cut) 
ggplotly(p)