使用包 plot3D 时直方图被切割

Question

我正在尝试使用 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)

但是直方图在底部被截断了：

所以，我正在寻找一种方法来为 hist3D() 扩展 canvas 的宽度或高度。

Answer 1

您可以在 hist3D 调用之前使用 par(xpd = NA) 以允许您的整个设备区域用于绘图。这可能还不够space；如果不是，也将页边距设置得非常大。例如，

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 直方图来说这是意料之中的 :-)。

使用包 plot3D 时直方图被切割

Histogram chart getting cut when using package plot3D

r

histogram

plot3d