Library Magick (3)

library(magick)

## Warning: package 'magick' was built under R version 4.2.3

## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11

image_inp <- image_read("https://cdn.idntimes.com/content-images/community/2023/04/web-photo-editor-2-8ec6ec3ddb90d2bd58c672717f0972f2-eab57df0a8a852df9164e2c4bbbb64f2_600x400.jpg")

image_info(image_inp)

##   format width height colorspace matte filesize density
## 1   JPEG   600    400       sRGB FALSE    63094   96x96

plot(image_inp)

model_img <- image_modulate(image_inp, brightness = 70 , saturation = 30)

plot(model_img)

image_charcoal(image_inp)

plot(image_charcoal(image_inp))

image_noise(image_inp)

image_blur(image_inp, 5,5)

plot(image_blur(image_inp, 5,5))