Это код, который я набрал
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 является функцией x и y.
Может кто-нибудь помочь мне найти ошибку?