Rgl package 3D scatter plot 从轴上删除科学记数法

Question

进行散点图 plot 时，有什么方法可以关闭 rgl 中轴的科学编号？ 我攻击了我在下面得到的图像，我不想要 e+004 而是完整的数字

下面是我的代码：

library(rgl)

# Add a new column with color
mycolors <- c('royalblue1', 'darkcyan', 'oldlace')
comb_data$color <- mycolors[ as.factor(comb_data$mg) ]

# Plot
par(mar=c(0,0,0,0))
plot3d( 
  x=comb_data$a, y=comb_data$b z=comb_data$c, 
  col = comb_data$color, 
  type = 's', 
  xlab="a", ylab="b", zlab="c")

Answer 1

在plot3d()调用中，您可以说axes = FALSE ，然后单独调用以将轴设置为您想要的任何值。 你的例子是不可重现的，但这里有类似的东西。 此版本的轴在您旋转显示器时会四处移动。 对 static 轴使用axes3d()代替。

comb_data <- data.frame(a = c(0, 1500), b = c(0, 1e4), c = c(0, 7e4), color = c("royalblue1", "darkcyan"))
plot3d( x=comb_data$a, y=comb_data$b, z=comb_data$c, 
        col = comb_data$color, 
        type = 's', 
        xlab="a", ylab="b", zlab="c", axes = FALSE)
xat <- pretty(comb_data$a)
yat <- pretty(comb_data$b)
zat <- pretty(comb_data$c)
bbox3d(xat=xat, yat=yat, zat=zat, col=c("white","black"), 
       front="culled", back="culled")
box3d()

如果您不喜欢默认值（由format(xat)生成），则可以使用bbox3d的xlab参数来提供要在xat位置使用的字符串，对于其他轴也类似。