Как разделить сгруппированную гистограмму по переменной R

Question

Я пытаюсь разделить прикрепленную сгруппированную гистограмму по переменной spec. Два лучших способа сделать это - добавить facet_grid () или применить фильтр к выводу stati c? Можно ли это сделать? Любой совет приветствуется.

образец ниже:

period <- c('201901', '201901', '201904', '201905')
spec <- c('alpha', 'bravo','bravo', 'charlie')
c <-  c(5,6,3,8)
e <- c(1,2,4,5)


df <- data.frame(period, spec, c,e)

library(tidyverse)
library(plotly)

plot_ly(df, x =~period, y = ~c, type = 'bar', name = "C 1", marker = list(color = 'lightsteelblue3')) 
%>%
  add_trace(y = ~e, name = "E 1", marker = list(color = 'Gray')) %>%
  layout(xaxis = list(title="", tickangle = -45),
         yaxis = list(title=""),
         margin= list(b=100), 
         barmode = 'group'
  )

Answer 1

Возможно, здесь проще использовать фасеты, но более «интерактивным» вариантом будет использование filter transforms, которое дает вам раскрывающееся меню в верхнем левом углу графика.

spec.val <- unique(df$spec)
plot_ly(
    df %>% pivot_longer(-c(period, spec)),
    x = ~period, y = ~value, color = ~name,
    type = "bar",
    transforms = list(
        list(
            type = "filter",
            target = ~spec,
            operation = "=",
            value = spec.val[1]))) %>%
    layout(
        updatemenus = list(
            list(
                type = "drowdown",
                active = 0,
                buttons = map(spec.val, ~list(
                    method = "restyle",
                    args = list("transforms[0].value", .x),
                label = .x)))))

Answer 2

Я не уверен, замышляете ли вы, чего вы на самом деле хотите достичь? Я предлагаю создать свой график, используя стандартный ggplot, а затем использовать ggplotly.

. Для этого вам также необходимо изменить данные и сделать их немного длиннее.

library(tidyverse)
library(plotly)

period <- c('201901', '201901', '201904', '201905')
spec <- c('alpha', 'bravo','bravo', 'charlie')
c <-  c(5,6,3,8)
e <- c(1,2,4,5)


df <- data.frame(period, spec, c,e) %>% 
        pivot_longer(cols = c(c,e), names_to = 'var', values_to = 'val')


p <- ggplot(df, aes(period, val, fill = var)) +
  geom_col(position = position_dodge()) +
  facet_grid(~spec)

ggplotly(p)