如何使用e_charts（）在同一图表中组合条形图和线形图？

我试图在相同的可视化上组合条形图和折线图，而每个图的数据来自不同的数据集。所以我正在尝试的代码：

library(dplyr)
library(echarts4r)

set.seed(600)
df1 <- data.frame(
  #class = c(rep("1st", times = 60), rep("2nd", time = 30), rep("3rd", time = 30)),
  week = rep(1:20, times = 3),
  cat = c(rep("A", times = 20), rep("B", times = 20), rep("C", times = 20)),
  count = round(runif(60, 1, 100))
)

df <- data.frame(
  week = rep(1:20, times = 2),
  cat = c(rep("D", times = 20), rep("E", times = 20)),
  count = round(runif(40, 1, 100))
)

df1 %>%
      group_by(cat) %>%
      e_charts(week) %>%
      e_bar(count, bind = cat) %>%
      e_tooltip(
        formatter = htmlwidgets::JS("
        function(params){
        return('<strong>' + params.name + 
                '</strong><br />week: ' + params.value[0] + 
                '<br />count: ' + params.value[1]) 
                }
       ")
      ) 

尝试添加行，考虑df到Viz上的数据。以下是我要实现的目标：

在这里，我使用了echarts4rProxy（），但是Shiny之外是否可能有同样的事情？

还可以更改条形和线条的颜色吗？

谢谢！！