library(plotly)
 
vst4<-read.csv("https://g...content-available-to-author-only...o.gl/t8yWII",header = T)
 
my_palette <- colorRampPalette(c("red","yellow","green"))(n = 64)
 
xa <- list(
    title = "里程數",
    autotick = FALSE,
    ticks = "outside",
    tick0 = 0,
    dtick = 5,
    ticklen = 5,
    tickwidth = 2,
    tickcolor = toRGB("black"),
    autorange = "reversed"
  )
 
ya <- list(
  title = "時間",
  autorange = "reversed",
  autotick = FALSE,
  autorange=T,
  dtick=60
)
 
plot_ly(x=vst4$milage,y=vst4$time_HM ,z = vst4$vdsAvgSpd, colors = my_palette , type = "heatmap")%>%
  layout(xaxis = xa,title="里程數")%>%
  layout(yaxis = ya,title="時間") %>%
  layout(title = "國五北上時空速率圖")
 

bGlicmFyeShwbG90bHkpCgp2c3Q0PC1yZWFkLmNzdigiaHR0cHM6Ly9nLi4uY29udGVudC1hdmFpbGFibGUtdG8tYXV0aG9yLW9ubHkuLi5vLmdsL3Q4eVdJSSIsaGVhZGVyID0gVCkKCm15X3BhbGV0dGUgPC0gY29sb3JSYW1wUGFsZXR0ZShjKCJyZWQiLCJ5ZWxsb3ciLCJncmVlbiIpKShuID0gNjQpCgp4YSA8LSBsaXN0KAogICAgdGl0bGUgPSAi6YeM56iL5pW4IiwKICAgIGF1dG90aWNrID0gRkFMU0UsCiAgICB0aWNrcyA9ICJvdXRzaWRlIiwKICAgIHRpY2swID0gMCwKICAgIGR0aWNrID0gNSwKICAgIHRpY2tsZW4gPSA1LAogICAgdGlja3dpZHRoID0gMiwKICAgIHRpY2tjb2xvciA9IHRvUkdCKCJibGFjayIpLAogICAgYXV0b3JhbmdlID0gInJldmVyc2VkIgogICkKCnlhIDwtIGxpc3QoCiAgdGl0bGUgPSAi5pmC6ZaTIiwKICBhdXRvcmFuZ2UgPSAicmV2ZXJzZWQiLAogIGF1dG90aWNrID0gRkFMU0UsCiAgYXV0b3JhbmdlPVQsCiAgZHRpY2s9NjAKKQoKcGxvdF9seSh4PXZzdDQkbWlsYWdlLHk9dnN0NCR0aW1lX0hNICx6ID0gdnN0NCR2ZHNBdmdTcGQsIGNvbG9ycyA9IG15X3BhbGV0dGUgLCB0eXBlID0gImhlYXRtYXAiKSU+JQogIGxheW91dCh4YXhpcyA9IHhhLHRpdGxlPSLph4znqIvmlbgiKSU+JQogIGxheW91dCh5YXhpcyA9IHlhLHRpdGxlPSLmmYLplpMiKSAlPiUKICBsYXlvdXQodGl0bGUgPSAi5ZyL5LqU5YyX5LiK5pmC56m66YCf546H5ZyWIikK