Pada pembahasan kali ini kita akan coba untuk membahas mengenai fungsi pada R yang dapat memanipulasi gambar sehingga data properti nya dapat di edit menggunakan R.
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
Library magick pada bahasa R adalah sebuah paket perangkat lunak yang digunakan untuk memanipulasi gambar. Fungsi utama library magick adalah untuk membaca, menulis, dan memodifikasi file gambar dalam berbagai format seperti JPEG, PNG, BMP, GIF, dan TIFF.
Beberapa fungsi yang disediakan oleh library magick diantaranya adalah:
str(magick::magick_config())
## List of 24
## $ version :Class 'numeric_version' hidden list of 1
## ..$ : int [1:4] 6 9 12 3
## $ modules : logi FALSE
## $ cairo : logi TRUE
## $ fontconfig : logi FALSE
## $ freetype : logi TRUE
## $ fftw : logi TRUE
## $ ghostscript : logi TRUE
## $ heic : logi TRUE
## $ jpeg : logi TRUE
## $ lcms : logi TRUE
## $ libopenjp2 : logi TRUE
## $ lzma : logi TRUE
## $ pangocairo : logi TRUE
## $ pango : logi TRUE
## $ png : logi TRUE
## $ raw : logi TRUE
## $ rsvg : logi TRUE
## $ tiff : logi TRUE
## $ webp : logi TRUE
## $ wmf : logi FALSE
## $ x11 : logi FALSE
## $ xml : logi TRUE
## $ zero-configuration: logi TRUE
## $ threads : int 1
Perintah atau fungsi diatas digunakan untuk mengkonfigurasi magick sehingga dapat menjalankan fungsi nya dengan baik dan benar ketika digunakan pada baris2 berikutnya.
inp_img <- image_read("film-jepang-suzume-2023_169.jpeg")
Fungsi diatas digunakan untuk menginisiasi objek gambar yang akan dimanipulasi pada variabel yang telah ditentukan.
image_info(inp_img)
## format width height colorspace matte filesize density
## 1 JPEG 650 365 sRGB FALSE 45987 72x72
Fungsi diatas digunakan untuk memanggil info atau properti dari gambar yang sudah di inisiasikan sebelumnya.
plot(inp_img)
mod_img <- image_modulate(inp_img, brightness = 120, saturation = 20, hue = 20)
plot(mod_img)
image_border(image_background(inp_img, "hotpink"), "#000080", "20x10")