Menggambar Grafik Batang (Bar Chart) menggunakan ggplot2

1. BASIC Bar CHART

Soal

Suatu penelitian dilakukan dari tahun 2015 sampai dengan tahun 2020 dengan jumlah repsondent
200,300,500,700,1200,1500.
Gambarkan diagram garisnya!

Program R:

library(ggplot2)
# Create data
df <- data.frame(
  kota <- c("Jakarta", "Surabaya", "Semarang", "Medan")  ,   
  respondent <- c(40, 30, 20, 10)
  )
# Barplot
ggplot(df, aes(x=kota, y=respondent)) + 
  geom_bar(stat = "identity", fill="Red")+
  ggtitle("Jumlah Respondent")
Hasil:


2. Bar Chart dengan Titles dan fill Colours

Disini kita perbaiki title dan mengisi bar dengan warna

Program R:

library(ggplot2)
# Create data
df <- data.frame(
  Kota <- c("Jakarta", "Surabaya", "Semarang", "Medan")  ,   
  Respondent <- c(40, 30, 20, 10)
  )
# Barplot
ggplot(df, aes(x=Kota, y=Respondent)) +
  geom_bar(stat = "identity", color="yellow", fill=as.factor(Respondent) )+
  ggtitle("Jumlah Respondent \n di beberapa kota di Indonesia \n oleh Michele 2015")+
  theme(plot.title = element_text(hjust = 0.5))

Hasil



3. Horizontal Bar CHART
Disini kita mengubah dari vertikal bar menjadi horizontal bar

Program R:
library(ggplot2)
# Create data
df <- data.frame(
  Kota <- c("Jakarta", "Surabaya", "Semarang", "Medan")  ,   
  Respondent <- c(40, 30, 20, 10)
  )
# Barplot
ggplot(df, aes(x=Kota, y=Respondent)) +
  geom_bar(stat = "identity", color="yellow", fill=as.factor(Respondent) )+
  ggtitle("Jumlah Respondent \n di beberapa kota di Indonesia \n oleh Michele 2015")+
  theme(plot.title = element_text(hjust = 0.5))+
  coord_flip()
Hasil:


4. Horizontal Bar CHART with Bar width
Disini kita perbaiki lebar bar 

Program R:
library(ggplot2)
# Create data
df <- data.frame(
  Kota <- c("Jakarta", "Surabaya", "Semarang", "Medan")  ,   
  Respondent <- c(40, 30, 20, 10)
  )
# Barplot
ggplot(df, aes(x=Kota, y=Respondent)) +
  geom_bar(stat = "identity", color="yellow", fill=as.factor(Respondent), width=0.2)+
  ggtitle("Jumlah Respondent \n di beberapa kota di Indonesia \n oleh Michele 2015")+
  theme(plot.title = element_text(hjust = 0.5))+
  coord_flip()
Hasil:


5. Horizontal Bar CHART with Order
Terakhir, kita perbaiki urutan bar dari tinggi ke rendah dan sebaliknya

Program R:
library(ggplot2)
library(dplyr)
library(forcats)
# Create data
df <- data.frame(
  Kota <- c("Jakarta", "Surabaya", "Semarang", "Medan")  ,   
  Respondent <- c(40, 30, 20, 10)
  )
# Barplot
df %>%
  mutate(Kota = fct_reorder(Kota, Respondent)) %>%
ggplot(aes(x=Kota, y=Respondent)) +
  geom_bar(stat = "identity", color="yellow", fill=as.factor(Respondent), width=0.2)+
  ggtitle("Jumlah Respondent \n di beberapa kota di Indonesia \n oleh Michele 2015")+
  theme(plot.title = element_text(hjust = 0.5))+
  coord_flip()
# Barplot Reversed
df %>%
  mutate(Kota = fct_reorder(Kota, desc(Respondent))) %>%
ggplot(aes(x=Kota, y=Respondent)) +
  geom_bar(stat = "identity", color="yellow", fill=as.factor(Respondent), width=0.2)+
  ggtitle("Jumlah Respondent \n di beberapa kota di Indonesia \n oleh Michele 2015")+
  theme(plot.title = element_text(hjust = 0.5))+
  coord_flip()
Hasil:
a.

b.



No comments:

Post a Comment