Junyan Tan
22/01/2017
The Commercial Building Disclosure (CBD) Program requires energy efficiency information to be provided in most cases when commercial office space of 2,000 square metres or more is offered for sale or lease. The aim is to improve the energy efficiency of Australia's large office buildings and to ensure prospective buyers and tenants are informed. The CBD Program is an initiative of the Council of Australian Governments (COAG).
The dataset used is a abbreviated version of the full CBD dataset containing only NABERS ratings. The original dataset was downloaded from the CBD dataset page http://www.cbd.gov.au/registers/cbd-downloadable-data-set
This Shiny app allows one to filter out ratings by date certified and state. The ratings are then shown as a data table and plotted on a map for easy comparison.
A short list of the first few items of CBD NABERS dataset is given below.
df <- readRDS("data/NABERS.rds")
head(df)
Key Full.Name
1 5.035691e+18 15 Green Square Close, Fortitude Valley, QLD, 4006
2 4.091671e+18 200 Mary Street, Brisbane City, QLD, 4000
3 4.521833e+18 315 Ferntree Gully Road, Mount Waverley, VIC, 3149
4 2.939525e+18 321 Ferntree Gully Road, Mount Waverley, VIC, 3149
5 4.091672e+18 150 Lonsdale Street, Melbourne, VIC, 3000
6 3.660840e+18 90-96 Maribyrnong Street, Footscray, VIC, 3011
Short.Name Street.Address Suburb
1 15 Green Square Close Fortitude Valley
2 Cromwell HQ 200 Mary Street Brisbane City
3 315 Ferntree Gully Road 315 Ferntree Gully Road Mount Waverley
4 321 Ferntree Gully Road 321 Ferntree Gully Road Mount Waverley
5 150 Lonsdale Street 150 Lonsdale Street Melbourne
6 Dream Factory 90-96 Maribyrnong Street Footscray
Postcode State Longitude Latitude NABERS.Star.Rating NABERS.Rated.Area
1 4006 QLD 153.0353 -27.45413 5.0 15715.2
2 4000 QLD 153.0295 -27.47000 3.0 10604.2
3 3149 VIC 145.1337 -37.90000 3.0 3654.4
4 3149 VIC 145.1337 -37.90000 1.0 7795.2
5 3000 VIC 144.9677 -37.81046 4.5 28306.0
6 3011 VIC 144.9056 -37.80803 3.0 6185.0
NABERS.Rated.Hours NABERS.Rating.Scope NABERS.Certified.Date
1 53.8 Base Building 2014-10-19 13:00:00
2 49.9 Base Building 2014-10-30 13:00:00
3 58.5 Whole Building 2014-10-20 13:00:00
4 58.1 Whole Building 2014-10-22 13:00:00
5 52.8 Base Building 2014-04-09 22:55:00
6 47.5 Whole Building 2014-10-02 14:00:00
The server then uses the input date range and state selected from the dropdown list to filter out the rows which both match the state selected as well as to be within the date range selected. The filter function from the dplyr package is used.
library(dplyr)
filter(df, df$State== "NSW" & df$NABERS.Certified.Date >= as.POSIXct(strptime("2016-01-20",format="%Y-%m-%d")) & df$NABERS.Certified.Date<= as.POSIXct(strptime("2017-01-20",format="%Y-%m-%d")))[c(1:3),]
Key Full.Name
1 8.912383e+18 147 Castlereagh Street, Sydney, NSW, 2000
2 3.859204e+18 26-38 Talavera Road, Macquarie Park, NSW, 2113
3 1.250322e+18 26 Lee Street, Haymarket, NSW, 2000
Short.Name Street.Address
1 147 Castlereagh Street
2 Talavera Corporate Centre Buildings A&B 26-38 Talavera Road
3 26 Lee Street
Suburb Postcode State Longitude Latitude NABERS.Star.Rating
1 Sydney 2000 NSW 151.2090 -33.87195 4
2 Macquarie Park 2113 NSW 151.1288 -33.77974 4
3 Haymarket 2000 NSW 151.2038 -33.88500 5
NABERS.Rated.Area NABERS.Rated.Hours NABERS.Rating.Scope
1 8889.7 50 Base Building
2 20103.8 40 Base Building
3 12455.0 52 Base Building
NABERS.Certified.Date
1 2016-02-01 13:00:00
2 2016-02-13 13:00:00
3 2016-02-11 13:00:00
Finally, the filtered out rows are plotted on an interactive map using the Leaflet package. This concludes my presentation and I hope you enjoy using this Shiny app. Thank you.
Junyan Tan (22/01/2017)