R 绘制等高线图行为

我想了解如何正确地用plotly绘制等高线图。在下面的代码中，我有x，y，z，所以我使用akima包中的interp进行插值，以获得更明确的范围。我先用plotly然后用filled.contour绘制结果。plotly的结果是错误的，但我更喜欢填充轮廓的美学效果，结果是正确的

我对plotly做了什么错事

require(akima)
require(plotly)

x = rand(15,1)
y = rand(15,1)
z = rand(15,1)

a = interp(x, y, z)

p = plot_ly(x = a$x,
            y = a$y,
            z = a$z,
            type = "contour")
p

filled.contour(a$x,a$y,a$z)

---

Plotly希望矩阵的排列略有不同。这里有一个修正：

require(akima)
require(plotly)
library(pracma)
set.seed(1)
x = rand(15,1)
y = rand(15,1)
z = rand(15,1)

a = interp(x, y, z)

plot_ly(x = a$x,
        y = a$y,
        z = matrix(a$z, nrow = length(a$y), byrow = TRUE),
        type = "contour")

没有矩阵重排：

plot_ly(x = a$x,
        y = a$y,
        z = a$z,
        type = "contour")

---

非常感谢！效果很好！一开始，我只是看了一下网站上的例子，并没有完全理解这个安排。我想这样的例子会有很大帮助！

plot_ly(x = a$x,
        y = a$y,
        z = a$z,
        type = "contour")