changePixelColor: Change all specified pixels to a new color

In countcolors: Locates and Counts Pixels Within Color Range(s) in Images

Description

Changes pixels in an image to a different color and displays and/or returns the re-colored image.

Usage

changePixelColor(pixel.array, pixel.idx, target.color = "green",
  return.img = FALSE, plotting = TRUE, main = "")

Arguments

pixel.array	An image represented as a 3D array (as read in by readJPEG, readPNG, or loadImage) in which to change pixel colors.
pixel.idx	An n x 2 matrix of index coordinates specifying which pixels to change, where rows are pixels and columns are X and Y coordinates in the image.
target.color	Color with which to replace specified pixels. Can be either a an RGB triplet or one of the colors listed by colors.
return.img	Logical. Should RGB array with swapped colors be returned?
plotting	Logical. Should output be plotted in the plot window?
main	Optional title to display for image.

Value

Raster array with indicated pixels changed to target color, if return.img = TRUE.

Examples

# Change a rectangle in the center to black
flowers <- jpeg::readJPEG(system.file("extdata", "flowers.jpg", package =
"countcolors"))

sinister.object <- expand.grid(c(114:314), c(170:470))

countcolors::changePixelColor(flowers, sinister.object, target.color = "black")

## Not run: 
# Change all the white flowers to magenta
indicator.img <- countcolors::sphericalRange(flowers, center = c(1, 1, 1),
radius = 0.1, color.pixels = TRUE, plotting = FALSE)

countcolors::changePixelColor(flowers, indicator.img$pixel.idx,
target.color="magenta")

## End(Not run)

Example output

countcolors documentation built on May 2, 2019, 6:08 a.m.