Comment obtenir un "densityplot" droit dans ggplot2?

Question

J'ai une base de données dans laquelle j'ai des valeurs de rappel pour 2 groupes de données différents. J'ai fait un diagramme de densité en utilisant le code ci-dessous, mais je suis confus au sujet de comment il ressemble. Pour un groupe (GE dans ce cas) le rappel est très élevé (toujours 1), dans le graphique je prévois un pic pointu et comparativement plus élevé (par rapport au groupe Epi) sur l'axe des x = 1 alors que ce n'est pas le cas graphique (voir photo ci-jointe).

commande I utilisé:

ggplot(epiGE, aes(x=Rec)) + geom_density(aes(group=Class, colour=Class, fill=Class), alpha=0.3) + theme(axis.title.x=element_blank(), axis.title.y=element_blank()) 

J'ai aussi essayé histogramme de ggplot2 mais aussi à l'axe x = 1 je ne suis pas la bonne distribution de GE groupe, comme barplot montre que les valeurs dans Epi groupe ayant Recall=1 sont plus par rapport au groupe GE.

ggplot(epiGE, aes(x=Rec)) + geom_histogram(aes(group=Class, colour=Class, fill=Class), alpha=0.3) + theme(axis.title.x=element_blank(), axis.title.y=element_blank()) 

Quelqu'un peut-il s'il vous plaît me guider ce que je fais mal ici ?? Je vous remercie.

Voici mon dput de données:

> dput(epiGE) 
structure(list(Class = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("Epi", "GE"), class = "factor"), 
    Rec = c(1, 1, 0.928571428571429, 1, 1, 1, 0.625, 1, 0.935897435897436, 
    1, 0.911764705882353, 1, 0.790697674418605, 1, 0.891891891891892, 
    1, 1, 1, 0.98019801980198, 1, 0.949367088607595, 1, 0.877551020408163, 
    1, 0.944444444444444, 1, 1, 1, 0.955445544554455, 1, 0.5, 
    1, 0.170731707317073, 1, 0.513513513513513, 1, 0, 1, 0.9, 
    1, 0.875, 1, 0.884615384615385, 1, 0.5, 1, 0.9, 1)), .Names = c("Class", 
"Rec"), class = "data.frame", row.names = c(NA, -48L)) 

Answer 1

Ceci est lié à la bande passante de lissage. Vous pouvez utiliser l'argument adjust pour ajuster la bande passante. Voici un exemple.

ggplot(epiGE, aes(x=Rec)) + 
    geom_density(aes(group=Class, colour=Class, fill=Class), alpha=0.3, adjust = 1/10) + 
    theme(axis.title.x=element_blank(), axis.title.y=element_blank()) 

Set adjust à 1/10 signifie que l'aide 1/10 de la bande passante par défaut.