Analisis Visual Menggunakan Package Esquisse

Package Esquisse merupakan sebuah paket bawaan dari R dan menawarkan sebuah dashboard interaktif untuk menggali serta memvisualisasikan data secara simpel, menarik, dan lebih mudah dipahami. Esquisse sendiri merupakan salah satu bentuk penerapan dashboard yang dibentuk dari RShiny.

Untuk menginstall package ini, teman teman silahkan menjalankan perintah install.packages(“esquisse”) namun apabila teman-teman sudah menginstall di device masing-masing, maka silahkan melanjutkan untuk mencoba code dibawah ini

Panggil Library untuk Package Esquisse

Pada kesempatan kali ini kita akan mencoba package esquisse untuk melakukan praktik memvisualisasikan data melalui platform Dashboard. Kita akan menggunakan dua data yaitu data bawaan dari Rstudio dan Data External yang tersimpan dalam device masing-masing

library(esquisse)

## Warning: package 'esquisse' was built under R version 4.3.3

library(ggplot2)
library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(tidymodels)

## ── Attaching packages ────────────────────────────────────── tidymodels 1.1.1 ──
## ✔ broom        1.0.5     ✔ rsample      1.2.0
## ✔ dials        1.2.0     ✔ tune         1.1.2
## ✔ infer        1.0.6     ✔ workflows    1.1.3
## ✔ modeldata    1.3.0     ✔ workflowsets 1.0.1
## ✔ parsnip      1.1.1     ✔ yardstick    1.3.0
## ✔ recipes      1.0.9     
## ── Conflicts ───────────────────────────────────────── tidymodels_conflicts() ──
## ✖ scales::discard() masks purrr::discard()
## ✖ dplyr::filter()   masks stats::filter()
## ✖ recipes::fixed()  masks stringr::fixed()
## ✖ dplyr::lag()      masks stats::lag()
## ✖ yardstick::spec() masks readr::spec()
## ✖ recipes::step()   masks stats::step()
## • Use tidymodels_prefer() to resolve common conflicts.

library(xlsx)

Contoh Dashboard Interaktif untuk data yang sudah ada di dalam Package R

# Menggunakan Data mtcars bawaan Rstudio
# esquisse::esquisser(mtcars)

Tampilan Dashboard menggunakan Package Esquisse

Gambaran code yang telah diambil dari dashboard interaktif

Tampilan Visualisasi untuk menampilkan Grafik salah satu Variabel

ggplot(mtcars) +
  aes(x = gear, y = mpg) +
  geom_smooth(se = TRUE, colour = "#112446") +
  theme_minimal()

## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'

## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : pseudoinverse used at 2.99

## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : neighborhood radius 1.01

## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : reciprocal condition number 0

## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : There are other near singularities as well. 4.0401

## Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x
## else if (is.data.frame(newdata))
## as.matrix(model.frame(delete.response(terms(object)), : pseudoinverse used at
## 2.99

## Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x
## else if (is.data.frame(newdata))
## as.matrix(model.frame(delete.response(terms(object)), : neighborhood radius
## 1.01

## Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x
## else if (is.data.frame(newdata))
## as.matrix(model.frame(delete.response(terms(object)), : reciprocal condition
## number 0

## Warning in predLoess(object$y, object$x, newx = if (is.null(newdata)) object$x
## else if (is.data.frame(newdata))
## as.matrix(model.frame(delete.response(terms(object)), : There are other near
## singularities as well. 4.0401

apabila teman-teman memperhatikan, terdapat beberapa menu pilihan di bagian bawah dashboard esquisse, kode diatas merupakan salah satu kode hasil ekstraksi ketika kita menampilkan suatu visualisasi kemudian kita mengklik code sehingga dapat kita gunakan untuk melakukan visualisasi, contohnya dapat dilihat pada ilustrasi dibawah

Contoh Dashboard Interaktif untuk data Eksternal di luar Pakcage R

Perlu pemanggilan Data terlebih dahulu jika ingin menggunakan data pribadi (Eskternal)

data_trade <- read.xlsx("trade_data.xlsx", sheetIndex = 1)

Setelah data berhasil dipanggil, jalankan code yang telah disesuikan namanya. Karena saya menggunakan data_trade maka untuk paket dibawah akan menggunakan nama data tersebut pada function

# esquisse::esquisser(data_trade)