From 0957ee3cd1a3bf1a9c046c73ef8b0ef8b81b91d2 Mon Sep 17 00:00:00 2001 From: Frederik Vanrenterghem Date: Thu, 2 Nov 2017 21:38:12 +0800 Subject: [PATCH 1/1] Only look at Melbourne. --- AU-taxstats.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/AU-taxstats.R b/AU-taxstats.R index e96c7a6..728c943 100644 --- a/AU-taxstats.R +++ b/AU-taxstats.R @@ -51,7 +51,11 @@ taxstats.POA$`Total.Income.or.Loss.no.`[is.na(taxstats.POA$`Total.Income.or.Loss sa3$TotalIncome <- as.vector(POA_SAs %*% as.matrix(taxstats.POA$`Total.Income.or.Loss..`)) sa3$TotalIncomeEarners <- as.vector(POA_SAs %*% as.matrix(taxstats.POA$`Total.Income.or.Loss.no.`)) sa3$incomeperearningcapita <- sa3$TotalIncome / sa3$TotalIncomeEarners -ggplot(sa3) + + +# As SA3s are still to narrow around cities compared to in the country, +# let's simply look at Melbourne + +ggplot(dplyr::filter(sa3, data.table::`%like%`(GCC_NAME16, "Melbourne") )) + geom_sf(aes(fill = incomeperearningcapita, color = incomeperearningcapita)) + scale_fill_viridis("incomeperearningcapita") + scale_color_viridis("incomeperearningcapita") -- 2.30.2