R 如何正确使用Plotly软件包进行绘图

我想用R中的Plotly包打印输出

首先，采用了以下代码：

 library(sfsmisc)
 library('EnvStats')
 library(plotly)
 
 
 x <- seq(0.01, 0.99, by = .001)
 y1 <- dtri(x, min = 0.15, max = 0.33, mode = 0.24)
 z1 <- seq(0, 0, by = .001)
 for (i in 1:length(x) ){ z1[i] <- y1[i] }

 y2 <- dtri(x, min = 0.1, max = 0.30, mode = 0.1005)
 z2 <- seq(0, 0, by = .001)
 for (i in 1:length(x) ){ z2[i] <- y2[i] }

 z3 <- seq(0, 0, by = .001)
 for (i in 1:length(x) ){ z3[i] <- z1[i]*z2[i] }

 t <- integrate.xy(x, z3)

 zz <- matrix( c <- (0:0), ncol= length(x), nrow= length(x))
 for (i in 1:length(x) ){ for (j in 1:length(x) ){ zz[i,j] <- z1[i]*z2[j]/t } }

 fig <- plot_ly(x= z1, y= z2, z= zz, type = "contour")

 fig

库（sfsmisc）
库（'EnvStats'）
图书馆（绘本）
x
 library(plotly)
 library(sfsmisc)
 library('EnvStats')

 z1 <- seq(0.01, 0.99, by = .01)

 z2 <- seq(0.01, 0.99, by = .01)

 zz <- matrix( c <- (1:5000000), ncol= length(x), nrow= length(x))

 fig <- plot_ly(x= z1, y= z2, z= zz, type = "contour", start = 0, end = 1)

 fig