surface plotをしたい場合、データがx-y平面上に規則的に並んでいる必要がある。 データが規則的に並んでいない場合は補完をして規則的なデータ点を生成する必要がある。 akimaライブラリを使用して補完し規則的なデータを生成することができる。 library(akima) interpolated <- interp(x, y, z) plot3d(x,y,z) # 元のデータ点をプロット surface3d(interpolated$x, interpolated$y, interpolated$z) #補完したデータをプロット