我在R中做了一个热点图，想让Y轴按热度的大小排序，但是我排序玩后它还是按各类别名字排序，请问如何解决？代码如下：

p<-ggplot(heat,aes(as.factor(date),sec_desc,fill=degree))+geom_raster(na.rm = TRUE)