Pada kali ini, kita akan mencoba lagi library “magick” untuk memanipulasi gambar, membaca, dan menampilkannya.

Kita akan mencoba menggunakan fungsi modulate dan fungsi cropped untuk memotong gambar.

Kita tahu bahwa package magick adalah package dalam bahasa pemrograman R yang digunakan untuk manipulasi gambar atau image processing.

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

Setelah itu kita menggunakan perintah image_read seperti berikut untuk membaca gambar dari direktori komputer :

# Reading from a local computer.
inp_img <- image_read("rubikku_4x4.jpg")

Setelah perintah berjalan, gambar yang berjudul “rubikku_4x4.jpg” akan ditampung dalam variabel inp_img, sehingga kita dapat melakukan berbagai operasi pengolahan pada gambar tersebut, seperti memotong (crop), mengubah ukuran (resize), memutar (rotate), dan sebagainya.

Lalu, kita lanjutkan lagi dengan perintah berikut untuk menampilkan informasi tentang objek gambar yang telah dibaca dan ditampung dalam variabel inp_img

image_info(inp_img)
##   format width height colorspace matte filesize density
## 1   JPEG  2304   4096       sRGB FALSE  2518431   72x72

Lalu kita akan mendapat informasi tentang gambar kita yang sudah dibaca seperti di atas.

Berikutnya kita gunakan perintah plot(inp_img), untuk menampilkan gambarnya.

plot(inp_img)

Kemudian kita akan memodifikasinya menggunakan fungsi modulate seperti berikut :

mod_img <- image_modulate(inp_img, brightness = 140, saturation = 35, hue = 45)

Keterangan :

[Fungsi image_modulate merupakan salah satu dari berbagai fungsi yang tersedia dalam package magick yang digunakan untuk mengubah karakteristik gambar seperti brightness, saturation, hue, dan sebagainya. Pada perintah tersebut, parameter brightness, saturation, dan hue digunakan untuk mengubah brightness, saturation, dan hue gambar secara berturut-turut]

Dengan perintah tersebut kita menginginkan gambar dimodifikasi menjadi memiliki kecerahan 140, saturasi 35, dan hue-nya 45.

Secara garis besar fungsi image_modulate ini, dapat mengubah karakteristik gambar secara cepat dan mudah tanpa harus melakukan perubahan pada pixel gambar secara manual.

Lalu kita tampilkan lagi hasil gambar yang sudah dimodifikasi seperti berikut :

plot(mod_img)

Gambar hasil modifikasi berhasil ditampilkan.

Berikutnya kita coba untuk membaca gambar hasil modifikasi pertama dan akan kita potong menggunakan fungsi crop seperti berikut :

img_cropped <- image_crop(mod_img, geometry_area(width = 2100, height = 2100, x = 100, y = 1000))

Setelah perintah di atas kita jalankan, maka gambar akan berhasil dipotong akan tetapi masih belum ditampilkan.

Kemudian di akhir kita tampilkan gambar hasil pemotongannya dengan fungsi plot lagi seperti berikut :

plot(img_cropped)

Selesai, demikian cara memotong gambar dengan fungsi crop dari library magick.