этикетка зоны приема и приема

Question

Я строю следующий график, но метки принятия и отклонения выглядят не очень хорошо, и я все равно попробовал, но ничего

p1 <- ggplot(data = data.frame(x = c(0, 4)), aes(x))
p1<-p1+stat_function(fun = dnorm, n = 49, args =list(mean = 2, sd = 3/7),geom = "area",fill="blue2",alpha=0.5,aes(color="aceptacion"))
p1<-p1 +stat_function(fun = dnorm, args = list(mean = 2, sd = 3/7), xlim = c(2.905, 4),geom ="area", fill = "red", alpha = 0.5,aes(color="rechazo")) 
p1

введите описание изображения здесь

Как исправить?

Answer 1

Попробуйте это

mycolor<- c("blue2","red")
myvalues <- c("aceptacion","rechazo")
df <- data.frame(x = c(0, 4))
p1 <- ggplot(data = df, aes(x))
p1 <- p1+stat_function(fun = dnorm, n = 49, args =list(mean = 2, sd = 3/7),xlim = c(0, 2.905) ,geom = "area",fill="blue2",alpha=0.5) 
p1 <- p1 +stat_function(fun = dnorm, args = list(mean = 2, sd = 3/7), xlim = c(2.905, 4),geom ="area", fill = "red") 
p1 <- p1 + aes(color=myvalues)
p1 <- p1 + scale_color_manual(name="", values=mycolor)
p1 <- p1 +  guides(color= guide_legend(override.aes=list(fill=mycolor)))
p1

Вы получите следующий результат:

вывод