Plotly в R Set Индивидуальная ширина штабелированной полосы

Question

Из учебника Plotly я знаю, как установить ширину отдельной полосы следующим образом:

library(plotly)

x= c(1, 2, 3, 5.5, 10)
y= c(10, 8, 6, 4, 2)
width = c(0.8, 0.8, 0.8, 3.5, 4)
data <- data.frame(x, y, width)

p <- plot_ly(data) %>%
  add_bars(
    x= ~x,
    y= ~y,
    width = ~width
  )

И получится хорошая различная ширина:

Однако, когда я пытаюсь воспроизвести это с помощью гистограмм с накоплением, это не работает:

x = c(1, 2, 3, 5.5, 10,1, 2, 3, 5.5, 10)
y = c(10, 8, 6, 4, 2,0,2,4,6,8)
width = c(0.8, 0.8, 0.8, 3.5, 4,0.8, 0.8, 0.8, 3.5, 4)
group = c("A", "A", "A", "A", "A", "B", "B", "B", "B", "B")
data <- data.frame(x, y, width, group)

p <- data %>%
  group_by(group) %>%
  plot_ly(
    x= ~x,
    y= ~y,
    width = ~width,
    color = ~group,
    colors = 'Reds',
    type = "bar"
  ) %>%
  layout(barmode = 'stack')

выдает ошибку:

> print(p)
Error in validateCssUnit(sizeInfo$width) : 
  CSS units must be a single-element numeric or character vector
In addition: Warning message:
In is.na(x) : is.na() applied to non-(list or vector) of type 'language'

Конечно, закомментируйте "width = ~ width", тогда мой код работает отлично. Но мне действительно нужно настроить ширину полосы для моего графика. Кто-нибудь знает решение этой проблемы?

Answer 1

Вы можете использовать ggplotly в качестве альтернативы.Вы можете попробовать это:

ggplotly(ggplot(data = data, aes(x = x, y = y, fill = group, width = width)) + geom_col() + theme_bw())