Add csvs manually

CGT-NG-atlas/Distribution-taxes-income-vs-taxable-income-decile-1.csv

@@ -0,0 +1,61 @@
+Taxable_Income_decile,type,value
+1,No. Taxpayers,1348200
+2,No. Taxpayers,1348200
+3,No. Taxpayers,1348200
+4,No. Taxpayers,1348200
+5,No. Taxpayers,1348200
+6,No. Taxpayers,1348200
+7,No. Taxpayers,1348200
+8,No. Taxpayers,1348200
+9,No. Taxpayers,1348200
+10,No. Taxpayers,1348150
+1,Salary,3235647550
+2,Salary,10900396500
+3,Salary,19440830950
+4,Salary,30787153050
+5,Salary,43769861750
+6,Salary,57491531700
+7,Salary,71970177000
+8,Salary,89004464550
+9,Salary,115360867050
+10,Salary,182697358000
+1,"Income tax
+(excl CGT)",0
+2,"Income tax
+(excl CGT)",0
+3,"Income tax
+(excl CGT)",14724325.55
+4,"Income tax
+(excl CGT)",68046606.47
+5,"Income tax
+(excl CGT)",126036026.57
+6,"Income tax
+(excl CGT)",211799582.18
+7,"Income tax
+(excl CGT)",316331543.55
+8,"Income tax
+(excl CGT)",449544410.27
+9,"Income tax
+(excl CGT)",664133279.995
+10,"Income tax
+(excl CGT)",1817467390.135
+1,Capital gains,297553700
+2,Capital gains,219556300
+3,Capital gains,241045850
+4,Capital gains,316216400
+5,Capital gains,346881500
+6,Capital gains,351582800
+7,Capital gains,468625850
+8,Capital gains,664295950
+9,Capital gains,1196419750
+10,Capital gains,10269400200
+1,CGT,0
+2,CGT,0
+3,CGT,295607.89
+4,CGT,890631.76
+5,CGT,1216632.46
+6,CGT,1742723.02
+7,CGT,2571932.13
+8,CGT,4038816.485
+9,CGT,7790736.305
+10,CGT,89396510.345

CGT-NG-atlas/Distribution-taxes-income-vs-taxable-income-decile-2.csv

@@ -0,0 +1,61 @@
+Taxable_Income_decile,type,value
+1,No. Taxpayers,1348200
+2,No. Taxpayers,1348200
+3,No. Taxpayers,1348200
+4,No. Taxpayers,1348200
+5,No. Taxpayers,1348200
+6,No. Taxpayers,1348200
+7,No. Taxpayers,1348200
+8,No. Taxpayers,1348200
+9,No. Taxpayers,1348200
+10,No. Taxpayers,1348150
+1,Salary,3141099500
+2,Salary,10615009200
+3,Salary,19059920350
+4,Salary,30516840650
+5,Salary,43385299850
+6,Salary,57243903850
+7,Salary,71648289450
+8,Salary,88892146350
+9,Salary,115209352150
+10,Salary,184946426750
+1,"Income tax
+(excl CGT)",0
+2,"Income tax
+(excl CGT)",0
+3,"Income tax
+(excl CGT)",13219945.18
+4,"Income tax
+(excl CGT)",66788983.78
+5,"Income tax
+(excl CGT)",124145539.11
+6,"Income tax
+(excl CGT)",209754870.48
+7,"Income tax
+(excl CGT)",314197390.08
+8,"Income tax
+(excl CGT)",447621891.5
+9,"Income tax
+(excl CGT)",662032043.43
+10,"Income tax
+(excl CGT)",1830322501.16
+1,Capital gains,3554054450
+2,Capital gains,1124083750
+3,Capital gains,748795300
+4,Capital gains,605353600
+5,Capital gains,828449650
+6,Capital gains,576815700
+7,Capital gains,665516850
+8,Capital gains,838000150
+9,Capital gains,1070373000
+10,Capital gains,4360135850
+1,CGT,17668626.49
+2,CGT,6784912.03
+3,CGT,5206778.86
+4,CGT,4263706.36
+5,CGT,6762568.07
+6,CGT,4457409.31
+7,CGT,5204407.85
+8,CGT,6855908.795
+9,CGT,9092222.1
+10,CGT,41647050.53

CGT_and_neg_gearing_parent.Rnw

@@ -2826,7 +2826,8 @@ pDecile <-
             CGT = sum(income_tax(Taxable_Income, latest.sample.fy) - income_tax(pmaxC(Taxable_Income - Net_CG_amt, 0), latest.sample.fy))) %>%
   gather(type, value, -Taxable_Income_decile) %>%
   mutate(type = factor(type, levels = unique(.$type), ordered = TRUE)) %>%
-  arrange(type, Taxable_Income_decile) %>%
+  arrange(type, Taxable_Income_decile) %T>%
+  fwrite("CGT-NG-atlas/Distribution-taxes-income-vs-taxable-income-decile-1.csv") %>%
   grplot(aes(x = type, y = value, fill = factor(Taxable_Income_decile, levels = 10:1))) + 
   geom_bar(stat = "identity", position = "fill", width = 0.8, color = "white") +
   scale_fill_manual(values = gpalx(10)) + 
@@ -2848,7 +2849,8 @@ pDecile_no_CG <-
             CGT = sum(income_tax(Taxable_Income, latest.sample.fy) - income_tax(pmax0(Taxable_Income - Net_CG_amt), latest.sample.fy))) %>%
   gather(type, value, -Taxable_Income_decile) %>%
   mutate(type = factor(type, levels = unique(.$type), ordered = TRUE)) %>%
-  arrange(type, Taxable_Income_decile) %>%
+  arrange(type, Taxable_Income_decile) %T>%
+  fwrite("CGT-NG-atlas/Distribution-taxes-income-vs-taxable-income-decile-2.csv") %>%
   grplot(aes(x = type, y = value, fill = factor(Taxable_Income_decile, levels = 10:1))) + 
   geom_bar(stat = "identity", position = "fill", width = 0.8,
            color = "white") +