Dosen Pengampu : Prof. Dr. Suhartono, M.Kom

Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Jurusan : Teknik Informatika

library (readxl)
## Warning: package 'readxl' was built under R version 4.1.2
DataSulampua <- read_excel(path = "Data Sulampua.xlsx")
DataSulampua
## # A tibble: 11 x 12
##    Keterangan Sulampua `Sulawesi Utara` `Sulawesi Tengah` `Sulawesi Selatan`
##         <dbl>    <dbl>            <dbl>             <dbl>              <dbl>
##  1       2011   25056.            5671.             1563.             10593.
##  2       2012   31011.            6635.             1885.             13702.
##  3       2013   63774.           21646.             1520.             17770.
##  4       2014   41607.            7374.             3000.             19384.
##  5       2015   40309.            6286.             2593.             19583.
##  6       2016   45737.            7266.             2665.             21043.
##  7       2017   44126.            7044.             2806.             18803.
##  8       2018   52672.            7781.             3701.             21894.
##  9       2019   60202.            7809.             4042.             24749.
## 10       2020   52812.            6324.             3052.             21551.
## 11       2021   45714.            4671.             2453.             18335.
## # ... with 7 more variables: Sulawesi Tenggara <dbl>, Sulawesi Barat <dbl>,
## #   Gorontalo <dbl>, Maluku Utara <dbl>, Maluku <dbl>, Papua <dbl>,
## #   Papua Barat <dbl>
DataSulampua$Sulampua
##  [1] 25055.97 31011.00 63774.06 41606.86 40309.32 45736.50 44126.30 52671.79
##  [9] 60201.86 52811.65 45714.06
plot(DataSulampua$Sulampua, type = "l", col = "red")

DataSulampua$`Sulawesi Utara`
##  [1]  5671.000  6634.641 21646.159  7374.499  6286.289  7265.597  7044.279
##  [8]  7781.151  7809.155  6324.233  4671.264
plot(DataSulampua$`Sulawesi Utara`, type = "l", col = "blue")

DataSulampua$`Sulawesi Tengah`
##  [1] 1562.941 1884.829 1520.442 3000.074 2593.303 2665.254 2806.429 3701.217
##  [9] 4042.390 3051.851 2453.199
plot(DataSulampua$`Sulawesi Tengah`, type = "l", col = "red")
lines(DataSulampua$`Sulawesi Tengah`, type = "l", col = "blue")

DataSulampua$`Sulawesi Selatan`
##  [1] 10593.50 13701.51 17769.79 19384.42 19583.09 21043.30 18803.15 21893.75
##  [9] 24749.44 21550.89 18335.47
plot(DataSulampua$`Sulawesi Selatan`, type = "l", col = "red")

DataSulampua$`Sulawesi Tenggara`
##  [1]  659.4304  963.5873 6092.8347 2255.6806 2384.8327 3490.9068 3617.7743
##  [8] 3632.1650 4389.6582 3352.6445 3270.1025
SulampuaSeries <- DataSulampua$`Sulawesi Tenggara`
plot.ts(SulampuaSeries , type = "l", col = "red")

DataSulampua$`Sulawesi Barat`
##  [1]   0.0000   0.0000   0.0000   0.0000  49.2460 536.1154 745.5931 606.4442
##  [9] 541.9316 328.7502 265.3367
plot(DataSulampua$`Sulawesi Barat`, type = "l", col = "red")

DataSulampua$Gorontalo
##  [1]    0.000    0.000    0.000    0.000    0.000    0.000    0.000 1087.618
##  [9] 1982.668 2227.093 1770.084
plot(DataSulampua$Gorontalo, type = "l", col = "blue")

DataSulampua$`Maluku Utara`
##  [1]   586.2135   632.5633 10272.8375  1005.7598  1006.5258  1259.1178
##  [7]  1338.5309  1530.4824  1923.9584  1875.6152  1737.8006
plot(DataSulampua$`Maluku Utara`, type = "l", col = "red")

DataSulampua$Maluku
##  [1] 1272.762 1147.057 4340.909 1781.000 1789.516 2367.153 2484.281 3209.894
##  [9] 4056.139 2909.368 2794.644
plot(DataSulampua$Maluku, type = "l", col = "red")

DataSulampua$Papua
##  [1] 4710.121 6046.813 2131.089 6793.698 6098.985 6291.392 6352.966 8075.711
##  [9] 9258.847 9556.313 8509.055
plot(DataSulampua$Papua, type = "l", col = "red")

DataSulampua$`Papua Barat`
##  [1]    0.00000    0.00000    0.00000   11.72892  517.53761  817.66243
##  [7]  933.30098 1153.35466 1447.67184 1634.88794 1907.10739
plot(DataSulampua$`Papua Barat`, type = "l", col = "blue")

Refrensi

https://rpubs.com/suhartono-uinmaliki/861286