ggplot3 <- function(inputData, zoneName) {

assign(
paste("plot3_",zoneName,sep=""), 

ggplot(data=inputData,aes(x=factor(operativeTemp,levels=c(">25",">26",">28"))))+
layer(
	geom = "histogram",
	geom_params = list(color = "red") 
#fill=c("#135CAB","#487ABE","#7EA4D8","#FEFEFE","#F1EC17","#FEC50E"))
)+
#geom_bar(stat="identity"),
#aes(x=factor(Temp_diff,levels=c("-6","-4","-2","comf","+2","+4","+6","+8","+10")))

#layer(
#        geom = "bar",
#        geom_params = list(color = "black", fill=c("#135CAB","#487ABE","#7EA4D8","#FEFEFE","#F1EC17","#FEC50E","#F6913A","#EF611A","#EA3A43"))
#),

#scale_fill_manual(
#	values = c(
#		"+10"="#EA3A43",
#		"+8"="#EF611A",
#		"+6"="#F6913A",
#		"+4"="#FEC50E",
#		"+2"="#F1EC17",
#		"comf"="#FEFEFE",
#		"-2"="#7EA4D8",
#		"-4"="#487ABE",
#		"-6"="#135CAB")
#)+
scale_y_continuous(limits = c(0, 8000))+
coord_flip(),
envir = .GlobalEnv)}