SIM

A <- c("a", "a", "b", "b") 
B <- c(5, 10, 15, 20) 
dataframe <- data.frame(A, B)

print(dataframe) 

##   A  B
## 1 a  5
## 2 a 10
## 3 b 15
## 4 b 20

# Memuat paket yang diperlukan untuk koneksi database dan visualisasi

library(DBI)

## Warning: package 'DBI' was built under R version 4.4.2

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.4.3

library(scales)

## Warning: package 'scales' was built under R version 4.4.2

Pendahuluan

Laporan ini menyajikan banyaknya item untuk tiap product scale dari database “classicmodels”. Proses ini mengintegrasikan SQL untuk pengambilan data dan R untuk visualisasi.

Koneksi Database dan Pengambilan Data

Langkah pertama adalah membangun koneksi antara RStudio dan database MySQL menggunakan fungsi dbConnect()

con <- DBI::dbConnect(odbc::odbc(),

Driver = "MySQL ODBC 8.0 ANSI Driver",

Server = "127.0.0.1",

Database = "classicmodels",

UID = "root",

PWD = "nasipadanggg", #sesuaikan dg password masing-masing

Port = 3306)

Setelah koneksi terjalin, kita menggunakan blok kode SQL untuk mendapatkan banyaknya item untuk tiap product scale. Simpan data hasil kueri data dalam suatu data frame R.

# Mendapatkan data yang diperlukan

data1 <- dbGetQuery(con, "SELECT productScale,

COUNT(*) AS totalItems

FROM products

GROUP BY productScale")


data1

Visualisasi banyaknya item tiap product scale

Kita menggunakan library ggplot2 untuk membuat barchart. Fungsi geom_bar() digunakan untuk melihat banyaknya item tiap product scale.

# Membuat barchart untuk banyaknya item tiap product scale


ggplot(data1, aes(x = productScale, y = totalItems)) +

geom_bar(stat = "identity", fill = "blue", alpha = 1) +

theme_minimal() +

labs(title = "Total Item per Skala Produk",

x = "Skala Produk",

y = "Total Item") +

theme(axis.text.x = element_text(angle = 45, hjust = 1))

## Don't know how to automatically pick scale for object of type <integer64>.
## Defaulting to continuous.