Penjelasan

Visualisasi data merupakan perubahan pada bentuk data yang pada awalnya merupakan bentuk numerik dalam tabel menjadi bentuk grafik. Hal ini ditujukkan agar data dapat dibaca dengan lebih mudah. Grafik ini juga mempermudah dalam membandingkan data satu dengan data lainnya.

Visualisasi Dan Prediksi Data Inflow dan Outflow uang Kartal di Provinsi Jawa Tahun 2011-2021

Memasukkan data inflow dan outflow kedalam variabel

library(readxl)
inflow <- read_excel (path = "C:/COba/Inflow.xlsx")
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A13 / R13C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A14 / R14C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A15 / R15C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A16 / R16C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A17 / R17C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A18 / R18C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A19 / R19C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A20 / R20C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A21 / R21C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A22 / R22C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A23 / R23C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A24 / R24C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A25 / R25C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A26 / R26C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A27 / R27C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A28 / R28C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A29 / R29C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A30 / R30C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A31 / R31C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A32 / R32C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A33 / R33C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A34 / R34C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A35 / R35C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A36 / R36C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A37 / R37C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A38 / R38C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A39 / R39C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A40 / R40C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A41 / R41C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A42 / R42C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A43 / R43C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A44 / R44C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A45 / R45C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A46 / R46C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A47 / R47C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A48 / R48C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A49 / R49C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A50 / R50C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A51 / R51C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A52 / R52C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A53 / R53C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A54 / R54C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A55 / R55C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A56 / R56C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A57 / R57C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A58 / R58C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A59 / R59C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A60 / R60C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A61 / R61C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A62 / R62C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A63 / R63C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A64 / R64C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A65 / R65C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A66 / R66C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A67 / R67C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A68 / R68C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A69 / R69C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A70 / R70C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A71 / R71C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A72 / R72C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A73 / R73C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A74 / R74C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A75 / R75C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A76 / R76C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A77 / R77C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A78 / R78C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A79 / R79C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A80 / R80C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A81 / R81C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A82 / R82C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A83 / R83C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A84 / R84C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A85 / R85C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A86 / R86C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A87 / R87C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A88 / R88C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A89 / R89C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A90 / R90C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A91 / R91C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A92 / R92C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A93 / R93C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A94 / R94C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A95 / R95C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A96 / R96C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A97 / R97C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A98 / R98C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99 / R99C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A100 / R100C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A101 / R101C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A102 / R102C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A103 / R103C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A104 / R104C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A105 / R105C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A106 / R106C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A107 / R107C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A108 / R108C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A109 / R109C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A110 / R110C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A111 / R111C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A112 / R112C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A113 / R113C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A114 / R114C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A115 / R115C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A116 / R116C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A117 / R117C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A118 / R118C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A119 / R119C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A120 / R120C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A121 / R121C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A122 / R122C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A123 / R123C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A124 / R124C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A125 / R125C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A126 / R126C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A127 / R127C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A128 / R128C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A129 / R129C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A130 / R130C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A131 / R131C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A132 / R132C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A133 / R133C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A134 / R134C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A135 / R135C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A136 / R136C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A137 / R137C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A138 / R138C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A139 / R139C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A140 / R140C1: got a date
Outflow <- read_excel (path = "C:/COba/Outflow.xlsx")
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A13 / R13C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A14 / R14C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A15 / R15C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A16 / R16C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A17 / R17C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A18 / R18C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A19 / R19C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A20 / R20C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A21 / R21C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A22 / R22C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A23 / R23C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A24 / R24C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A25 / R25C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A26 / R26C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A27 / R27C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A28 / R28C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A29 / R29C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A30 / R30C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A31 / R31C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A32 / R32C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A33 / R33C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A34 / R34C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A35 / R35C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A36 / R36C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A37 / R37C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A38 / R38C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A39 / R39C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A40 / R40C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A41 / R41C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A42 / R42C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A43 / R43C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A44 / R44C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A45 / R45C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A46 / R46C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A47 / R47C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A48 / R48C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A49 / R49C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A50 / R50C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A51 / R51C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A52 / R52C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A53 / R53C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A54 / R54C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A55 / R55C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A56 / R56C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A57 / R57C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A58 / R58C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A59 / R59C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A60 / R60C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A61 / R61C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A62 / R62C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A63 / R63C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A64 / R64C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A65 / R65C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A66 / R66C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A67 / R67C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A68 / R68C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A69 / R69C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A70 / R70C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A71 / R71C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A72 / R72C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A73 / R73C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A74 / R74C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A75 / R75C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A76 / R76C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A77 / R77C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A78 / R78C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A79 / R79C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A80 / R80C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A81 / R81C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A82 / R82C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A83 / R83C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A84 / R84C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A85 / R85C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A86 / R86C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A87 / R87C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A88 / R88C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A89 / R89C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A90 / R90C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A91 / R91C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A92 / R92C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A93 / R93C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A94 / R94C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A95 / R95C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A96 / R96C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A97 / R97C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A98 / R98C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A99 / R99C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A100 / R100C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A101 / R101C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A102 / R102C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A103 / R103C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A104 / R104C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A105 / R105C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A106 / R106C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A107 / R107C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A108 / R108C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A109 / R109C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A110 / R110C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A111 / R111C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A112 / R112C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A113 / R113C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A114 / R114C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A115 / R115C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A116 / R116C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A117 / R117C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A118 / R118C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A119 / R119C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A120 / R120C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A121 / R121C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A122 / R122C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A123 / R123C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A124 / R124C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A125 / R125C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A126 / R126C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A127 / R127C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A128 / R128C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A129 / R129C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A130 / R130C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A131 / R131C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A132 / R132C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A133 / R133C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A134 / R134C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A135 / R135C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A136 / R136C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A137 / R137C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A138 / R138C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A139 / R139C1: got a date
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A140 / R140C1: got a date
inflow
## # A tibble: 139 x 41
##    Tahun Sumatera   Aceh `Sumatera Utara` `Sumatera Barat`   Riau `Kep. Riau`
##    <dbl>    <dbl>  <dbl>            <dbl>            <dbl>  <dbl>       <dbl>
##  1  2011   57900.  2308.           23238.            9385.  3012.       1426.
##  2  2012   65911.  2620.           25981.           11192.  4447.       2236.
##  3  2013   98369. 36337.           18120.           14056.  8933.       3378.
##  4  2014   86024.  4567.           30503.           14103.  6358.       2563.
##  5  2015   86549.  4710.           30254.           13309.  7156.       3218.
##  6  2016   97764.  5775.           34427.           14078.  8211.       4317.
##  7  2017  103748.  5514.           35617.           15312.  8553.       4412.
##  8  2018  117495.  5799.           41769.           15058. 10730.       5134.
##  9  2019  133762.  7509.           47112.           14750. 10915.       6077.
## 10  2020  109345.  6641.           36609.           10696.  9148.       6175.
## # ... with 129 more rows, and 34 more variables: Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>, `DKI Jakarta` <dbl>, Jawa <dbl>,
## #   `Jawa Barat` <dbl>, `Jawa Tengah` <dbl>, Yogyakarta <dbl>,
## #   `Jawa Timur` <dbl>, Banten <dbl>, `Bali Nusra` <dbl>, Bali <dbl>,
## #   `Nusa Tenggara Barat` <dbl>, `Nusa Tenggara Timur` <dbl>, Kalimantan <dbl>,
## #   `Kalimantan Barat` <dbl>, `Kalimantan Tengah` <dbl>, ...
Outflow
## # A tibble: 139 x 41
##    Tahun Sumatera   Aceh `Sumatera Utara` `Sumatera Barat`   Riau `Kep. Riau`
##    <dbl>    <dbl>  <dbl>            <dbl>            <dbl>  <dbl>       <dbl>
##  1  2011   80092.  6338.           22176.            5300. 12434.       5819.
##  2  2012   85235.  6378.           22495.            6434. 13014.       6966.
##  3  2013  103288. 23278.           19235.            6511. 15460.       8747.
##  4  2014  102338.  8630.           26391.            7060. 15158.      10122.
##  5  2015  109186.  9637.           27877.            7471. 15789.       9803.
##  6  2016  121992. 11311.           31959.            9198. 17645.      10068.
##  7  2017  133606. 11760.           35243.           10754. 18128.      10749.
##  8  2018  135676. 11450.           36908.            8447. 17926.      12597.
##  9  2019  153484. 13087.           44051.            9465. 19277.      12644.
## 10  2020  140589. 12874.           39758.            8763. 19139.       8461.
## # ... with 129 more rows, and 34 more variables: Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>, `DKI Jakarta` <dbl>, Jawa <dbl>,
## #   `Jawa Barat` <dbl>, `Jawa Tengah` <dbl>, Yogyakarta <dbl>,
## #   `Jawa Timur` <dbl>, Banten <dbl>, `Bali Nusra` <dbl>, Bali <dbl>,
## #   `Nusa Tenggara Barat` <dbl>, `Nusa Tenggara Timur` <dbl>, Kalimantan <dbl>,
## #   `Kalimantan Barat` <dbl>, `Kalimantan Tengah` <dbl>, ...

