无法使用数据框plot_ly创建3D表面

Question

我一直在尝试用plotly 创建一个3d 表面，但我做不到。我所做的如下：

dataf <- data.frame(x=as.numeric(1:50), y=as.numeric(1:50), z=as.numeric(1:5))

进而

plot_ly() %>% add_trace(data = dataf,  x=dataf$x, y=dataf$y, z=dataf$z, type="mesh3d" ) 

但问题是它给我打印了一张空图。

任何帮助表示赞赏。