In Teri934/scattermore2: Scatterplots with More Points

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(scattermore2)
points <- cbind(rnorm(1e5), rnorm(1e5))
p1 <- scatter_points_rgbwt(points, RGBA= c(64,128,192,50), xlim=c(-5,5), ylim=c(-5,5))
p2 <- scatter_points_rgbwt(points, RGBA= c(192,128,64,50), xlim=c(-5,5), ylim=c(-5,5))

Merge two rgbwt matrices

merged <- merge_rgbwt(p1,p2)
raster <- rgba_int_to_raster(rgbwt_to_rgba_int(merged))
plot(raster)

Blend two rgba float matrices

p1_frgba <- rgbwt_to_rgba_float(p1)
p2_frgba <- rgbwt_to_rgba_float(p2)
blended <- blend_rgba_float(p1_frgba,p2_frgba)
raster <- rgba_int_to_raster(rgba_float_to_rgba_int(blended))
plot(raster)