library(scattermore)
<- cbind(rnorm(1e5), rnorm(1e5))
points <- scatter_points_rgbwt(points, RGBA= c(64,128,192,50), xlim=c(-5,5), ylim=c(-5,5))
p1 <- scatter_points_rgbwt(points, RGBA= c(192,128,64,50), xlim=c(-5,5), ylim=c(-5,5)) p2
<- list(p1, p2)
l <- merge_rgbwt(l)
merged <- rgba_int_to_raster(rgbwt_to_rgba_int(merged))
raster plot(raster, interpolate=F)
<- rgbwt_to_rgba_float(p1)
p1_frgba <- rgbwt_to_rgba_float(p2)
p2_frgba <- list(p1_frgba, p2_frgba)
l <- blend_rgba_float(l)
blended <- rgba_int_to_raster(rgba_float_to_rgba_int(blended))
raster plot(raster, interpolate=F)