서피스 드로잉 불규칙 간격의 데이터 점

x-y 평면에 데이터를 그리는 것을 고려합니다.
산포도만 그리면plot3d로 그릴 수 있습니다

library(rgl)
plot3d(x, y, z)

surfaceplot를 진행하려면 데이터가 x-y 평면에 규칙적으로 배열되어야 합니다.
데이터가 규칙적으로 배열되지 않은 상황에서 규칙의 데이터 포인트를 생성하기 위해 보충을 해야 한다.
akima 라이브러리를 사용하여 규칙 데이터를 보충하고 생성할 수 있습니다.

library(akima)
interpolated <- interp(x, y, z)
plot3d(x,y,z)  # 元のデータ点をプロット
surface3d(interpolated$x, interpolated$y, interpolated$z)  #補完したデータをプロット

기본적으로 x, y40시는 각각 보충됩니다.
더 세밀하게 보충하고 싶을 때xo,yo를 지정합니다.

finer <- interp(x,y,z,xo=seq(min(x),max(x),length=200),yo=seq(min(y),max(y),length=200))
surface3d(finer$x, finer$y, finer$z)

sample

검은 점은 데이터 점이다

surface3d로 녹색면 보충 데이터 그리기