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))
rgbwt <- rgba_int_to_raster(rgbwt_to_rgba_int(rgbwt))
raster plot(raster, interpolate=F)
<- apply_kernel_rgbwt(rgbwt)
blurred_rgbwt <- rgba_int_to_raster(rgbwt_to_rgba_int(blurred_rgbwt))
raster plot(raster, interpolate=F)
<- apply_kernel_rgbwt(rgbwt, filter="gauss")
gauss_blurred_rgbwt <- rgba_int_to_raster(rgbwt_to_rgba_int(gauss_blurred_rgbwt))
gauss_raster plot(gauss_raster, interpolate=F)
<- c(255, 0, 0, 100, 0, 255, 0, 25, 0, 0, 255, 50, 0, 0, 0, 100)
v <- array(v, c(4, 4))
palette <- rep(c(1,2,3,4), each=25000)
map <- scatter_points_rgbwt(points, map = map, palette = palette, xlim=c(-5,5), ylim=c(-5,5))
rgbwt <- rgba_int_to_raster(rgbwt_to_rgba_int(rgbwt))
raster plot(raster, interpolate=F)
= c(255, 0, 0, 100, 0, 255, 0, 10, 0, 0, 255, 10, 0, 0, 0, 0)
v <- array(v, c(4, 100000))
colors <- scatter_points_rgbwt(points, RGBA = colors)
rgbwt <- rgba_int_to_raster(rgbwt_to_rgba_int(rgbwt))
raster plot(raster, interpolate=F)