ggplot: получить дискретную легенду с scale_fill_gradient

Question

Я пытаюсь воссоздать пример фигуры из 'R Graphics Cookbook' стр.87.

Я пытаюсь воссоздать сследующий код, но я не получаю результат:

library(ggplot2)
library(hexbin)

sp <- ggplot(diamonds, aes(x=carat, y=price))
sp + stat_binhex() +
  scale_fill_gradient(low="lightblue", high="red",
                      breaks=c(0, 250, 500, 1000, 2000, 4000, 6000),
                      limits=c(0, 6000)) 

, который дает

Answer 1

Проблема решена.Оказывается, мне пришлось добавить направляющий аргумент:

sp <- ggplot(diamonds, aes(x=carat, y=price))
    sp + stat_binhex() +
      scale_fill_gradient(low="lightblue", high="red",
                          breaks=c(0, 250, 500, 1000, 2000, 4000, 6000),
                          limits=c(0, 6000), guide = "legend")