使用Plotly在R上的3D表面图不准确

Question

这是我运行的代码

library(plotly)
d_0 <- 0.69
d_n <- 0.6
n <- 6
r <- runif(5, min = 0.05, max = 0.08)
#r <- seq(0.05, 0.08, 0.005)
g <- seq(0.08, 0.15, length.out = 5)
alpha <- (r - g)/(1 + g)
part1 <- ((alpha)/(((1+alpha)^(-n))-1))
part2 <- (((1+alpha)^(-n))*d_n - d_0)
options("scipen" = 100, "digits" = 4)
equation <- part1 * part2
data.df <- data.frame(r, g, equation)
data.matrix <- as.matrix(data.df)
plot_ly(data.df, x = ~r, y = ~g, z = ~data.matrix) %>% add_surface()

这是输出 3d曲面图

但是，有些点不是我的原始数据的一部分，例如z轴（data.matrix）的取值为0.15，而x和y轴则不允许，因为z是z的函数。 x和y。

有人可以帮我找到错误吗？