Visualisasi data inflow dan outflow menggunakan plot

plot(inflow$Jawa, type = "l", col = "blue")

plot(Outflow$Jawa, type = "l", col = "red")

plot(inflow$Jawa, type = "l", col = "blue")
lines(Outflow$Jawa, type = "l", col = "red")
legend("top",c("Inflow","Outflow"),fill=c("blue","red"))

Pengambilan data inflow dan outflow perbulan

inflowbulan <- inflow[c(12:139),c(1:19)]
Outflowbulan <- Outflow[c(12:139),c(1:19)]
inflowbulan
## # A tibble: 128 x 19
##    Tahun Sumatera  Aceh `Sumatera Utara` `Sumatera Barat`   Riau `Kep. Riau`
##    <dbl>    <dbl> <dbl>            <dbl>            <dbl>  <dbl>       <dbl>
##  1 40544    4164.  124.            2068.             545.   94.2        84.2
##  2 40575    3338.  115.            1826.             450.   96.4        45.3
##  3 40603    4878.  154.            2028.             849.  288.         87.2
##  4 40634    3157.  122.            1429.             539.  160.        106. 
##  5 40664    3821.  123.            1539.             692.  195.         79.4
##  6 40695    3686.  151.            1637.             592.  101.         79.4
##  7 40725    4370.  107.            1791.             800.  143.        121. 
##  8 40756    3668.  184.            1256.             586.  134.         64.6
##  9 40787   12875.  606.            4172.            2176. 1014.        370. 
## 10 40817    4777.  158.            1941.             787.  341.        127. 
## # ... with 118 more rows, and 12 more variables: Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>, `DKI Jakarta` <dbl>, Jawa <dbl>,
## #   `Jawa Barat` <dbl>, `Jawa Tengah` <dbl>, Yogyakarta <dbl>,
## #   `Jawa Timur` <dbl>, Banten <dbl>
Outflowbulan
## # A tibble: 128 x 19
##    Tahun Sumatera  Aceh `Sumatera Utara` `Sumatera Barat`  Riau `Kep. Riau`
##    <dbl>    <dbl> <dbl>            <dbl>            <dbl> <dbl>       <dbl>
##  1 40544    3442.  350.             941.             307.  478.       189. 
##  2 40575    3989.  193.             990.             228.  400.       268. 
##  3 40603    4229.  230.            1209.             347.  621.       209. 
##  4 40634    6721.  529.            1653.             336. 1006.       364. 
##  5 40664    5787.  523.            1465.             328. 1000.       448. 
##  6 40695    7395.  406.            2167.             399. 1366.       516. 
##  7 40725    7154.  958.            1695.             449.  815.       584. 
##  8 40756   16043. 1046.            4104.            1376. 2729.      1312. 
##  9 40787    1915.  124.             824.             148.  154.        99.2
## 10 40817    5174.  634.            1392.             299.  830.       270. 
## # ... with 118 more rows, and 12 more variables: Jambi <dbl>,
## #   `Sumatera Selatan` <dbl>, Bengkulu <dbl>, Lampung <dbl>,
## #   `Kep. Bangka Belitung` <dbl>, `DKI Jakarta` <dbl>, Jawa <dbl>,
## #   `Jawa Barat` <dbl>, `Jawa Tengah` <dbl>, Yogyakarta <dbl>,
## #   `Jawa Timur` <dbl>, Banten <dbl>

