Code
%>%
icw_sr_06 left_join(quant_inc, by = "quant_inc") %>%
group_by(quant_inc, Quant_inc) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
quant_inc | Quant_inc | Nobs |
---|---|---|
D1 | First decile | 141 |
D10 | Tenth decile | 141 |
D2 | Second decile | 141 |
D3 | Third decile | 141 |
D4 | Fourth decile | 141 |
D5 | Fifth decile | 141 |
D6 | Sixth decile | 141 |
D7 | Seventh decile | 141 |
D8 | Eighth decile | 141 |
D9 | Ninth decile | 141 |