Rgl软件包3D散点图从轴中移除科学记数法

library(rgl)
data <- read.csv("data.csv")   # 读取数据集，可以根据实际情况修改文件路径和格式

plot3d(data$X, data$Y, data$Z, col = "blue", size = 2)   # 使用data数据集的X、Y、Z列作为坐标轴，设置点的颜色和大小

rgl.atof <- function(x) {   # 定义一个函数将科学记数法格式转换为普通数值格式
  format(as.numeric(x), scientific = FALSE)
}

rgl.opts <- list(at = rgl.atof)   # 将自定义函数应用于坐标轴标签的显示

rgl.viewpoint(theta = 45, phi = 30, fov = 60, zoom = 0.8)   # 设置视角，可以根据需要进行调整

axes3d(labels.opts = rgl.opts)   # 将自定义函数应用于坐标轴标签的显示

# 添加标题
title3d("3D Scatter Plot", cex = 1.2)   # 设置标题文本和字体大小

# 添加网格线
grid3d(nx = 10, ny = 10, nz = 10, col = "gray")

# 调整视图
rgl.viewpoint(theta = 60, phi = 20, fov = 60, zoom = 0.8)