library(tidymodels) library(plotly) library(esquisse) library(ggplot2) library(readr) library(tidyverse)

data_padi <- read.csv("C:/Users/Resea/Downloads/Data_Tanaman_Padi_Sumatera_version_1.csv")
pengunjung <- read.csv("C:/Users/Resea/Downloads/Pengunjung_Mall.csv")
head(data_padi)
##   Provinsi Tahun Produksi Luas.Panen Curah.hujan Kelembapan Suhu.rata.rata
## 1     Aceh  2015  1956940   461060.0      1575.0      80.00          27.10
## 2     Aceh  2016  2180754   293067.0      1096.0      83.32          27.12
## 3     Aceh  2017  2478922   294483.0      1905.9      85.57          26.51
## 4     Aceh  2018  1751997   329515.8      1427.8      83.98          26.48
## 5     Aceh  2019  1714438   310012.5      1931.4      83.90          26.65
## 6     Aceh  2020  1861567   317869.4      1619.2      80.82          25.41
head(pengunjung)
##   ID_Pelanggan Gender Usia Pendapatan_Tahunan_Ribuan_USD Pengeluaran_USD
## 1            1   Pria   19                            15              39
## 2            2   Pria   21                            15              81
## 3            3 Wanita   20                            16               6
## 4            4 Wanita   23                            16              77
## 5            5 Wanita   31                            17              40
## 6            6 Wanita   22                            17              76
#esquisser(data_padi)
#esquisser(pengunjung)
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.4.2
ggplot(data_padi) +
  aes(x = Tahun, y = Produksi) +
  geom_line(colour = "#112446") +
  labs(
    title = "Produktivitas Padi Provinsi Aceh Tahun 2015-2020"
  ) +
  theme_minimal()

library(ggplot2)
ggplot(pengunjung) +
  aes(x = Usia) +
  geom_histogram(bins = 30L, fill = "lightblue") +
  labs(
    x = "Usia",
    y = "Frekuensi",
    title = "Usia Pengunjung Mall"
  ) +
  theme_minimal()