Visualisasi data MYSQL dengan program R

Menghubungakan program R dengan Database MYSQL

library(RMySQL)

## Warning: package 'RMySQL' was built under R version 3.5.3

## Loading required package: DBI

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

ucscDb <- dbConnect(MySQL(), user="root", host="localhost")

Melihat Database

result <- dbGetQuery(ucscDb, "show databases;"); dbDisconnect(ucscDb)

## [1] TRUE

result

##             Database
## 1     db_bahan_pokok
## 2       db_wordpress
## 3 information_schema
## 4              mysql
## 5 performance_schema
## 6           phpdasar
## 7         phpmyadmin
## 8               test

Memilih database yang akan digunakan

ucscDb <- dbConnect(MySQL(), user="root",db="db_bahan_pokok", host="localhost")

Melihat tabel dari database

allTables <- dbListTables(ucscDb)
allTables

## [1] "bulanan"  "mingguan"

Melihat isi tabel bulanan

affyData <- dbReadTable(ucscDb, "bulanan")

Mengubah tabel ke data frame

data <- data.frame(affyData)

Membuat data runtun waktu dengan selang bulanan

bulan <- seq(as.Date("2017-01-01"),length=length(data$Waktu),by="months")

Menggabungkan data

datas <- data.frame(bulan,data$Beras)

Memvisualisasikan data

library(ggplot2)

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

ggplot(data = datas,
            aes(bulan, data.Beras)) + geom_line(color="#FF8C00",size=0.5) + xlab("Waktu") +
  ylab("Harga") + theme_gray() + geom_point(color="#FF8C00")