Skip to content
Snippets Groups Projects
Commit f7d085ca authored by Ben Anderson's avatar Ben Anderson
Browse files

added quick table for bulb type to check against NZ

parent d52fdc15
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
analysis/GREENGridModel/_reportAreaModel.Rmd
+ 4
− 0
View file @ f7d085ca
...@@ -492,7 +492,11 @@ setkey(ggLightingDT, linkID) ...@@ -492,7 +492,11 @@ setkey(ggLightingDT, linkID)
setkey(ggHhDT, linkID) setkey(ggHhDT, linkID)
ggLightingDT <- ggHhDT[, .(linkID, Q49_coded, Location)][ggLightingDT] ggLightingDT <- ggHhDT[, .(linkID, Q49_coded, Location)][ggLightingDT]
t <- table(ggHhDT$Q49_coded)
prop.table(t)*100
t <- table(ggHhDT$Q49_coded, ggHhDT$Location, useNA = "always") t <- table(ggHhDT$Q49_coded, ggHhDT$Location, useNA = "always")
kableExtra::kable(t, caption = "Bulb type distribution (survey data)") %>% kableExtra::kable(t, caption = "Bulb type distribution (survey data)") %>%
kable_styling() kable_styling()
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment