R | ECharts | Display big datasets with scatterGL and cartesian2d (GPU processing)

echarty.scatterGL.R

# ------ 1) prepare data
library(tibble)
dim <- 12500   # sample data half-quantity
slip <- if (dim %% 2) 0.1 else -0.1
setData <- function(offset) {
  t <- tibble(x = runif(dim, max=10),
              y = offset + sin(x) - x * slip * runif(dim))
  round(t,3)
}	
# two sets, same data shifted vertically
dat <- rbind(setData(0), setData(1))

# ------ 2) show data
library(echarty)
p <- ec.init(load='3D') |> ec.theme('dark-mushroom') 
p$x$opts <- list(
  title = list(text=paste('scatterGL -',nrow(dat),'points + zoom')),
  xAxis = list(show=TRUE),
  yAxis = list(show=TRUE),
  series= list(type= 'scatterGL', data= ec.data(dat, 'dataset', FALSE),
               symbolSize=3, large=TRUE,
               itemStyle=list(opacity=0.4, color='cyan')
  ),
  dataZoom = list(type='inside',start=50)
)
p

@docal555, @uzpaka - a solution to the problem.
If you like it, please consider giving a Github star ⭐ to echarty.