删除 scatter3D 图周围的白色 space

Removing white space around scatter3D plot

来自以下代码

D<-matrix(rnorm(100),10,10)
layout(matrix(c(1,2),ncol=1), widths=c(4,1), heights=1.2)
scatter3D(D[,1],D[,2],D[,3],colkey = FALSE)
plot(D[,1],type="l")

我得到以下情节 here。我希望 scatter3D 图完全适合分配给它的布局部分。我该怎么做?

我能够按如下方式解决我的问题,

D<-matrix(rnorm(100),10,10)
layout(matrix(c(1,2),ncol=1), widths=c(4,1), heights=1.2)
par(mar = c(0,0,0,0))
scatter3D(D[,1],D[,2],D[,3],colkey = FALSE)
par(mar=  c(5, 4, 4, 2) + 0.1)
plot(D[,1],type="l")