使用R创建3D直方图

# 安装rgl包
install.packages("rgl")

# 加载rgl包
library(rgl)

# 生成随机数据
set.seed(123)
x <- rnorm(1000)
y <- rnorm(1000)
z <- rnorm(1000)

# 创建3D直方图
hist3d(x, y, z, alpha = 0.5, col = "lightblue")

# 添加轴标签
axes3d()

# 添加标题
title3d(xlab = "X", ylab = "Y", zlab = "Z")

# 显示图形
rgl.postscript("hist3d.eps", fmt = "eps")