Есть ли у Facet_wrap/facet_grid аналогичная функция в highcharter?

У меня есть фрейм данных ниже, и построение графика выполнено с помощью ggplot. Есть ли аналогичная функция, такая как facet_grid или facet_wrap в highcharter

df1<-data.frame(
      Year=sample(2016:2018,100,replace = T),
      Month=sample(month.abb,100,replace = T),
      category1=sample(letters[1:6],100,replace = T),
      catergory2=sample(LETTERS[8:16],100,replace = T),
      lic=sample(c("P","F","T"),100,replace = T),
      count=sample(1:1000,100,replace = T)
    )

Код участка:

ggplot(df1,aes(Year,count,fill=factor(lic))) +
      geom_bar(stat = "identity",position = "stack") +
      facet_grid(~category1)

выход


r r-highcharter
person sai saran    schedule 13.11.2018    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Лучшее, что я нашел, это это.

df2 <- df1 %>% 
  group_by(Year,category1  ,lic) %>% 
  summarise(count=sum(count)) 
map(unique(df2$category1), function(x){
  df2 %>% filter(category1 == x) %>% 
    hchart(., "column", hcaes(x = Year, y = count, group = lic),showInLegend = FALSE) %>% 
    hc_plotOptions(column = list(stacking = "normal")) %>% 
    hc_add_theme(hc_theme_smpl()) %>% 
    hc_title(text = x) %>% 
    hc_yAxis(title = list(text = ""))
  }) %>% 
  hw_grid(rowheight = 150) %>% htmltools::browsable()

введите здесь описание изображения

person Roman    schedule 13.11.2018
comment
Спасибо за обновление, и у меня есть еще одна проблема. Можете ли вы сообщить мне любую идею: мне нужно построить график недели, месяца по оси x, и категория 1 будет одной группой, а грани будут категорией 2 .. возможно ли легко в ggplot? - person sai saran; 13.11.2018
comment
Можно ли его экспортировать? Я пытался использовать htmlwidgets::saveWidget, и это не сработало. - person patL; 17.04.2020