TM_Offstat1

library(ggplot2)

# Input data
data <- read.table(file.choose(), header = TRUE)
data

##       Kabuoaten.Kota Pertanian Industri Jasa Jumlah
## 1              Paser       131        6    7    144
## 2         KutaiBarat       163       14   17    194
## 3   KutaiKartanegara       179       42   22    243
## 4         KutaiTimur       133       15    4    152
## 5              Berau        90       11    9    110
## 6  PanajamPaserUtara        44        1    9     54
## 7         MahakamUlu        50        0    0     50
## 8         Balikpapan         0        1   33     34
## 9          Samarinda         7        4   48     59
## 10           Bontang         3        4    8     15

# Diagram Batang Pertanian
ggplot(data, aes(x = reorder(data[[1]], Pertanian),
                 y = Pertanian)) +
  geom_col(fill = "red") +
  labs(
    title = "Sumber Penghasilan Utama Pertanian",
    x = "Kabupaten/Kota",
    y = "Jumlah Desa/Kelurahan"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

## Warning: Use of `data[[1]]` is discouraged.
## ℹ Use `.data[[1]]` instead.

# Diagram Batang Industri
ggplot(data, aes(x = reorder(data[[1]], Industri), y = Industri)) +
  geom_col(fill = "orange") +
  labs(
    title = "Sumber Penghasilan Utama Industri",
    x = "Kabupaten/Kota",
    y = "Jumlah Desa/Kelurahan"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

## Warning: Use of `data[[1]]` is discouraged.
## ℹ Use `.data[[1]]` instead.

# Diagram Batang Jasa
ggplot(data, aes(x = reorder(data[[1]], Jasa), y = Jasa)) +
  geom_col(fill = "yellow") +
  labs(
    title = "Sumber Penghasilan Utama Jasa",
    x = "Kabupaten/Kota",
    y = "Jumlah Desa/Kelurahan"
  ) +
  theme_classic() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),
    plot.title = element_text(
      hjust = 0.5,
      face = "bold"
    )
  )

## Warning: Use of `data[[1]]` is discouraged.
## ℹ Use `.data[[1]]` instead.