Database Queries with R & Spatial Data

Database Queries with R

Melakukan koneksi terhadap database pada R software adalah dengan menggunakan syntax berikut:

install.packages(c("RSQLite", "DBI"), dependencies = TRUE)
install.packages("gdtools")
install.packages("kableExtra")
install.packages("sf")
install.packages("tigris")

Melakukan pemanggilan package yang akan digunakan:

library(tidyverse)
library(RSQLite)
library(DBI)
library(knitr)
library(kableExtra)
library(dplyr)
library(sf)
library(ggplot2)
library(tigris)

Pada praktikum kali ini digunakan data Chinook. Model data Chinook menampilkan suatu toko media digital, di dalamnya terdapat tabel untuk artists, albums, media tracks, invoices and customers.

Data terkait media digital dibuat menggunakan data nyata dari library Apple iTunes. Informasi pelanggan dan karyawan dibuat menggunakan nama dan alamat fiktif yang dapat ditemukan di peta Google, dan data lain yang diformat dengan baik (telepon, faks, email, dll.) Informasi penjualan dibuat secara otomatis menggunakan data acak selama periode empat tahun.

chinook<-DBI::dbConnect(RSQLite::SQLite(), "C:/sqlite/db/chinook.db")

class(chinook)

## [1] "SQLiteConnection"
## attr(,"package")
## [1] "RSQLite"

Syntax di atas tidak membaca data ke dalam R seperti halnya fungsi read_csv() melainkan berupa instruksi kepada R untuk mengkoneksikan database SQLite yang terdapat pada file chinook.db.

Berikut daftar tabel yang ada di dalam database chinook:

#Melihat Tabel dalam database Chinook
RSQLite::dbListTables(chinook)

##  [1] "albums"          "artists"         "customers"       "employees"      
##  [5] "genres"          "invoice_items"   "invoices"        "media_types"    
##  [9] "playlist_track"  "playlists"       "sqlite_sequence" "sqlite_stat1"   
## [13] "tracks"

Combining Multiple Tables

Tabel-tabel yang akan digunakan pada praktikum untuk menggabungkan tabel adalah tabel invoices,customers,invoice_items,tracks,albums, dan artists.

Mengambil keseluruhan data pada tabel Invoices:

#Tabel Invoices
invoices <- "SELECT * FROM invoices"
invoices <- dbGetQuery(chinook, invoices)
kbl(invoices) %>%  kable_paper() %>%
  scroll_box(width = "100%", height = "200px")

Mengambil keseluruhan data pada tabel Customers:

#Tabel customers
customers <- "SELECT * FROM customers"
customers <- dbGetQuery(chinook, customers)
 kbl(customers) %>%  kable_paper() %>%
  scroll_box(width = "100%", height = "200px")

Mengambil keseluruhan data pada tabel invoice_items:

#Tabel invoice_items
invoice_items <- "SELECT * FROM invoice_items"
invoice_items <- dbGetQuery(chinook, invoice_items)
kbl(invoice_items) %>%  kable_paper() %>%
  scroll_box(width = "100%", height = "200px")