Combination chart (bar + line)

[newuserofthis]

Is it possible to draw combination charts like this one using billboarder? All three ways to map the variables failed. They produced graphs where a redundant bar variable is added showing the x-axis values.

data <- data.frame(
  "index" = 1:6,
  "data4" = c(200, 130, 90, 240, 130, 220),
  "data5" = c(130, 120, 150, 140, 160, 150)
)

billboarder() %>%
  bb_linechart(data[-3]) %>%
  bb_barchart(data[-2])

billboarder(data = data) %>% 
  bb_aes(x = index, y = data4) %>%
  bb_linechart() %>%
  bb_aes(x = index, y = data5) %>% 
  bb_barchart()

billboarder(data = data) %>% 
  bb_linechart(mapping = bbaes(x = index, y = data4)) %>%
  bb_barchart(mapping = bbaes(x = index, y = data5))

Your help is highly appreciated.
Thanks!
Anja

[pvictor]

Hello,

That's easier I think without using helper functions but using billboard API directly:

billboarder() %>% 
  bb_data(
    json = as.list(data),
    x = "index",
    types = list(
      data4 = "line",
      data5 = "bar"
    )
  )

Which gives:

I think bb_linechart and bb_barchart try both to add an x-axis without knowing there's already one... I'll look what I can do.

Victor

[Kvit]

Same issue here, suggested approach does not work well with subsequent %>% operations for chart decorations. As an alternative is it possible to remove a series from the chart?