Data source

The DNIS data can be found here: https://data.ndis.gov.au/data-downloads#market

Definitions and Explanations

Active participitation by age (National level)

p1 <- ggplot(data = df, aes(x=Age_Group , y=Active_participants ) )
p2 <- p1 + geom_col()
p3 <- ggplotly(p2)
p3
p1<-ggplot(data = df, aes(x=Age_Group , y = Average_committed_support) ) 
p2 <- p1+geom_col()
p2

p1<-ggplot(data = df, aes(x=Age_Group , y = Average_payments) ) 
p2 <- p1+geom_col()
p2

Active participitations from 2022 to 2023

You can also embed plots, for example:

Disability level of function

Commited Support and payment for different disability types

## # A tibble: 16 × 3
##    Level_of_Function Average_committed_support Average_payments
##    <chr>                                 <dbl>            <dbl>
##  1 LvlofFn_01                           763468           435341
##  2 LvlofFn_02                          1137562           664558
##  3 LvlofFn_03                          1190952           764749
##  4 LvlofFn_04                           996608           617691
##  5 LvlofFn_05                          1577573          1087068
##  6 LvlofFn_06                          1336536           866887
##  7 LvlofFn_07                          2511429          1864008
##  8 LvlofFn_08                          2972562          2065665
##  9 LvlofFn_09                          4101517          2760841
## 10 LvlofFn_10                          5028898          3687919
## 11 LvlofFn_11                          4825412          3793436
## 12 LvlofFn_12                          9044251          7181108
## 13 LvlofFn_13                          4970411          3964254
## 14 LvlofFn_14                         14423432          1196345
## 15 LvlofFn_15                         23290966          2010141
## 16 LvlofFn_Missing                    15998744         17487910