条形图和折线图与广告牌组合

Question

是否可以使用billboarder r软件包绘制诸如this one之类的组合图？我尝试了不同的规范方法，并且总是得到带有添加的冗余条形变量的图形，以显示x轴值。非常感谢您的帮助。

Combined billborder chart with redundant bar variable

library(billboarder)

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

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

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

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