R/createGraphs.R

In benyomin/censusFunctions: Helper Functions for Israeli Census Files

#' Create ggplot2 plots, but don't print to screen/page. v. 0.8
#'
#' This function aggregates graphing code; returns plots as a list.
#' @param metric income/consumption/NHC ;; weighted
#' @keywords plots, graphs
#' @export
#' @family plot
#' @examples
#' createGraphs("income")
#' createGraphs("NHC")
#' createGraphs("consumption")
#' createGraphs()
createGraphs <- function(metric = "income") {
    if (metric == "income") {
        ## Graph Income - Weighted.
        pWeightedIncome <- ggplot(data = allWeightedIncome)
        pWeightedIncome1 <<- pWeightedIncome + geom_line(aes(x = year, y = value, 
            col = key))
        return(pWeightedIncome1)
    } else if (metric == "consumption") {
        ## Graph Consumption - Weighted.
        pWeightedConsumption <- ggplot(data = allWeightedConsumption)
        pWeightedConsumption1 <<- pWeightedConsumption + geom_line(aes(x = year, 
            y = value, col = key))
        return(pWeightedConsumption1)
    } else if (metric == "NHC") {
        ## Graph Non-Housing Consumption - Weighted.
        pWeightedNHC <- ggplot(data = allWeightedNHC)
        pWeightedNHC1 <<- pWeightedNHC + geom_line(aes(x = year, y = value, col = key))
        ## #
        return(pWeightedNHC1)
    } else {
        return("invalid argument - code 0943nar9")
    }
}
# names(matIncome) sample carBoxPlot <- qplot(gear, mpg, data=mtcars,
# geom=c('boxplot', 'jitter'), fill=gear, main='Mileage by Gear Number', xlab='',
# ylab='Miles per Gallon') plotIncome <-ggplot(data=matIncome) pIncome <<-
# plotIncome+ geom_line(aes(x=someyears, y=meanGrossIncome))+xlab('')+ ylab('Mean
# monthly gross income')+ ggtitle('Gross Income by Year - All Households')
# #pIncome #names(allY) pallY <-ggplot(data=allY) pallIncome <<- pallY+
# geom_line(aes(x=year, y=value, col=key))+ ylab('Mean Total Income
# (NIS/month)')+ xlab('')+ ggtitle('Total Income by home ownership')+
# geom_vline(xintercept = 2011)+ geom_vline(xintercept = 2013) #pallIncome p2
# <-ggplot(data=matConsRenters) p3 <<- p2+ geom_line(aes(x=someyears,
# y=meanConsRenters))+xlab('')+ ylab('Mean monthly consumption expediture')+
# ggtitle('Consumption Expenditure by Year - Renters')

## p4 <-ggplot(data=matConsOwners) p5 <<- p2+ geom_line(aes(x=someyears,
## y=meanConsOwners))+xlab('')+ ylab('Mean monthly consumption expediture')+
## ggtitle('Consumption Expenditure by Year - Owners') p6
## <-ggplot(data=allConsumption) p7 <<- p6+ geom_line(aes(x=year, y=value,
## col=key))+ ylab('Mean household consumption (NIS/month)')+ xlab('')+
## ggtitle('Total Consumption by home ownership')+ geom_vline(xintercept = 2011)+
## geom_vline(xintercept = 2013) p8 <-ggplot(data=allNHC) p9 <<- p8+
## geom_line(aes(x=year, y=value, col=key))+ ylab('Mean household consumption
## (NIS/month)')+ xlab('')+ ggtitle('Non-housing Consumption by home ownership')+
## geom_vline(xintercept = 2011)+ geom_vline(xintercept = 2010)+
## geom_vline(xintercept = 2013) p10 <-ggplot(data=matIncome) p11 <<- p10+
## geom_line(aes(x=year, y=value, col=key))+ ylab('Mean Income (NIS/month)')+
## xlab('')+ ggtitle('Income by home ownership')+ geom_vline(xintercept = 2011)+
## geom_vline(xintercept = 2010)+ geom_vline(xintercept = 2013) #p9

# #pWeightedIncome1 namedPlots<-c('carBoxPlot', 'pIncome','pallIncome',
# 'p3','p5','p7','p9','p11', 'pWeightedConsumption1') preparedPlot <-
# c(carBoxPlot, pIncome,pallIncome, p3,p5,p7,p9,p11, pWeightedConsumption1 )

## return(preparedPlot) }else if (arg1==FALSE){ return(carBoxPlot)
## }else{return('Hello error 3009x7')} }