library(scattermore)
<- scatter_lines_histogram(matrix(rnorm(40000),ncol=4,byrow=F), xlim=c(-5,5), ylim=c(-5,5))
histogram image(histogram)
<- apply_kernel_histogram(histogram, radius=4)
blurred_histogram image(blurred_histogram)
<- apply_kernel_histogram(histogram, filter="gauss", radius=4)
gauss_blurred_histogram image(gauss_blurred_histogram)
<- histogram_to_rgbwt(blurred_histogram)
rgbwt <- rgba_int_to_raster(rgbwt_to_rgba_int(rgbwt))
raster plot(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
<- histogram_to_rgbwt(blurred_histogram, RGBA=palette)
rgbwt <- rgba_int_to_raster(rgbwt_to_rgba_int(rgbwt))
raster plot(raster, interpolate=F)