librarymagik[1]1.knit

Lembaga: Universitas Islam Negeri Maulana Malik Ibrahim Malang

paket “magick” dapat untuk melakukan operasi pengolahan gambar.

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

Selanjutnya, kode membaca gambar dari komputer lokal dengan menggunakan perintah image_read(“D:/gw/WhatsApp Image 2023-03-26 at 16.16.37.jpg”) dan menyimpannya ke variabel inp_img. Gambar tersebut kemudian dijelajahi dengan perintah image_info(inp_img) untuk mengetahui informasi teknis mengenai gambar, dan diplot dengan perintah plot(inp_img).

# Reading from a local computer.
inp_img <- image_read("D:/gw/WhatsApp Image 2023-03-26 at 16.16.37.jpg")

image_info(inp_img)

##   format width height colorspace matte filesize density
## 1   JPEG   853   1280       sRGB FALSE   114488   72x72

plot(inp_img)

Setelah itu, kode memodifikasi gambar tersebut dengan menggunakan perintah image_modulate(inp_img, brightness = 120, saturation = 20, hue = 20) dan menyimpan hasil modifikasinya ke variabel mod_img. Gambar yang telah dimodifikasi juga diplot dengan perintah plot(mod_img).

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

plot(mod_img)

Selanjutnya, kode membaca gambar dari internet dengan menggunakan perintah image_read(“https://scontent.fsub2-4.fna.fbcdn.net/v/t39.30808-6/340981821_926488745234390_91141586102788735_n.jpg?stp=cp6_dst-jpg&_nc_cat=104&ccb=1-7&_nc_sid=8bfeb9&_nc_eui2=AeGBdYb30-7kpy4bL7cqb6kqoJZ2_N4EpEmglnb83gSkSXuw8F7QtYLAcSybM4C3JC2P1aD9XCEdITImokHTPuTk&_nc_ohc=sq3an_ecrZ8AX8N3Oav&_nc_zt=23&_nc_ht=scontent.fsub2-4.fna&oh=00_AfBO4TeiaGhN_CTUpAujQ7JqjAuIINzyTY9IfNVVtq5S8g&oe=643C6F04”) dan menyimpannya ke variabel inp_img. Gambar tersebut kemudian dijelajahi dengan perintah image_info(inp_img) untuk mengetahui informasi teknis mengenai gambar, dan diplot dengan perintah plot(inp_img).

inp_img <- image_read("https://scontent.fsub2-4.fna.fbcdn.net/v/t39.30808-6/340981821_926488745234390_91141586102788735_n.jpg?stp=cp6_dst-jpg&_nc_cat=104&ccb=1-7&_nc_sid=8bfeb9&_nc_eui2=AeGBdYb30-7kpy4bL7cqb6kqoJZ2_N4EpEmglnb83gSkSXuw8F7QtYLAcSybM4C3JC2P1aD9XCEdITImokHTPuTk&_nc_ohc=sq3an_ecrZ8AX8N3Oav&_nc_zt=23&_nc_ht=scontent.fsub2-4.fna&oh=00_AfBO4TeiaGhN_CTUpAujQ7JqjAuIINzyTY9IfNVVtq5S8g&oe=643C6F04")

image_info(inp_img)

##   format width height colorspace matte filesize density
## 1   JPEG   433    574       sRGB FALSE    12063   72x72

plot(inp_img)

Terakhir, kode memodifikasi gambar yang terakhir dibaca dari internet dengan menggunakan perintah image_modulate(inp_img, brightness = 150, saturation = 10, hue = 10) dan menyimpan hasil modifikasinya ke variabel modd_img. Gambar yang telah dimodifikasi juga diplot dengan perintah plot(modd_img).

modd_img <- image_modulate(inp_img, brightness = 150, saturation = 10, hue = 10)

plot(modd_img)

Sumber Referensi: Ruriko Yoshida - Linear Algebra and its Application with R