geodashboard_jpa.Rmd

---
title: "Jabodetabek Property Analysis Dashboard"
output: 
  flexdashboard::flex_dashboard:
    theme: readable
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(glue)
library(scales)
library(sf)
library(plotly)
library(leaflet)
library(leaflet.extras)

# read data
idn <- st_read(dsn = "shp", layer = "idn")
df <- read.csv("data/listings.csv")
perum <- read.csv('data/perumahan.csv')

# aggregate
df_agg <- df %>% 
  mutate(
    harga_m2 = harga / m2
  ) %>% 
  group_by(kota, kecamatan) %>% 
  summarise(harga_m2 = median(harga_m2),
            total_listings= n()) %>% 
  ungroup() %>% 
  left_join(idn, by = c("kota" = "NAME_2", "kecamatan" = "NAME_3")) %>% 
  st_as_sf()

```


Column {.tabset}
-------------------------------------

### Distribution of House Price/m2 for each Kecamatan

```{r}
pal <- colorNumeric(palette = "YlOrRd", domain = df_agg$harga_m2)

labels <- glue::glue("
  <b>{df_agg$kecamatan}, {df_agg$kota}</b>:<br> {round(df_agg$harga_m2/1e6, 2)} jt/m2 <br> Total house listed: {df_agg$total_listings}") %>% lapply(htmltools::HTML)

border  <- df_agg %>% 
  filter(NAME_1 == "Jakarta Raya") %>% 
  group_by(NAME_1) %>% 
  summarise() 

leaflet(df_agg) %>% 
  addProviderTiles(providers$CartoDB.Positron) %>%  
  addPolygons(
    label = labels,
    labelOptions = labelOptions(
      style = list(
        "font-size"="13px",
        "background-color"="black",
        "color"="white"
      )
    ),
    weight = 2,
    color = "white",
    fillOpacity = .8,
    fillColor = ~pal(harga_m2),
     highlight = highlightOptions(
    weight = 5,
    color = "black",
    bringToFront = TRUE,
    sendToBack = TRUE,
    opacity = 0.8)
  ) %>% 
  addPolylines(
    data = border,
    color = "darkred",
    opacity = .8,
    weight = 3
  ) %>% 
  addLegend(
    pal = pal,
    values = ~harga_m2,
    opacity = 1,
    title = "Harga/m2",
    position = "bottomright"
  ) %>% 
  setView(lat = -6.225337, lng = 106.841086, zoom=11.2)
```



### Housing Heatmap

```{r}
library(leaflet.extras)

leaflet(perum) %>% 
  addProviderTiles(providers$CartoDB.Voyager) %>%
  addCircles(
    label = ~perumahan,
    color = "red"
  ) %>% 
  addHeatmap(
    radius = 10
  )%>% 
  setView(lat = -6.225337, lng = 106.841086, zoom=11.2)



```




Column 
-------------------------------------

### Average Price per Kecamatan Table 

```{r}
library(DT)

data <- df_agg %>% 
  as.data.frame() %>% 
  arrange(desc(harga_m2)) %>% 
  select(kota, kecamatan, harga_m2) %>% 
  mutate(harga_m2 = number(harga_m2, big.mark = ",")) %>% 
  rename(
    Kota = kota,
    Kecamatan = kecamatan,
    `Price/m2` = harga_m2
  ) 

DT::datatable(
  data,
  extensions = "Buttons",
  options = list(
    pageLength = 25,
    dom = 'Bfrtip',
    buttons = c('csv','excel','pdf')
  )
)
```