Visualisasi data inflow dan outflow perbulan

plot(inflowbulan$Jawa,type = "l", col = "blue")
lines(Outflowbulan$Jawa,col="red")
legend("top",c("Inflow","Outflow"),fill = c("blue","red"))

Time Series dan Log pada Provinsi Aceh

Jawatimeseries <- inflowbulan$Jawa
plot.ts(Jawatimeseries , type = "l", col = "Blue")

library(TTR)
JawaSMA3 <- SMA(inflowbulan$Jawa,n=3)
plot.ts(JawaSMA3 )

JawaSMA3 <- SMA(inflowbulan$Jawa,n=8)
plot.ts(JawaSMA3 )

Inflow dan Outflow Time Series

Inflow

Jawainflowtimeseries <- ts(inflowbulan$Jawa, frequency=12, start=c(2011,1))
Jawainflowtimeseries
##            Jan       Feb       Mar       Apr       May       Jun       Jul
## 2011  7736.029  6667.138 10318.468  7825.809  8165.996  7441.701  9051.462
## 2012 17028.473 12388.568 11157.282 10774.882 12898.384 10223.099 13209.504
## 2013 15467.171  8909.603  6933.609  7405.869  7174.923  6750.378  7214.708
## 2014 25816.625 17444.745 13789.397 15194.010 13392.218 15421.705  7520.287
## 2015 28718.397 15106.953 15813.192 15075.893 16489.581 16556.075 33590.730
## 2016 31066.112 20269.959 16688.511 15674.541 19584.511 13431.940 47694.019
## 2017 29683.697 18481.911 19920.745 17265.203 19407.406 10145.679 58175.244
## 2018 37022.912 20189.505 19181.027 22227.670 18505.103 44831.458 36842.198
## 2019 38494.706 21594.536 21107.984 21739.533 16932.440 59688.189 28688.971
## 2020 42809.029 22340.044 17779.305 19204.049 18570.296 31388.323 17568.665
## 2021 43441.026 20649.214 20113.050 16790.744 37406.216 21883.221 11098.180
##            Aug       Sep       Oct       Nov       Dec
## 2011  6073.047 28449.576 11368.474 12199.359  8619.618
## 2012 18787.711 17881.652 11598.595 15009.388  9524.805
## 2013 17502.711 15567.160 16524.159 15126.007 10422.017
## 2014 45221.678 16929.366 18165.268 16161.697 12245.621
## 2015 25341.161 15774.799 17703.164 16878.224 13092.341
## 2016 22447.935 19321.126 19811.395 18117.953 17498.630
## 2017 23686.998 22657.154 21887.705 20811.475 15485.568
## 2018 23402.319 23428.024 25144.139 21265.698 14870.783
## 2019 25579.740 23248.212 25976.929 23176.785 18395.994
## 2020 20531.737 20393.013 14950.098 22993.789 10916.104
## 2021 16434.700

