我正在尝试使用以下代码使用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)
但是直方图在底部被切断:
答案 0 :(得分:1)
您可以在par(xpd = NA)
调用之前使用hist3D
,以允许使用整个设备区域进行绘图。这可能是不够的空间。如果不是,请将边距也设置得非常大。例如,
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直方图所期望的:-)。