knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
library(tibble)
Meet Tigrou
library(collage) library(magick) tigrou <- image_read( system.file("tigrou", "tigrou.jpg", package = "collage") )
Tigrou with every 25x25 replaced by another kitty
collage( tigrou, tiles = kittens, size = 25)
image_write( collage( tigrou, tiles = kittens, size = 25), path = "images/collage.png" )
with every 10x10 replaced by a useR 2017 attendee:
collage( tigrou, tiles = useR2017, size = 10)
image_write( collage( tigrou, tiles = useR2017, size = 10), path = "images/collage_useR.png" )
A measure of the quality of the tiles.
collage_quality( tigrou, tiles = kittens, size = 25)
image_write( collage_quality( tigrou, tiles = kittens, size = 25), path = "images/collage_quality.png" )
Showing the grid
collage_grid( tigrou, size = 25)
image_write( collage_grid( tigrou, size = 25), path = "images/collage_grid.png" )
The tiles argument of these functions expect a tibble similar to the kittens
(or puppies
) that is shipped
with the package:
kittens puppies
Each row represent a tile, which has a given color (identified by the red
, green
, blue
and alpha
columns).
The tile
column is a list column holding the data for the tiles.
kittens$tile[[1]]
The tiles
function can make one of these tiles tibbles:
files <- list.files( system.file("base", package = "collage"), pattern = "jpg$", full.names = TRUE ) samples <- tiles( files, size = 25 ) samples
The tiles_mono
function generates monochromatic tiles. For example, here is Tigrou
with each 25x25 square replaced by the closest R color.
rtiles <- tiles_mono(colors()) collage( tigrou, tiles = rtiles, size = 25)
image_write( collage( tigrou, tiles = rtiles, size = 25), path = "images/collage_rcolors.png" )
The tiles_animals
function scraps data. For example, the kittens
and
puppies
have been generated with :
kittens <- tiles_animals(what = "bebe,chats", pages = 1:20) puppies <- tiles_animals(what = "bebe,chiens", pages = 1:20)
Histograms are a tool used in photography to visualise brightness of images. image_histogram_data
measures the number of pixels for each tone (from 0 to 255) in a picture.
image_histogram_data(tigrou)
Then image_histogram_brightness
and image_histogram_rgb
shows brightness and individual
channel histograms:
image_histogram_brightness(tigrou) image_histogram_rgb(tigrou)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.