Student Details

Data Table

*The data was taken from the following website http://abs.gov.au/ausstats/abs%40.nsf/mediareleasesbyCatalogue/0DB52D24450CC7ACCA257A7500148E4C?OpenDocument

*The data was pre-summarised and was taken in comparision of the census of population which showed the changes in the population of homeless in Australia.

Code

Living_In <- c("Improvised Dwellings","Homeless Accomodation","Temporary households","Boarding Houses","Temporary Lodging","Crowded dwellings")
Y2001 <- c(8946,13420,17880,21300,338,33430)
Y2006 <- c(7274,17329,17663,15460,500,31531)
Y2011 <- c(6810,21258,17374,14944,682,41370)
Y2016 <- c(8200,21235,17725,17503,678,51088)
df <- data.frame( Living_In, Y2001, Y2006, Y2011, Y2016)



DF1=melt(df)
## Using Living_In as id variables
View(DF1)

p=ggplot(DF1, aes( x=variable, y=value, group=Living_In)) + geom_line(aes(color=Living_In))

p+facet_wrap(~Living_In)+geom_point(aes(color=Living_In))+theme(axis.text.x = element_text(angle = 20, hjust = 1))+labs(x = "Year",y="Number of People", title=" Rate of Homelessness in Australia ",color="Different Dwellings")

Visualisation

Data Information;

*The purpose of this visualisation was to show the yearly changes in the dwellings of homeless.

we started with the accomodation of homeless which shows that there were 12000 people living in the accomodation for homeless in the year 2001 which increased to 22000 people in the year 2016. There were 22000 people living in the boarding houses in the year 2001 which reduced to 17000 people in the year 2016. There were 33000 people living in crowded dwellings in the year 2001 which increased almost 52000 people in the year 2016. There were 8000 people living in the improvised dwellings in the year 2001 which reduced to 7000 people in the year 2016. There were 18000 people living in the temporary households in the year 2001 and were stagnent in the year 2016. Temporary lodging increased from 1000 people to 2000 people between 2001 and 2016.