Реверс и предел изменения оси

Я пытаюсь создать контурный сюжет. Я хотел бы иметь глубину по оси Y и по времени на оси X. Сейчас это код, который я использую:

par <- ggplot(up_PAR, aes(Time.hour.of.the.day., Depth, z = PAR))
parplot <- par + 
           stat_contour(bins=20, aes(colour=..level..))+ 
           scale_colour_gradient(limits=c(0.000842, 0.00000000195),low="black", high="black") +
           scale_y_reverse()+
           theme_bw()+
           theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())+
           xlab("Hour of the Day")+
           ylab("Depth(m)")+
           ggtitle("Downwelling PAR (photons/m2/s), January 22nd")
direct.label(parplot)

Однако, я хотел бы расширить ось Depth до диапазона от 0 до 30 м. Мой набор данных идет до 175 м, но меня интересует только показ верхней части колонны воды.

Я знаю, что я могу использовать scale_y_continuous(limit=c(0,30)), но поскольку я уже изменил свою ось и хотел бы сохранить ее таким образом, я также не могу установить пределы оси.

Ответ 1