R 创建交互式水平图（热图）

我有一些测试数据如下所示：

library(rbokeh)
library(lattice)

Date<-as.Date(c("2017-01-01","2017-01-01","2017-01-01","2017-01-02","2017-01-02","2017-01-02","2017-01-03","2017-01-03","2017-01-03","2017-01-4","2017-01-4","2017-01-4"))
Date<-as.POSIXct(Date)
Y<-c(1,2,3,1,2,3,1,2,3,1,2,3)
Temp<-c(20,23,25,19,20,21,18,19,20,13,17,19)
DF<-data.frame(Date,Y,Temp)

dev.new(width=15, height=6)
levelplot(Temp ~ Date * Y, data = DF,ylim=c(3,1),
  xlab = "TimeStamp", ylab = "Temp",
  main = "Test", aspect=0.4,
  col.regions =colorRampPalette(c('blue','red')),at=seq(13, 25, length.out=120))

---

我已经开始使用rbokeh创建交互式绘图，以便放大x日期轴的各个方面，以便进行基本数据探索。但是我找不到一种方法来为这种levelplot创建类似的rbokeh-ish图。有没有办法让rbokeh创建一个levelplot，或者如果没有其他可以创建的库？

您看过了吗？Plotly确实有一些非常有用的绘图功能。感谢您的提示，虽然此代码可能会回答此问题，但它提供了有关如何和/或为什么解决此问题的附加上下文，这将提高答案的长期价值。

devtools::install_github("JohnCoene/echarts4r")

library(echarts4r)

DF %>% 
    dplyr::mutate(Date = as.Date(Date)) %>% 
    e_charts(Date) %>% 
    e_heatmap(Y, Temp) %>% 
    e_visual_map(Temp)