Visualisasi Perbandingan Data Inflow Dan Outflow di Pulau Sumatera

Lembaga : UIN Maulana Malik Ibrahim, Teknik Informatika

pada data berikut ini akan menampilkan total keseluruhan data inflow dan outflow pada pulau sumatera, yang kemudian data inflow dan outflow tersebut akan ditampilkan perbandingan grafiknya

data inflow uang kartal di Pulau Sumatera

library(readxl)

## Warning: package 'readxl' was built under R version 4.1.2

datainflow <- read_excel(path = "inflowSumatera.xlsx")
datainflow

## # A tibble: 11 x 2
##    Tahun Sumatera
##    <dbl>    <dbl>
##  1  2011   57900.
##  2  2012   65911.
##  3  2013   98369.
##  4  2014   86024.
##  5  2015   86549.
##  6  2016   97764.
##  7  2017  103748.
##  8  2018  117495.
##  9  2019  133762.
## 10  2020  109345.
## 11  2021   89270.

data outflow uang kartal di Pulau Sumatera

library(readxl)
dataoutflow <- read_excel(path = "outflowSumatera.xlsx")
dataoutflow

## # A tibble: 11 x 1
##    Sumatera
##       <dbl>
##  1   80092.
##  2   85235.
##  3  103288.
##  4  102338.
##  5  109186.
##  6  121992.
##  7  133606.
##  8  135676.
##  9  153484.
## 10  140589.
## 11   86627.

plot(datainflow$Sumatera, type = "l", col = "red")

plot(dataoutflow$Sumatera, type = "l", col = "green")

Perbandingan Data Inflow dan Outflow di Pulau Sumatera

plot(datainflow$Sumatera, type = "l", col = "red")
lines(dataoutflow$Sumatera,col="green")
legend("top",c("Inflow","Outflow"),fill=c("red","green"))