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

首先使用 plotly 4.10.1 运行可复现的 R 示例，先使用缺失值，然后不使用缺失值，以隔离误差条位置的变化。比较 OJ 和 VC 轨迹的柱和误差条位置；当存在缺失数据时误差条仍与其柱对齐，即表示完成。