格子线框不显示网格

Question

我想用格子绘制 3D 图形。我设法绘制了 3D 散点图，但如果我尝试使用线框函数绘制图形，图形显示为空。

这是我的数据的一部分，我可以用它重现我的问题：

    structure(list(z = c(35.6848570203496, 20.6910550942398, 36.2505636561432, 
    38.9791450251443, 12.9514876234809, 10.0549459964936, 7.1604652315673, 
    14.681581323841, 29.7104179049907, 8.4814778127832), y = c(21.72, 
    21.72, 21.72, 21.72, 3.57, 3.57, 4.83, 4.83, 4.83, 4.83), x = c(22L, 
    136L, 79L, 23L, 34L, 22L, 16L, 66L, 30L, 1L)), row.names = c(NA, 
    -10L), class = c("tbl_df", "tbl", "data.frame"))

这是我的代码：

    wireframe(z~x*y,df, scales=list(arrows=FALSE))

Answer 1

使用 akima::interp 将 df 插值到规则网格，移除 NA，然后使用格子 wireframe。

library(lattice)
library(akima)

i <- with(df, interp(x, y, z, extrap = TRUE))
g <- with(i, expand.grid(x = x, y = y))
df2 <- data.frame(g, z = c(i$z))
wireframe(z~x*y, na.omit(df2), scales=list(arrows=FALSE))

给予：

格子线框不显示网格

Lattice wireframe does not show mesh

plot

r

lattice