Доверительные интервалы или погрешности в scatterplot3d в R

Question

Может ли кто-нибудь помочь мне построить доверительные интервалы в scatterplot3d?Я нашел некоторую информацию для scatter3D здесь http://www.sthda.com/english/wiki/impressive-package-for-3d-and-4d-graph-r-software-and-data-visualization, и я попробовал и в scatterplot3d, и в scatter3d, но это не работает.Я хочу построить SE_Od или SE_pH на графике.Я довольно плохо знаком с графикой в ​​R, поэтому буду признателен за вашу помощь.Спасибо!

Вот выдержка из моих данных:

my_table <- read.csv("test.csv", header=TRUE)
> head(my_table)

  Time Media         Od   pH       SE_Od       SE_pH
1    0 M15_5 0.02200000 4.97 2.45000e-18 0.003333333
2   24 M15_5 0.03000000 5.07 5.77350e-04 0.003333333
3   48 M15_5 0.03500000 5.15 5.77350e-04 0.003333333
4   72 M15_5 0.04000000 5.21 5.77350e-04 0.014529663
5   96 M15_5 0.04966667 5.28 3.33333e-04 0.005773503
6  120 M15_5 0.05466667 5.30 1.20185e-03 0.017320508


#------------------------------------------

Time <- my_table[,1]
Od <- my_table[,3]
pH <- my_table[,5]
Media <- my_table[,2]

cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442",    "#0072B2", "#D55E00", "#CC79A7", "#003366", "#FF3399", "#00CC99", "#3300CC")    
colore <- cbPalette[as.numeric(Media)]
s3d<- scatterplot3d(Time, pH, Od, pch=16, color=colore, grid=TRUE, box=FALSE)