Magick

Nama : Muhammad Hafidlul Qolbi

NIM : 220605110063

Kelas : A

Mata Kuliah : Linear Algebra

Dosen Pengampuh : Prof. Dr. Suhartono, M.Kom

Jurusan : Teknik Informatika

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

===========================================================================================

Percobaan penggunaan package magick dengan menggunakan gambar pada link yang tersedia. Pertama kita mendeklarasi library(magick) terlebih dahulu

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

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

Contoh 1: memunculkan gambar harimau dengan package magick dengan link tersebut. Dengan skala ukuran 350

tiger <- image_read_svg('http://jeroen.github.io/images/tiger.svg', width = 350)
print(tiger)

##   format width height colorspace matte filesize density
## 1    PNG   350    350       sRGB  TRUE        0   72x72

Gambar di atas dapat kita peroleh dengan cara pendeklarasian seperti kode di bawah ini

image_write(tiger, path = "tiger.png", format = "png")
tiger_png <- image_convert(tiger, "png")
image_info(tiger_png)

##   format width height colorspace matte filesize density
## 1    PNG   350    350       sRGB  TRUE        0   72x72

Contoh 2: berikut ini adalah contoh gambar yang lain didapat dari karakter kartun The Simpsons

frink <- image_read("https://jeroen.github.io/images/frink.png")
print(frink)

##   format width height colorspace matte filesize density
## 1    PNG   220    445       sRGB  TRUE    73494   72x72

Contoh gambar diatas dapat diberikan background dengan warna yang anda tentukan sendiri. Di sini saya menggunakan warna pink untuk backgroundnya

image_border(image_background(frink, "hotpink"), "#000080", "20x10")

Gambar di atas dapat di crop atau dipotong sesuai selera kita. Pada contoh ini saya memotong pada bagian atasnya

image_crop(frink, "100x150+50")

Ukuran gambar juga dapat kita perbesar dan perkecil sesuai keinginan kita. Di kode ini ukuran gambar saya perbesar

image_scale(frink, "300")

Posisi gambar juga dapat diubah sesuai keinginan kita, di bawah ini cara membalikkan posisi gambar

image_flip(frink)

Kecerahan suatu gambar juga dapat diatur dengan cara menerapkan brightness, saturation, dan hue

image_modulate(frink, brightness = 80, saturation = 120, hue = 90)

Kita dapat juga memberikan efek pada gambar atau foto kita pada rstudio. Pada kesempatan ini cara mengeblurkan suatu gambar

image_blur(frink, 10, 5)

Kita juga memberikan efek hitam putih

image_charcoal(frink)

Tambahkan teks sesuai keinginan kita pada gambar juga bisa. Berikut ini adalah cara-cara memberikan teks pada suatu gambar

image_annotate(frink, "I like R!", size = 70, gravity = "southwest", color = "green")

image_annotate(frink, "CONFIDENTIAL", size = 25, color = "red", boxcolor = "pink",
  degrees = 0, location = "+10+190")

image_annotate(frink, "The quick brown fox", font = 'Times', size = 30)

Sumber Referensi : https://cran.r-project.org/web/packages/magick/vignettes/intro.html#:~:text=2023%2D03%2D09,an%20overwhelming%20amount%20of%20functionality