R 使用package plot3D时剪切直方图

我正在尝试使用以下代码从plot3D软件包中使用

hist3D（）

绘制一个简单的直方图：

library(tidyverse)
library(plot3D)
data(iris)
iris=as.tibble(iris)

x=c(1,2)
y=x
z=matrix(rnorm(4,sd=0.5,mean=1),ncol=2,nrow=2)

pmat<-hist3D(x,y,
       z,
       border="black",
       axes=TRUE,
       expand=0.4,
       theta=40,phi=30,
       zmin=-1,
       margin=c(10,10),
       mar=c(10, 1, 0, 2),
       ticktype = "detailed",col="green",box=TRUE)

库（tidyverse）
图书馆（plot3D）
数据（iris）
iris=as.tibble（iris）
x=c（1,2）
y=x
z=矩阵（rnorm（4，sd=0.5，平均值=1），ncol=2，nrow=2）
pmat您可以在调用
hist3D
之前使用
par（xpd=NA）
，以允许整个设备区域用于打印。这可能没有足够的空间；如果没有，那么将利润率设置为非常大。比如说,

par(xpd = NA, mar = c(10,10,10,10))
hist3D(x,y,
   z,
   border="black",
   axes=TRUE,
   expand=0.4,
   theta=40,phi=30,
   zmin=-1,
   margin=c(20,20),
   mar=c(10, 1, 0, 2),
   ticktype = "detailed",col="green",box=TRUE)

为我制作这个：


这很难看，但这是3D柱状图所期望的：-）。
您可以在调用
hist3D
之前使用
par（xpd=NA）
来允许整个设备区域用于打印。这可能没有足够的空间；如果没有，那么将利润率设置为非常大。比如说,

par(xpd = NA, mar = c(10,10,10,10))
hist3D(x,y,
   z,
   border="black",
   axes=TRUE,
   expand=0.4,
   theta=40,phi=30,
   zmin=-1,
   margin=c(20,20),
   mar=c(10, 1, 0, 2),
   ticktype = "detailed",col="green",box=TRUE)

为我制作这个：


这很难看，但这是3D直方图的预期：-）。
是的！正是我想要的谢谢。实际上，首先，我在画线，它们的尺寸出乎意料。然后，我发现它们被帆布的边缘切割了。是的！正是我想要的谢谢。实际上，首先，我在画线，它们的尺寸出乎意料。然后，我发现它们被画布的边缘剪断了。