data<-read.csv("D:/reserchdata/a111.csv",header = T)

library("ggplot2")

p<-ggplot(data,aes(x = X))

p +geom_density(color = "black", fill = "gray")

p +geom_density(aes(color = Y))

p +geom_density(aes(fill = Y), alpha=0.4)+

geom_vline(aes(xintercept= 0.5),linetype="dashed") +

scale_x_continuous(limits= c(-1.50, 1.70),breaks=seq(-2,2,0.5))+

labs(x ="change of craving", y = "percentage of participants",title = "KDE curve of responser",fill="group")+

theme(plot.title =element_text(hjust = 0.5))+

theme_bw()+

theme(panel.border= element_blank(),panel.grid.major =element_blank(),panel.grid.minor=element_blank(),axis.line =element_line(colour = "black"))