r - 如何在ggplot2中反转y轴值的顺序

Question

我有这个数据框 y。我正在尝试使用 ggplot 创建热图。我想颠倒y轴的顺序。最高值应为 00:00，值应递减至 23:59。例如，最高值应该是 00:00，然后是 01:00、02:00、03:00 等。现在，y 轴从 01:00 开始上升，然后是 02:00、03:00 等. 任何想法如何在 ggplot2 中做到这一点？

 cols<-c("white","#F0FFFF","#BBFFFF","#00FFFF","#42C0FB","#1C86EE", "green","yellow","#C9821E", "#FF0000", "#FF0000")
 vals<-c(0,0.19,0.29,0.39, 0.49,0.59, 0.69, 0.79, 0.89, 0.90,1)
 brk<-c(20, 30, 40, 50, 60, 70, 80, 90, 100)
 ggplot(y,aes(DATE, Time, fill=CPU)) + geom_tile() + theme_bw() 
    + scale_fill_gradientn(name="CPU Utilization", colours=cols, values=val, limits=c(0,100), breaks = brk)
     + guides(fill = guide_legend(keywidth = 5, keyheight = 1))+ scale_x_date(breaks = "1 days", labels=date_format("%a")) 
   + coord_trans(y="reverse")

\n

 dput(head(y,50))
    structure(list(DATE = structure(c(15809, 15809, 15809, 15809, 
    15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 
    15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 
    15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 
    15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 
    15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 
    15809), class = "Date"), Time = c("20:14", "20:29", "20:44", 
    "20:59", "21:14", "21:29", "21:44", "21:59", "22:14", "22:29", 
    "22:44", "22:59", "23:14", "23:29", "23:44", "23:59", "00:14", 
    "00:29", "00:44", "00:59", "01:14", "01:29", "01:44", "01:59", 
    "02:14", "02:29", "02:44", "02:59", "03:14", "03:29", "03:44", 
    "03:59", "04:14", "04:29", "04:44", "04:59", "05:14", "05:29", 
    "05:44", "05:59", "06:14", "06:29", "06:44", "06:59", "07:14", 
    "07:29", "07:44", "07:59", "08:14", "08:29"), CPU = c(30, 30, 
    30, 31, 30, 27, 25, 23, 24, 22, 20, 21, 22, 21, 20, 20, 20, 15, 
    17, 15, 20, 16, 15, 16, 15, 14, 14, 11, 12, 11, 19, 22, 22, 21, 
    19, 20, 20, 17, 16, 10, 9, 9, 9, 10, 12, 13, 14, 14, 16, 16)), .Names = c("DATE", 
    "Time", "CPU"), row.names = 4205:4254, class = "data.frame")

Answer 1

由于 ggplot2 将您的 y 轴值转换为因子，因此只需提前将所有值转换为感兴趣的因子:

library(ggplot2)
y <- data.frame(DATE = structure(c(15809, 15809, 15809, 15809,
                                  15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809,
                                  15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809,
                                  15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809,
                                  15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809,
                                  15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809, 15809,
                                  15809), class = "Date"),
                Time = c("20:14", "20:29", "20:44",
                "20:59", "21:14", "21:29", "21:44", "21:59", "22:14", "22:29",
                "22:44", "22:59", "23:14", "23:29", "23:44", "23:59", "00:14",
                "00:29", "00:44", "00:59", "01:14", "01:29", "01:44", "01:59",
                "02:14", "02:29", "02:44", "02:59", "03:14", "03:29", "03:44",
                "03:59", "04:14", "04:29", "04:44", "04:59", "05:14", "05:29",
                "05:44", "05:59", "06:14", "06:29", "06:44", "06:59", "07:14",
                "07:29", "07:44", "07:59", "08:14", "08:29"),
                CPU = c(30, 30,
                30, 31, 30, 27, 25, 23, 24, 22, 20, 21, 22, 21, 20, 20, 20, 15,
                17, 15, 20, 16, 15, 16, 15, 14, 14, 11, 12, 11, 19, 22, 22, 21,
                19, 20, 20, 17, 16, 10, 9, 9, 9, 10, 12, 13, 14, 14, 16, 16))
y$Time <- factor(y$Time, levels=rev(sort(y$Time)))


cols<-c("white","#F0FFFF","#BBFFFF","#00FFFF","#42C0FB","#1C86EE", "green","yellow","#C9821E", "#FF0000", "#FF0000")
vals<-c(0,0.19,0.29,0.39, 0.49,0.59, 0.69, 0.79, 0.89, 0.90,1)
brk<-c(20, 30, 40, 50, 60, 70, 80, 90, 100)
ggplot(y,aes(DATE, Time, fill=CPU)) + geom_tile() + theme_bw() +
  scale_fill_gradientn(name="CPU Utilization", colours=cols, values=vals, limits=c(0,100), breaks = brk)