R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

Including Plots

You can also embed plots, for example:

Pendahuluan

Laporan ini menyajikan analisis data mengenai pengangguran, pertumbuhan ekonomi (GDP), dan inflasi di Indonesia dari tahun 2000 hingga 2022.

Pemanggilan Data

data <- read_excel("datatugasneva.xlsx", sheet = "Indonesia")
data <- data %>% select(TAHUN, UnemploymentRate, EconomicGrowth, Inflation)
head(data)
## # A tibble: 6 × 4
##   TAHUN UnemploymentRate EconomicGrowth Inflation
##   <dbl>            <dbl>          <dbl>     <dbl>
## 1  2000              6.1            4.9       3.7
## 2  2001              8.1            3.6      11.5
## 3  2002              9.1            4.5      11.9
## 4  2003              9.7            4.8       6.8
## 5  2004              9.9            5         6.1
## 6  2005             11.2            5.7      10.5

Visualisasi Data

Tren Pengangguran

ggplot(data, aes(x = TAHUN, y = UnemploymentRate)) +
  geom_line(color = "steelblue") +
  geom_point() +
  labs(title = "Tingkat Pengangguran di Indonesia",
       x = "Tahun",
       y = "Tingkat Pengangguran (%)") +
  theme_minimal()

Histogram Pengangguran

ggplot(data, aes(x = UnemploymentRate)) +
  geom_histogram(fill = "steelblue", color = "white", bins = 10) +
  labs(title = "Distribusi Tingkat Pengangguran",
       x = "Tingkat Pengangguran (%)",
       y = "Frekuensi") +
  theme_minimal()

Pertumbuhan Ekonomi (GDP Growth)

ggplot(data, aes(x = TAHUN, y = EconomicGrowth)) +
  geom_line(color = "darkgreen") +
  geom_point() +
  labs(title = "Pertumbuhan Ekonomi Indonesia",
       x = "Tahun",
       y = "Pertumbuhan Ekonomi (%)") +
  theme_minimal()

Histogram Pertumbuhan Ekonomi

ggplot(data, aes(x = EconomicGrowth)) +
  geom_histogram(fill = "darkgreen", color = "white", bins = 10) +
  labs(title = "Distribusi Pertumbuhan Ekonomi",
       x = "Pertumbuhan Ekonomi (%)",
       y = "Frekuensi") +
  theme_minimal()

Inflasi

ggplot(data, aes(x = TAHUN, y = Inflation)) +
  geom_line(color = "firebrick") +
  geom_point() +
  labs(title = "Tingkat Inflasi Tahunan di Indonesia",
       x = "Tahun",
       y = "Inflasi (%)") +
  theme_minimal()

Histogram Inflasi

ggplot(data, aes(x = Inflation)) +
  geom_histogram(fill = "firebrick", color = "white", bins = 10) +
  labs(title = "Distribusi Tingkat Inflasi",
       x = "Inflasi (%)",
       y = "Frekuensi") +
  theme_minimal()

Analisis Korelasi

korelasi <- cor(data %>% select(-TAHUN))
kable(korelasi, caption = "Matriks Korelasi antara Pengangguran, Pertumbuhan Ekonomi, dan Inflasi") %>%
  kable_styling(full_width = F)
Matriks Korelasi antara Pengangguran, Pertumbuhan Ekonomi, dan Inflasi
UnemploymentRate EconomicGrowth Inflation
UnemploymentRate 1.0000000 0.0703225 0.7175260
EconomicGrowth 0.0703225 1.0000000 0.2597943
Inflation 0.7175260 0.2597943 1.0000000

Kesimpulan

Referensi