ggplot4 <- function(inputData, zoneName) {
assign(
paste("plot4_",zoneName,sep=""), 
ggplot(data=inputData,aes(x=factor(Temp_diff,levels=c("-6","-4","-2","comf","+2","+4","+6","+8","+10"))))+
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)}