Membuat Tabel Cantik di R/RStudio

By | June 19, 2022
0 Comment
Print Friendly, PDF & Email
3,090 Views

Menyajikan data tabular dalam bentuk tabel seperti layaknya di excel tentu akan mempermudah dalam memahami data tersebut. Saat ini untuk urusan data tabel, software excel masih menjadi tools utama yang sering digunakan. Tersedianya function serta kemudahan dalam melakukan aggregasi data seperti pivot tabel di excel menjadi bagian yang penting dalam mengolah data.

Bagi pengguna R/RStudio tentunya sudah tidak asing lagi dengan data structure yaitu data frame. Adapun library yang digunakan untuk mengolah data frame yaitu dplyr, tidyverse. Namun untuk urusan menampilkan data tersebut dalam bentuk tabel, pilihan tepat saat ini yang bisa digunakan yaitu getExtras yang merupakan mockup tabel yang akan mempercantik tampilan.

Setidaknya ada beberapa hal menarik bila kita menggunakan package tersebut yaitu

  • Themes: 7 themes that style almost every element of a gt table, built off of data journalism-styled tables
  • Utilities: Helper functions for aligning/padding numbers, adding fontawesome icons, images, highlighting, dividers, styling by group, creating two tables or two column layouts, extracting ordered data from a gt table internals, or generating a random dataset for reprex
  • Plotting: 12 plotting functions for inline sparklines, win-loss charts, distributions (density/histogram), percentiles, dot + bar, bar charts, confidence intervals, or summarizing an entire dataframe!
  • Colors: 3 functions, a palette for “Hulk” style scale (purple/green), coloring rows with good defaults from paletteer, or adding a “color box” along with the cell value

Membuat Tabel Cantik di R/RStudio

Bisa kita mulai dengan cara install terlebih dahulu install.packages("gtExtras"). Selanjutnya panggil package

library(tidyverse)
library(gt)
library(gtExtras)

Mari kita coba mempercantik tampilan tabel dataset mtcars

data(mtcars)
head(mtcars) %>%
  gt() %>% 
  gt_theme_538() %>% 
  tab_header(title = "Table styled like the FiveThirtyEight")

Woow sangat bagus ya tampilan tabelnya lho, akan tampil di panel Viewer

See also  Pengantar Metode Numerik

 

Bila ingin coba satu-satu silahkan ganti tema dengan

Atau bahkan kalian ingin menggunakan tema bikinan sendiri?

ini.temaku <- function(gt_object, ...){
  gt_object %>%
    tab_options(
      column_labels.background.color = "black",
      heading.align = "left",
      ...
    ) %>%
    tab_style(
      style = cell_text(color = "red", size = px(32)),
      locations = cells_title("title")
    )
}


head(mtcars) %>%
  gt() %>%
  ini.temaku() %>%
  tab_header("Ini adalah tema buatanku")

Bar Color Tabel

Kalian yang sering menggunakan excel sudah paham donk kegunaan bar color! yaitu untuk mengetahui perbedaan nilai berdasarkan nilai intensitas warnanya! kalau di getExtras namanya adalah Hulk data_color. Misalkan kita akan buat bar color pada column mpg

head(mtcars) %>%
  gt::gt() %>%
  gt_hulk_col_numeric(mpg)

Ataupun untuk seleksi beberapa tabel

head(mtcars) %>%
  gt::gt() %>%
  # trim gives smaller range of colors
  # so the green and purples are not as dark
  gt_hulk_col_numeric(mpg:disp, trim = TRUE)

Highlight Row

Highlight Row dapat juga kita terapkan, menggunakan kode berikut

Bisa juga menggunakan kode berikut untuk menghasilkan efek yang berbeda

gt(head_car) %>% 
  gt_highlight_rows(
    rows = 5, 
    fill = "lightgrey",
    bold_target_only = TRUE,
    target_col = car
    )

 

ref:

https://themockup.blog/posts/2022-06-13-gtextras-cran/