Implementasi Image Magick

library(magick)

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

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

inp_img <- image_read("https://tse1.mm.bing.net/th?id=OIP.DnlFTUX1UveI9I7roO_M6wHaEK&pid=Api&P=0")

image_info(inp_img)

##   format width height colorspace matte filesize density
## 1   JPEG   474    266       sRGB FALSE    26392   72x72

image_info(inp_img)

##   format width height colorspace matte filesize density
## 1   JPEG   474    266       sRGB FALSE    26392   72x72

plot(inp_img)

mod_img <- image_modulate(inp_img, brightness = 120, saturation = 20,
hue = 20)

plot(mod_img)

mod_img <- image_modulate(inp_img, brightness = 120, saturation = 40, hue = 40)

image_rotate(mod_img, 45)

plot(mod_img)

imp = image_modulate(inp_img, brightness = 100, saturation = 100, hue = 100)
imp

image_border(image_background(inp_img,"hotpink"),"#39FF14","20x10")

image_scale(inp_img,"100")

image_scale(inp_img,"x100")

image_flip(inp_img)

image_rotate(inp_img, 90)

image_modulate(inp_img, brightness = 100,saturation = 140, hue = 60)

image_blur(inp_img, 10, 5)

image_noise(inp_img)

image_charcoal(inp_img)

juga digunakan untuk mengimport gambar dari internet.

earth <- image_read("https://jeroen.github.io/images/earth.gif") %>%
  image_scale("200x") %>%
  image_quantize(128)

length(earth)

## [1] 44

earth

head(image_info(earth))

##   format width height colorspace matte filesize density
## 1    GIF   200    200        RGB FALSE        0   72x72
## 2    GIF   200    200        RGB  TRUE        0   72x72
## 3    GIF   200    200        RGB  TRUE        0   72x72
## 4    GIF   200    200        RGB  TRUE        0   72x72
## 5    GIF   200    200        RGB  TRUE        0   72x72
## 6    GIF   200    200        RGB  TRUE        0   72x72