как поместить две переменные из набора данных на гистограмму, сложенную в R

Question

Я пытаюсь поместить две переменные таблицы данных в столбчатую диаграмму (доступную и недоступную) в процентах (ось y) и дату по оси x для каждой службы (цвет в графике для дифференциации служб). Это мои данные с соответствующими переменными. введите описание изображения здесь

И я пытаюсь объединить эти две переменные в один график с учетом каждого сервиса (Ser ie). На данный момент я получил только это: введите описание изображения здесь

Answer 1

Я пытался сделать это с помощью plotly в R

barstack<-plot_ly(Servicelevel, x=Servicelevel$Date, y=Servicelevel$Available,
                             color=Servicelevel$Series,type = "bar")
    barstack <- barstack %>% add_trace(y = Servicelevel$Unavailable)
    barstack<-barstack %>% 
      layout(title = "Percentage of Availability over time",
             yaxis = list(title = 'Availability (%)',
                          tickformat = ".2%"),
             xaxis=list(title='Date'), barmode = 'stack')

И результат такой: Результат