Percobaan Ke-3 Modifikasi Gambar (penggabungan)

Pada kali ini, kita akan mencoba menggabungkan 2 gambar dengan menggunakan fungsi append dari package magick yang berguna untuk menggabungkan gambar secara vertikal.

Pertama kita muat dulu library magicknya.

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

Kemudian kita baca masing-masing gambar yang akan kita gabungkan menjadi satu seperti berikut :

# Reading from a local computer.
img1 <- image_read("twlearning.jpg")
img2 <- image_read("cclearningcode.jpg")

Kemudian kita bisa mengetahui informasi seputar gambar yang akan kita gabungkan dengan perintah berikut :

image_info(img1)

##   format width height colorspace matte filesize density
## 1   JPEG  6951   5000       sRGB FALSE  1501453 180x180

image_info(img2)

##   format width height colorspace matte filesize density
## 1   JPEG  7058   5000       sRGB FALSE  2049345 180x180

Dari informasi di atas kita tahu bahwa kedua gambar adalah gambar yang berbeda satu sama lain.

Kita bisa menampilkan masing-masing gambar sebelum digabungkan dengan menggunakan fungsi plot seperti di bawah ini :

plot(img1)

plot(img2)

Langkah berikutnya kita gabungkan dua gambar di atas menjadi satu secara vertikal dengan perintah seperti berikut :

# Append the two images vertically
result <- image_append(c(img1, img2), stack=TRUE)

Setelah perintah image_append dijalankan, gambar akan digabungkan menjadi satu secara vertikal, akan tetapi masih belum ditampilkan.

Jika kita hendak menampilkan gambar hasil penggabungan-nya tadi kita dapat menampilkannya dengan fungsi plot lagi.

plot(result)

Di atas adalah gambar hasil penggabungannya.

Terakhir, kita juga dapat menyimpan gambar hasil penggabungan tadi dengan format jpg pada komputer dan juga dengan nama file sesuai keinginan kita. Sehingga gambar hasil penggabungan nantinya akan dapat kita buka di direktori komputer kita. Caranya adalah menggunakan fungsi berikut :

# Write the result to a new file
image_write(result, "img3_resultappend.jpg")

Demikian cara menggabungkan dua foto menjadi satu dengan menggunakan fungsi image_append.