Diagram Batang Harga Rumah

library(readxl)

## Warning: package 'readxl' was built under R version 4.5.2

library(ggplot2)

# Membaca dataset
DATA_RUMAH <- read_excel("DATA RUMAH.xlsx")

# Menampilkan 6 data pertama
head(DATA_RUMAH)

## # A tibble: 6 × 8
##      NO `NAMA RUMAH`                         HARGA    LB    LT    KT    KM   GRS
##   <dbl> <chr>                                <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1     1 Rumah Murah Hook Tebet Timur, Tebe… 3.8 e9   220   220     3     3     0
## 2     2 Rumah Modern di Tebet dekat Stasiu… 4.6 e9   180   137     4     3     2
## 3     3 Rumah Mewah 2 Lantai Hanya 3 Menit… 3   e9   267   250     4     4     4
## 4     4 Rumah Baru Tebet, Tebet, Jakarta S… 4.30e8    40    25     2     2     0
## 5     5 Rumah Bagus Tebet komp Gudang Pelu… 9   e9   400   355     6     5     3
## 6     6 Rumah Mewah Modern Murah 3 lantai … 4.97e9   300   154     5     3     3

ggplot(DATA_RUMAH, aes(x = factor(NO), y = HARGA)) +
  geom_col(fill = "steelblue") +
  labs(
    title = "Diagram Batang Harga Rumah",
    x = "Nomor Rumah",
    y = "Harga (Rp)"
  ) +
  theme_minimal()

Data Rumah (Preview)

Diagram Batang Harga Rumah