setwd("D:/dataR")
library(magick)
## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11
odd <- image_read("odd.jpg")
plot(odd)

odd <- image_modulate(odd, brightness = 100, saturation = 20, hue = 120)
plot(odd)

image_rotate(odd, 45)

image_blur(odd, 10, 5)

image_negate(odd)