Changed paste0 line for Grouped Bar Analysis to refArea <- paste0(s$s[1])