library(scattermore)
<- matrix(rnorm(40000),ncol=4,byrow=F) lines
<- scatter_lines_rgbwt(lines, 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)