knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(scattermore2)
histogram <- scatter_histogram(cbind(rnorm(1e5), rnorm(1e5)), xlim=c(-5,5), ylim=c(-5,5)) image(histogram)
blurred_histogram <- apply_kernel_histogram(histogram, kernel_pixels=10) image(blurred_histogram) gauss_blurred_histogram <- apply_kernel_histogram(histogram, filter="gauss") image(gauss_blurred_histogram)
rgbwt <- histogram_to_rgbwt(blurred_histogram) raster <- rgba_int_to_raster(rgbwt_to_rgba_int(rgbwt)) plot(raster)
v = c(255, 0, 0, 100, 0, 255, 0, 25, 0, 0, 255, 50, 0, 0, 0, 100) palette = array(v, c(4, 4)) rgbwt <- histogram_to_rgbwt(blurred_histogram, RGBA=palette) raster <- rgba_int_to_raster(rgbwt_to_rgba_int(rgbwt)) plot(raster)
Smithsonian Institute provides a lot of interesting data, including mammoth skeleton and T-rex skeleton eating triceratops skeleton.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.