Outflow

JawaOutflowtimeseries <- ts(Outflowbulan$Jawa, frequency=12, start=c(2011,1))
JawaOutflowtimeseries
##            Jan       Feb       Mar       Apr       May       Jun       Jul
## 2011  1112.635  2303.732  3427.143  5426.773  5168.128  6644.230  8652.016
## 2012  2481.729  4502.215  8513.322  8540.194  8156.738 12344.619 10751.535
## 2013  2472.675  3459.360  5716.005  5020.176  6920.211  6887.922 15174.259
## 2014  6018.881  6803.947 10579.216  8701.562 10949.481 10422.343 38991.821
## 2015  4566.619  7893.909  9052.432 16385.658 10528.770 19010.084 39043.703
## 2016  4735.810  9870.504 11431.063 13997.717 17735.442 49948.089 11266.324
## 2017  5700.932 10853.701 17818.668 15726.178 20163.640 60007.387  5374.681
## 2018  5662.920 15128.213 23063.982 17547.217 41598.033 43488.426  9314.122
## 2019  5544.332 14851.505 21553.009 24112.168 71927.751  4444.298 18868.323
## 2020  8950.893 14285.377 21427.704 22752.771 37980.453  7331.345 23260.368
## 2021  4466.391 11987.831 16624.374 38785.780 33995.417 10934.446 18782.307
##            Aug       Sep       Oct       Nov       Dec
## 2011 26308.881  2440.014  5599.104  4496.652 11932.101
## 2012 21307.199  3847.182  7977.717  7439.436 15500.694
## 2013  9118.390  7189.696 10726.250  8920.807 17363.407
## 2014  4120.905  9930.333 12294.958 10629.317 17626.340
## 2015  6974.044 13208.167 10835.207 11471.111 22597.819
## 2016  8618.371 15479.341 11176.454 13454.249 22854.454
## 2017 19549.206 12820.000 13122.239 21648.480 26119.548
## 2018 21551.737 13601.588 15639.314 18958.862 27570.994
## 2019 21965.442 14743.601 17047.522 21211.050 35688.350
## 2020 15951.824 17079.589 30708.989 14908.993 36724.821
## 2021  7763.459

