ggplot(combinbed,aes(x=value, fill= dataset)) + geom_histogram(aes(y=0.5*..density..), alpha=0.5,position=\'identity\',binwidth=0.2)