Comment l'ombre d'une région en vertu d'une courbe à l'aide de ggplot2

J'ai essayé d'utiliser ggplot2 pour produire un tracé similaire à ce R graphique:

xv<-seq(0,4,0.01)
yv<-dnorm(xv,2,0.5) 
plot(xv,yv,type="l") 
polygon(c(xv[xv<=1.5],1.5),c(yv[xv<=1.5],yv[xv==0]),col="grey")

C'est que j'ai obtenu avec ggplot2:

x<-seq(0.0,0.1699,0.0001)   
ytop<-dnorm(0.12,0.08,0.02)
MyDF<-data.frame(x=x,y=dnorm(x,0.08,0.02))
p<-qplot(x=MyDF$x,y=MyDF$y,geom="line") 
p+geom_segment(aes(x=0.12,y=0,xend=0.12,yend=ytop))

Je voudrais de l'ombre à la région de la queue au-delà de x=0.12. Comment pourrais-je faire cela en utilisant ggplot ou qplot?

Largement, comment fait-on de l'ombre tout sous-ensemble sous la courbe, si une queue, ou entre deux arbitraire lignes divisant la région en zones distinctes?

Merci pour tous les conseils.

InformationsquelleAutor Tim Erickson | 2012-09-14
  1. 16

    Créer un polygone de la zone que vous souhaitez ombre

    #First subst the data and add the coordinates to make it shade to y = 0
shade <- rbind(c(0.12,0), subset(MyDF, x > 0.12), c(MyDF[nrow(MyDF), "X"], 0))

#Then use this new data.frame with geom_polygon
 p + geom_segment(aes(x=0.12,y=0,xend=0.12,yend=ytop)) +
     geom_polygon(data = shade, aes(x, y))

    Comment l'ombre d'une région en vertu d'une courbe à l'aide de ggplot2

    • La réponse aide d'une autre manière trop. Je ne pensais pas à la mode de ggplot2 et de créer explicitement un sous-ensemble de données. J'essayais de faire ce travail à partir d'un purement graphique de l'objet point de vue.
    • Je pense que vous vouliez dire (notez l'emplacement de la dernière parenthèse fermante)... de l'ombre <- rbind(c(0.12,0), sous-ensemble(MyDF, x > 0.12), c(MyDF[nrow(MyDF), "X"], 0))
    • Vous avez raison, je vais modifier la réponse
    InformationsquelleAutor Luciano Selzer