我有这个密码

serie <- data.frame(date=c("2022-01-01","2022-01-02","2022-01-03"),serie2=c(1,2,5), serie3=c(4,6,7))
serie$date <- as.Date(serie$date)
serie <- tk_xts(serie,data_var = serie$date)

highchart(type = "stock") %>%
  hc_title(text = "Comparison") %>%
  hc_add_series(serie$serie2,
                name = "serie 2",
                color = "green", compare = 'percent', compareBase=100) %>%
  hc_add_series(serie$serie3, name = "serie 3", color= "white",compare = 'percent', compareBase=100)%>%
  hc_add_theme(hc_theme_db())%>%
  hc_navigator(enabled = FALSE) %>%
  hc_scrollbar(enabled = FALSE) %>%
  hc_legend(enabled = TRUE) %>%
  hc_exporting(enabled = TRUE) %>%
  hc_xAxis(
    labels = list(
      style = list(
        color = "white"
      )
    )
  ) %>%
  hc_yAxis(
    labels = list(format = '{value}%',
                  style = list(
                    color = "white"
                  )
    )
  )

我需要在R-highcharts中得到这个值。我看到了这个https://www.highcharts.com/demo/stock/compare，但是我不明白代码，因为它和R有点不同。非常感谢