2016-07-21 1 views
0

Je suis en train de tracer des statistiques de résumé devant des points geom_points individuels, mais je n'arrive pas à comprendre comment ajouter de la gigue aux tracés. Je pense que le problème est que j'utilise déjà l'argument position pour éloigner les points d'eau High et Low l'un de l'autre.Comment ajouter jitter à geom_point lorsque vous utilisez déjà dodge

waterSymPop_p <- ggplot(aes(x = SymPop, y = Finish, fill = Water, color = Water), data = xanFull) + 
    geom_point(position = position_dodge(width = 0.9)) + 
    stat_summary(fun.data = "mean_cl_normal", geom = "pointrange", position = position_dodge(width = 0.9)) + 
    coord_flip() 

est ici l'intrigue qui produit (évidemment pas fini avec le schéma de couleurs, etc.) enter image description here

Je voudrais point être légèrement vacillant au sein de chaque groupe de points (et non en ligne droite ligne). Merci pour l'aide!


Réponse: utiliser position_jitterdodge

Code modifié et nouvelle figure:

ggplot(aes(x = SymPop, y = Finish, fill = Water, color = Water), data = xanFull) + 
    geom_point(position = position_jitterdodge(dodge.width = 0.9, jitter.width = 0.2)) + 
    stat_summary(fun.data = "mean_cl_normal", geom = "pointrange", position = position_dodge(width = 0.9)) + 
    coord_flip() 

enter image description here

+1

vous dire une gigue esquiver http://docs.ggplot2.org/current/position_jitterdodge.html – Drey

+0

Génial! Je savais que ce serait quelque chose de simple. Je vais modifier le poste pour refléter la solution. Merci! – jwb4

+0

@ jwb4 Vous devriez ajouter votre réponse comme réponse ci-dessous plutôt que dans la question. Il n'y a rien de mal à le faire, et vous pouvez le faire upvoted, et la question peut être marquée comme une réponse. – beroe

Répondre

0

Drey a répondu à cette.

Réponse: utiliser position_jitterdodge

Code modifié et nouvelle figure:

ggplot(aes(x = SymPop, y = Finish, fill = Water, color = Water), data = xanFull) + 
    geom_point(position = position_jitterdodge(dodge.width = 0.9, jitter.width = 0.2)) + 
    stat_summary(fun.data = "mean_cl_normal", geom = "pointrange", position = position_dodge(width = 0.9)) + 
    coord_flip() 

enter image description here