Menggambar Grafik Garis (Line Chart) dengan ggplot2

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

1. BASIC LINE CHART

Program R
# Libraries
library(ggplot2)

# create data
xValue <- c(2015:2020)
yValue <- c(200,500,330,900,750,1500)
df <- data.frame(xValue,yValue)

# Plot
ggplot(df, aes(x=xValue, y=yValue)) +
  geom_line()
Hasil:



2. Mengubah LINE CHART
Disini kita menambahkan title dengan ggtitle() dan mengubah line style.

linetype:
  1=fixed
  2=putus-putus -----
  3=dots .....
  4= -.-.-.
  dst

Program R

# Libraries
library(ggplot2)

# create data
xValue <- c(2015:2020)
yValue <- c(200,500,330,900,750,1500)
df <- data.frame(xValue,yValue)

# Plot
ggplot(df, aes(x=xValue, y=yValue)) +
  geom_line( color="#69b3a2", size=2, alpha=0.9, linetype=3) +
  ggtitle("Jumlah Respondent Papua")
Hasil:



3. Mengubah LINE CHART dengan points

Program R:
# Libraries
library(ggplot2)

# create data
xValue <- c(2015:2020)
yValue <- c(200,500,330,900,750,1500)
df <- data.frame(xValue,yValue)

# Plot
ggplot(df, aes(x=xValue, y=yValue)) +
  geom_line( color="#69b3a2", size=2, alpha=0.9, linetype=2) +
  geom_point(shape=21, color="black", fill="#69b3a2", size=6) +
  ggtitle("Jumlah Respondent Papua")
Hasil:





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.