plot_ly 带有固定变量的3D图

Question

我想在R中使用plot_ly函数来绘制3D图。

我的数据中有一个恒定的日期变量，这使得情节消失了。

在下面的代码中，你可以看到这个问题只出现在恒定的日期变量上。

#date constant variable
data<-data.frame(x=c(1,2,3,4,5),y=rep(Sys.Date(),5),z=c(3,2,5,23,6),w=c("a","a","b","b","c"))
p <- plot_ly(x= data[["x"]], y =data[["y"]] , z = data[["z"]], color = data[["w"]], 
             type="scatter3d", mode="markers") 
p


#date not constant variable
data<-data.frame(x=c(1,2,3,4,5),y=c(rep(Sys.Date(),4),Sys.Date()+1),z=c(3,2,5,23,6),w=c("a","a","b","b","c"))
p <- plot_ly(x= data[["x"]], y =data[["y"]] , z = data[["z"]], color = data[["w"]], 
             type="scatter3d", mode="markers") 
p



#factor constant variable
data<-data.frame(x=c(1,2,3,4,5),y=rep("A",5),z=c(3,2,5,23,6),w=c("a","a","b","b","c"))
p <- plot_ly(x= data[["x"]], y =data[["y"]] , z = data[["z"]], color = data[["w"]], 
             type="scatter3d", mode="markers") 
p

#numeric constant variable
data<-data.frame(x=c(1,2,3,4,5),y=rep(1,5),z=c(3,2,5,23,6),w=c("a","a","b","b","c"))
p <- plot_ly(x= data[["x"]], y =data[["y"]] , z = data[["z"]], color = data[["w"]], 
             type="scatter3d", mode="markers") 
p

有没有办法解决这个问题

谢谢你的帮助

Answer 1

看起来可能是 plotly 方面的一个 bug，但基本上问题是 plotly 不能显示大的数字。它适用于 1589392544 (=as.numeric(Sys.time()))，也是。只要在绘图前加点格式化就可以了。

library(plotly)
data<-data.frame(x=c(1,2,3,4,5),
                 y=rep(format(Sys.time(), "%Y-%M-%D %H:%M:%S"),5),
                 z=c(3,2,5,23,6),
                 w=c("a","a","b","b","c"))

p <- plot_ly(data, x=~x, y =~y , z =~z, color = ~w, 
                      type="scatter3d", mode="markers")
p