Introduction to R Eps 3

1. Membaca File Excel

Banyak pengolahan data di R harus membaca dari file Excel. Pada contoh kali ini,  kita juga akan melakukan itu dengan membaca data jumlah mahasiswa per angkatan berdasarkan.

File tersebut bernama mahasiswa.xlsx, dan akan kita baca dengan fungsi read.xlsx dari package openxlsx. File yang dibaca dapat disimpan sebagai variable data frame. Pada Code Editor sudah disertakan contoh untuk membaca file ini, jalankan dan lihat hasilnhya.

Script:
#Menggunakan package ggplot2
library(ggplot2)
#Menggunakan package openxlsx
library(openxlsx)

#Membaca file mahasiswa.xlsx
mahasiswa <- read.xlsx("https://dqlab.id/mahasiswa.xlsx",sheet = "Sheet 1")

#Menampilkan data
mahasiswa

2. Membuat Grafik Sebaran Mahasiswa Universitas Gunadarma

Pada praktek kali ini, kita akan menghasilkan bar chart sederhana dengan menggunakan data frame info_mahasiswa yang telah kita buat pada praktek sebelumnya. Cara membuat grafik di R bisa menggunakan banyak cara, salah satunya dengan library ggplot2 - dimana kita menggambar diagram atau chart secara bertahap, yaitu layer demi layer.

Ini bisa kita analogikan Anda melukis dengan cat air di atas kanvas. "Kanvas" di ggplot2 diwakili dengan function ggplot. Layer tambahan di atas ggplot diwakili tanda + diikuti pemanggilan function lain. Sebagai contoh, untuk menggambar bar chart di atas "kanvas" kita tambahkan function geom_bar.

Adapun yang akan kita lakukan adalah

• Menambahkan variable gambar dengan function ggtitle("Jumlah Mahasiswa per Fakultas") untuk menambahkan judul pada grafik. Simpan kembali sebagai variable gambar.
• Menambahkan variable gambar dengan perintah xlab("Nama Fakultas") untuk menambahkan caption pada sumbu X. Simpan kembali sebagai variable gambar.
• Menambahkan variable gambar dengan perintah ylab("Jumlah Mahasiswa") untuk menambahkan caption pada sumbu Y. Simpan kembali sebagai variable gambar.

Scriptnya:

#Membuat dua vector

fakultas <- c("Bisnis", "D3 Management", "Data Science", "Teknologi Informatika", "Ekonomi")

jumlah_mahasiswa <- c(260, 28, 284, 465, 735)

akreditasi <- c("A","A","B","A","A")

#Buat data frame dari ketiga vector di atas

info_mahasiswa <- data.frame(fakultas, jumlah_mahasiswa, akreditasi)

info_mahasiswa

#Menggunakan package ggplot2

library(ggplot2)

#Menambahkan objek bar chart, simpan kembali sebagai variable gambar

gambar <- ggplot(info_mahasiswa, aes(x=fakultas, y=jumlah_mahasiswa, fill=fakultas))

gambar <- gambar + geom_bar(width=1, stat="identity") + ggtitle("Jumlah Mahasiswa per Fakultas") +  xlab("Nama Fakultas") + ylab("Jumlah Mahasiswa")

#Menggambar grafik

gambar

Gambar grafik dari variable gambar tersebut.