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

digunakan untuk membaca gambar yang ada di dalam penyimpanan computer

inp_img <- image_read('C:\\Users\\ASUS\\Pictures\\Saved Pictures.\\image.png') 
inp_img

inp_img <- image_read('D:\\om project\\logo logo\\images.jpg') 
inp_img

digunakan untuk membaca gambar yang berasal dari internet

inp_img <- image_read("https://i.pinimg.com/474x/7c/1f/70/7c1f707ba98c023d3b1d7ef9ab2b8769.jpg")
inp_img

inp_img <- image_read("https://i.pinimg.com/474x/50/f4/2e/50f42e6e857d5da20d35b714d1e4c014.jpg")
inp_img

inp_img <- image_read("https://i.pinimg.com/474x/96/ff/22/96ff22ff5cc8bf5bdbbc76df4fcff2f9.jpg")
inp_img

image_info(inp_img)
##   format width height colorspace matte filesize density
## 1   JPEG   474    474       sRGB FALSE    23441   72x72

siap siap yang nakal di laporin wkwk kita juga bisa memplot gambar”inp_img*

a <- plot(inp_img)

Kita juga bisa mengedit warna dari gambar dengan “image_modulate”

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

“image_browse” digunakan untuk menampilkan gambar ke dalam web

image_browse(inp_img)

“image_rotate” digunakan untuk memutar gambar

image_rotate(mod_img, 70)

Kita juga bisa mengatur ukuran dari gambar

image_resize(mod_img, 600)

Kita bisa memotong gambar dengan menggunakan kode di bawah

image_crop(mod_img, "300x300+50+50")

Package magick juga memiliki efek filter. Untuk menggunakan efek filter dari package tersebut kita bisa menggunakan kodingan seperti di bawah

image_blur(mod_img, 10, 5)

image_oilpaint(mod_img)

image_charcoal(mod_img)

“library(terra)” adalah perintah untuk memuat library terra di dalam lingkungan kerja R. terra adalah paket untuk analisis data spasial dan raster dalam R. Dengan memuat library ini, maka kita dapat menggunakan berbagai fungsi dan perintah yang terdapat di dalamnya untuk memanipulasi data spasial dan raster.

library(terra)
## terra 1.7.23
library(magick)
img <- image_read("https://i.pinimg.com/474x/a0/a0/30/a0a0308f2534d7f018b9d6dfb0e5f76c.jpg")
print(img)
##   format width height colorspace matte filesize density
## 1   JPEG   474    943       sRGB FALSE    26477   72x72

Image OCR (Optical Character Recognition) adalah teknologi yang digunakan untuk mengenali teks yang terdapat pada gambar atau dokumen cetak, sehingga dapat diterjemahkan menjadi teks digital yang dapat diubah dan diakses melalui komputer.

library(tesseract)
cat(image_ocr(img))
## / :
## 
## . \
## ff \
## / 2. \) 4
## 
## {
## ‘= .
## ' i
## “an a)

Source : file: > Yoshida.Ruriko.2021.Linear Algebra and Its Applications With R.London. CRC Press. >