library(EBImage)
Equalize the image histogram to a specified range and number of levels.
Individual channels of color images and frames of image stacks are equalized separately, which results in a high-contrast image, but usually with color distortion.
x = readImage(system.file('images', 'cells.tif', package='EBImage'))
display(x, all=TRUE)