Error bars (using error_y) are no longer positioned correctly when missing data is present

Error bars (using error_y) are no longer positioned correctly when missing data is present using the barplot plot type. Plotly version 4.10.1.

Reproducible example:

library(plotly)
library(plyr)

data_mean <- ddply(ToothGrowth, c("supp", "dose"), summarise, length = mean(len))
data_sd <- ddply(ToothGrowth, c("supp", "dose"), summarise, length = sd(len))
data <- data.frame(data_mean, data_sd$length)
data <- rename(data, c("data_sd.length" = "sd"))
data$dose <- as.factor(data$dose)

data[1, "length"] <- NA # adding missing data
data[1, "sd"] <- NA # adding missing data

fig <- plot_ly(data = data[which(data$supp == 'OJ'),], x = ~dose, y = ~length, type = 'bar', name = 'OJ',
               error_y = ~list(array = sd,
                               color = '#000000'))
fig <- fig %>% add_trace(data = data[which(data$supp == 'VC'),], name = 'VC')

fig

Commencez par exécuter l’exemple R reproductible avec plotly 4.10.1, d’abord avec les valeurs manquantes, puis sans elles, afin d’isoler le changement de positionnement des barres d’erreur. Comparez les positions des barres et des barres d’erreur pour les traces OJ et VC ; le travail est considéré comme terminé lorsque les barres d’erreur restent alignées avec leurs barres en présence de données manquantes.