Visualiasasi Prediksi

Inflow

plot.ts(Jawainflowtimeseries)

Outflow

plot.ts(JawaOutflowtimeseries)

Jawaintimeseriescomponents <- decompose(Jawainflowtimeseries)
Jawaintimeseriescomponents$seasonal
##             Jan        Feb        Mar        Apr        May        Jun
## 2011 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2012 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2013 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2014 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2015 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2016 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2017 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2018 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2019 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2020 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
## 2021 10860.9057 -2408.1069 -4194.4039 -3930.2869 -4175.3746  3039.7953
##             Jul        Aug        Sep        Oct        Nov        Dec
## 2011  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2012  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2013  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2014  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2015  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2016  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2017  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2018  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2019  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2020  6655.8297  3350.7251   759.1602 -1371.0201 -1669.1635 -6918.0600
## 2021  6655.8297  3350.7251
JawaOuttimeseriescomponents <- decompose(JawaOutflowtimeseries)
JawaOuttimeseriescomponents$seasonal
##              Jan         Feb         Mar         Apr         May         Jun
## 2011 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2012 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2013 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2014 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2015 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2016 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2017 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2018 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2019 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2020 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
## 2021 -10934.7964  -5996.1956  -1104.4499   -885.3375   9303.1942   7798.4295
##              Jul         Aug         Sep         Oct         Nov         Dec
## 2011   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2012   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2013   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2014   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2015   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2016   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2017   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2018   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2019   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2020   2875.6325    298.1929  -4309.7947  -2024.9547  -2482.9440   7463.0235
## 2021   2875.6325    298.1929
plot(JawaOuttimeseriescomponents$random ,type = "l", col = "red")

plot(Jawaintimeseriescomponents$random ,type = "l", col = "red")
lines(JawaOuttimeseriescomponents$random,col="green")
legend("top",c("inflow","Outflow"),fill=c("red","green"))

plot(Jawaintimeseriescomponents$trend,type = "l", col = "blue")
lines(JawaOuttimeseriescomponents$trend,col="green")
legend("top",c("Inflow","Outflow"),fill=c("blue","green"))

plot(Jawaintimeseriescomponents$figure ,type = "l", col = "blue")
lines(JawaOuttimeseriescomponents$figure,col="green")
legend("top",c("Inflow","Outflow"),fill=c("blue","green"))