Добавление баров ошибок в сгруппированную гистограмму R

Question

У меня есть данные, которые я хотел бы построить, используя столбчатую диаграмму R plotly с y столбцами ошибок. Данные состоят из двух групп, каждая из которых имеет измерения трех типов:

set.seed(1)
df <- data.frame(group = c(rep("A",3),rep("B",3)),
                 type = rep(letters[1:3],2),
                 mean.proportion = runif(6,0,1),
                 se.proportion = runif(6,0.01),
                 stringsAsFactors = F)
df$group <- factor(df$group)
df$type <- factor(df$type)

Если я только строю бары без баров ошибок, используя:

plotly::plot_ly(x=df$type,y=df$mean.proportion,type='bar',color=df$group,showlegend=T) %>%
  plotly::layout(xaxis=list(title=NA),yaxis=list(title="Proportion"),barmode='group')

Получается нормально:

Однако, когда я пытаюсь добавить y строк ошибок, используя:

plotly::plot_ly(x=df$type,y=df$mean.proportion,type='bar',color=df$group,showlegend=T) %>%
  plotly::layout(xaxis=list(title=NA),yaxis=list(title="Proportion"),barmode='group') %>%
  plotly::add_trace(error_y=list(array=df$se.proportion))

Это запутано - бюстгальтеры удваиваются:

Есть идеи?

Answer 1

Попробуйте построить их в первом утверждении:

plotly::plot_ly(x=df$type,y=df$mean.proportion,type='bar',color=df$group,showlegend=T, error_y=list(array=df$se.proportion)) %>%
  plotly::layout(xaxis=list(title=NA),yaxis=list(title="Proportion"),barmode='group')

Выход: