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

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
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 anime Kimetsu no Yaiba 

rengoku <- image_read("https://th.bing.com/th/id/OIP.3FvNZBbE3mvKNEFjz8CTKAHaGh?pid=ImgDet&rs=1")
print(rengoku)
##   format width height colorspace matte filesize density
## 1   JPEG   474    417       sRGB FALSE    40507   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(rengoku, "hotpink"), "#000080", "20x10")

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

image_crop(rengoku, "100x270+50")

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

image_scale(rengoku, "300")

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

image_flip(rengoku)

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

image_modulate(rengoku, 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(rengoku, 10, 5)

Kita juga memberikan efek hitam putih 

image_charcoal(rengoku)

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

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

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

image_annotate(rengoku, "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