Cara Mengakses Data SQL Dan Menampilkan Data Pada Pemrograman R
Menghubungkan Dengan SQL
Untuk mengakses database
MySQL pada platform R diperlukan
package tambahan. Package yang dapat digunakan adalah RMySQL.
Untuk menginstall package RMySQL digunakan
perintah berikut.
|
install.packages("RMySQL") |
Kemudian muat library
RMySQL dengan perintah berikut.
|
library(RMySQL) |
Langkah pertama sebelum
melakukan operasi database
adalah melakukan koneksi ke
database dengan fungsi dbConnect(). Untuk melakukan
koneksi ke database digunakan
sintaks berikut.
ObjectName = dbConnect(MySQL(), user='UserName', password='Password', dbname='DatabaseName', host='HostName')
Sebagai contoh nama database adalah belajar_r, nama host adalah localhost,
nama user adalah root dan password user adalah Rahasia. Maka perintah untuk melakukan
koneksi adalah sebagai berikut.
mydb =
dbConnect(MySQL(), user='root', password='Rahasia', dbname='belajar_r', host='localhost')
Untuk melihat daftar
tabel pada database
belajar_r digunakan fungsi
dbListTables(). Berikut
adalah contoh untuk menampilkan daftar tabel.
> dbListTables(mydb)
|
[1] "iris" |
Dari ouput perintah
di atas, terdapat
1 tabel yaitu
iris.
Untuk mengeksekusi SQL query dapat digunakan
fungsi dbSendQuery(). Sebagai contoh, untuk menampilkan data
dari tabel iris dapat digunakan kode di bawah ini.
rs = dbSendQuery(mydb, 'select
* from iris') data_iris = fetch(rs,
n=-1)
Data dari tabel iris akan disimpan pada obyek data_iris. Untuk menampilkan isi data ke layar dapat
dilakukan dengan mengetik
obyek data_iris pada R console.
Akses Database
SQL Server
Package tambahan yang digunakan untuk mengakses database
SQL Server adalah RODBC. Kode di bawah ini untuk menginstall
package RODBC.
|
install.packages("RODBC") |
Untuk memuat library RODBC digunakan
kode di bawah ini.
library(RODBC)
Untuk melakukan koneksi ke database digunakan fungsi odbcDriverConnect(). Sintaks fungsi odbcDriverConnect() adalah sebagai berikut.
ObjectName =
odbcDriverConnect('driver={SQL Server};server=HostName;database=DatabaseName;trusted_co nnection=true')
Jika database server berada pada komputer yang sama dan nama database
adalah BelajarR, maka digunakan kode berikut ini.
myodbc =
odbcDriverConnect('driver={SQL Server};server=.;database=BelajarR;trusted_connection=tr ue')
Untuk membaca data pada tabel
iris pada database
BelajarR digunakan fungsi sqlQuery(). Contoh kode yang dapat digunakan adalah sebagai berikut.
|
data_iris <- sqlQuery(myodbc, 'select
* from iris') |
Ketik obyek data_iris pada R console
untuk melihat isi data tabel iris.
Menampilkan Data
Cara untuk menampilkan data adalah memanggil
obyek yang digunakan untuk menyimpan data. Sebagai contoh, cara ini adalah untuk menampilkan data yang disimpan pada obyek data_txt.
|
>
data_txt = read.table("data.txt") >
data_txt Sepal.Length Sepal.Width Petal.Length Petal.Width Species |
|||||
|
1 |
5.1 |
3.5 |
1.4 |
0.2 |
setosa |
|
2 |
4.9 |
3.0 |
1.4 |
0.2 |
setosa |
|
3 |
4.7 |
3.2 |
1.3 |
0.2 |
setosa |
|
4 |
4.6 |
3.1 |
1.5 |
0.2 |
setosa |
|
5 |
5.0 |
3.6 |
1.4 |
0.2 |
setosa |
|
6 |
5.4 |
3.9 |
1.7 |
0.4 |
setosa |
|
7 |
4.6 |
3.4 |
1.4 |
0.3 |
setosa |
|
8 |
5.0 |
3.4 |
1.5 |
0.2 |
setosa |
|
9 |
4.4 |
2.9 |
1.4 |
0.2 |
setosa |
|
10 |
4.9 |
3.1 |
1.5 |
0.1 |
setosa |
|
... |
|
|
|
|
|
head()
Untuk menampilkan sejumlah data dari awal digunakan
fungsi head(). Sintaks
fungsi ini adalah sebagai berikut.
|
head(ObjekName, RowNumber) |
Sebagai contoh, untuk
menampilkan data dari obyek data_txt
sebanyak 5 row digunakan perintah ini.
|
>
head(data_txt, 5) Sepal.Length Sepal.Width Petal.Length Petal.Width Species |
||||
|
1 |
5.1 |
3.5 |
1.4 |
0.2 setosa |
|
2 |
4.9 |
3.0 |
1.4 |
0.2 setosa |
|
3 |
4.7 |
3.2 |
1.3 |
0.2 setosa |
|
4 |
4.6 |
3.1 |
1.5 |
0.2 setosa |
|
5 |
5.0 |
3.6 |
1.4 |
0.2 setosa |
tail()
Untuk menampilkan sejumlah
data dari akhir digunakan fungsi tail(). Sintaks
fungsi ini adalah sebagai berikut.
|
tail(ObjekName, RowNumber) |
Sebagai contoh, untuk menampilkan data dari obyek data_txt
sebanyak 5 row digunakan perintah ini.
|
>
tail(data_txt, 5) Sepal.Length Sepal.Width Petal.Length Petal.Width Species |
||||
|
146 |
6.7 |
3.0 |
5.2 |
2.3 virginica |
|
147 |
6.3 |
2.5 |
5.0 |
1.9 virginica |
|
148 |
6.5 |
3.0 |
5.2 |
2.0 virginica |
|
149 |
6.2 |
3.4 |
5.4 |
2.3 virginica |
|
150 |
5.9 |
3.0 |
5.1 |
1.8 virginica |
View()
Fungsi View() digunakan untuk menampilkan data dalam bentuk tabel. Untuk menampilkan data dari obyek data_txt, gunakan perintah di bawah ini.
tail(ObjekName, RowNumber)
Hasilnya dapat dilihat pada gambar-gambar di bawah ini.
Gambar 45. Output fungsi
View() pada R Tool for Visual Studio.
Gambar 47. Output fungsi
View() pada RGui.
obyek$rowName
Pada gambar di atas dapat dilihat obyek data_txt memiliki
5 kolom. Nama kelima kolom itu adalah
Sepal.Length, Sepal.Width, Petal.Length, Petal.Width
dan Species. Cara untuk melihat
seluruh nilai pada kolom Species dapat dilakukan dengan contoh di bawah ini.
|
data_txt$Species |
Untuk menampilkan seluruh
nilai pada kolom Sepal.Width digunakan
contoh di bawah ini.
|
data_txt$Sepal.Width |
Post a Comment for "Cara Mengakses Data SQL Dan Menampilkan Data Pada Pemrograman R"