Более крутые градиенты в scale_gradientn

Question

Используя ggplot2 в R, я могу получить дискретную цветовую шкалу, такую ​​как:

Это может быть сгенерировано, как видно здесь .

Впрочем, выглядит не очень.Я хотел бы, чтобы ro удалил расстояние между уровнями, и я подумал, что, возможно, я мог бы переключиться на непрерывную цветовую шкалу, используя scale_gradientn() и имея очень крутой градиент между различными цветами.Таким образом, я мог бы использовать непрерывную цветовую шкалу, которая имеет метки в нужных местах и ​​отлично выглядит, а не дискретную.

Однако это лучшее, что я мог придумать:

library(ggplot2)
ggplot(faithfuld, aes(waiting, eruptions)) +
  geom_raster(aes(fill = density)) +
  scale_fill_gradientn(
    colours = c("red", "green", "blue", "yellow"), 
    values=c(0, 0.25, 0.25001, 0.5, 0.5001, 0.75, 0.75001,1)
  )

Что явно недостаточно хорошо, так как между 4 уровнями можно заметить значительное смещение цвета.

Возможно ли это вообще вggplot2

Answer 1

вы можете использовать высоту ключа легенды в теме, установить ее как

 legend.key.height =  unit(0, 'lines')

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

Answer 2

Просто используйте дискретную шкалу:

library(ggplot2)
faithfuld$classes <- cut(faithfuld$density, c(-Inf, 0.01, 0.02, 0.03, Inf))
ggplot(faithfuld, aes(waiting, eruptions)) +
  geom_raster(aes(fill = classes)) +
  scale_fill_manual(name = "density",
                    values = c("red", "green", "blue", "yellow"),
                    labels = c(0.01, 0.02, 0.03, "")) +
  guides(fill = guide_legend(label.vjust = -0.2))