echarty announcements and temporary notes

notes

#'  This gist is for echarty announcements and notes
#'  Comments are temporary, periodically deleted.
#'  If you like echarty, please consider granting a Github star ⭐.

remotes::install_github('helgasoft/echarty')  # get latest
library(echarty)

#------ segmentedDoughnut with ECharts v.6+ -----
ec.init(
  load= 'https://cdn.jsdelivr.net/gh/apache/echarts-custom-series@main/custom-series/segmentedDoughnut/dist/index.auto.js',
  ask= 'loadRemote',
  series.param= list(
    type= 'custom', renderItem= 'segmentedDoughnut',
    coordinateSystem= 'none',
    itemPayload= list(
      radius= list('50%','65%'), segmentCount= 8,
      label= list(show=T, formatter= '{c}/{b}', fontSize=35, color= '#555')
    ),
    data= list(5) )
)

@mdneuzerling, here is how to draw series with disparate data sets with echarty.

dat1 <- seq.Date(from = as.Date("2023-01-01"), by= 2, length.out = 100)
dat2 <- seq.Date(from = as.Date("2023-01-02"), by= 2, length.out = 100)
d1 <- data.frame(date= dat1, value= cumsum(rnorm(100, mean = 0.5, sd= 2)) + 50)
d2 <- data.frame(date= dat2, value= cumsum(rnorm(100, mean = 0.4, sd= 2)) + 30)
ec.init(
  dataset= list(
    list(source= ec.data(d1)),
    list(source= ec.data(d2))
  ),
  series= list(
    list(type='line', name='s1', datasetIndex=1, showSymbol=F), 
    list(type='line', name='s2', datasetIndex=2, showSymbol=F)
  ),
  xAxis= list(type='time'), legend= list(top=11), tooltip= list(trigger= 'axis'), dataZoom= list(show=T)
)