R/kobo_histo.R

In ElliottMess/KoboAnalyser: KoboAnalyser, data discovery and analysis for data collected through the KoboToolbox.

#' @name kobo_histo
#' @rdname kobo_histo
#' @title  Generate histograme for all integer questions
#'
#' @description  Automatically generate histogrammes for each of the integer questions in the dataset. ggplot2 is used.
#'
#' @param mainDir Path to the project's working directory: mainly for proper shiny app path
#'
#' @author Edouard Legoupil
#'
#' @examples
#' kobo_histo()
#'
#' @export kobo_histo
#'
#' @examples
#' \dontrun{
#' kobo_histo()
#' }
#'
#'

kobo_histo <- function(mainDir='') {
  if (mainDir==''){
    mainDir <- getwd()
  }

  source(paste0(mainDir,"/code/0-config.R"), local=TRUE)
  data <- read_excel(path.to.data, sheet=sheet)


  mainDirectory <- paste0(mainDir,"/out")
  subDir <- "/histo"
  if (file.exists(paste(mainDirectory, subDir, "/", sep = "/", collapse = "/"))) {
    cat("histo directory exists in out directory and is a directory.\n")
  } else if (file.exists(paste(mainDirectory, subDir, sep = "/", collapse = "/"))) {
    cat("histo directory exists in your out directory.\n")
    # you will probably want to handle this separately
  } else {
    cat("histo directory does not exist in your out directory - creating now!\n ")
    dir.create(file.path(mainDirectory, subDir))
  }


  selectdf <- dico[dico$type=="integer" | dico$type=="decimal" | dico$type=="calculate" &dico$name!=c("__version__","_version_"), c("fullname","listname","label","name","type")]


  ### Verify that those variable are actually in the original dataframe
  check <- as.data.frame(names(data))
  names(check)[1] <- "fullname"
  check$id <- row.names(check)
  selectdf <- join(x=selectdf, y=check, by="fullname",  type="left")
  selectdf <- selectdf[!is.na(selectdf$id), ]

  if (nrow(selectdf)==0){
    cat("There's no integer variables. \n")
  } else{

  selectinteger <- as.character(selectdf[, c("fullname")])
  data.integer <- data [selectinteger  ]

  selectfacet <- as.character(selectdf[selectdf$disaggregation!="" , c("fullname")])
  selectfacet <- selectfacet[!is.na(selectfacet)]


  ## force to data frame
  data.integer <- as.data.frame(data.integer)
  data.integer  <- kobo_label(data.integer, dico)
  wrapper <- function(x, ...)
  {
    paste(strwrap(x, ...), collapse = "\n")
  }
        for (i in 1:nrow(selectdf) ) {
         # for (i in 1:2 ) {
            # i <- 67
            variablename <- names(data.integer)[i]
            title <- attributes(data.integer)$variable.labels[i]

            ## Ensure that the variable is recognised as integer
            select.data.integer <- data.frame(as.numeric(na.omit(data.integer[ ,i])))
            #str(data.integer[ , i])

            totalanswer <- nrow(data.integer)

            count_replied <- (sum(!is.na(data.integer[,i ])))

            percentresponse <- paste(round((count_replied/totalanswer*100),digits=2),"%",sep="")

            theme_set(theme_gray(base_size = 18))


            # trendline on histogram by adding geom_density
            ggplot(data=select.data.integer, aes(select.data.integer)) +
              geom_histogram(aes(y =..density..), fill="#2a87c8", alpha = .6, binwidth=0.5) +
              geom_density(adjust=2) +
              scale_x_continuous(expand = c(0,0)) +
              ggtitle(wrapper(title,width=50))+
              labs(x="", y="Frequency")+
              theme(plot.title=element_text(face="bold", size=20),
                    plot.background = element_rect(fill = "transparent",colour = NA))
            ggsave(filename=paste(mainDir,"/out/histo/",variablename,"_histo.png",sep=""), width=10, height=10,units="in", dpi=300)

            cat(paste0(i, "- Generated density graphs for question: ", title , "\n"))
          }
  }
  cat(" \n")
  cat(" \n")
  cat(" ###########################################################\n")
  cat(" # The histograms for number questions were generated!     #\n")
  cat(" # You can find them in the folder 'out/histo'!            #\n")
  cat(" ###########################################################\n")


}
NULL