R/drawValueBoxPlot.r

In tambora-org/tamboRapi:

source("R/tmbImportPackages.R")

installDrawPackages <- function() {
  # define needed packages
  packages <- c("extrafont", "ggmap", "ggplot2")
  tmbImportPackages(packages)
}

#' Draw summary of all tambora data to a map
#'
#' This function allows you to draw data inquired from tambora.org to a map
#' @param tamboraData, i.e. as inquired by function fromTambora()
#' @keywords tambora.org map visualisation
#' @export
#' @examples
#' data<-fromTambora(); drawWorldMapAll(data)

drawValueBoxPlot <- function(tamboraData) {
  installDrawPackages()
  
  mean_index <- aggregate(tamboraData[,'si_average'], list(tamboraData$begin_year), mean)

  #match to two columns with different length by machting criteria
  data$mean <- mean_index[match(tamboraData$begin_year, mean_index$Group.1), 'x']

  ggplot(aes(y = si_average, x = begin_year), data = tamboraData, x)+ 
    labs(fill= "Index", x = "Year", y = "Temperature Index", title = "")+
    geom_boxplot(aes(fill=mean, group = cut_width(begin_year, 1)), outlier.alpha = 0.1)+
    scale_y_continuous(breaks=c(-3,-2,-1,0,1,2,3))+
    scale_fill_gradient2(low="blue", mid="green", high="red", limits=c(-3,+3))+
    geom_jitter(size = 0.5,  width = 0.5, height = 0.25)+
    geom_smooth()
}