{"id":609,"date":"2011-11-09T12:28:32","date_gmt":"2011-11-09T11:28:32","guid":{"rendered":"https:\/\/abcdr.guyader.pro\/?p=609"},"modified":"2018-04-07T23:59:16","modified_gmt":"2018-04-07T22:59:16","slug":"comment-faire-une-boite-a-moustache-avec-r-boxplot","status":"publish","type":"post","link":"https:\/\/thinkr.fr\/abcdr\/comment-faire-une-boite-a-moustache-avec-r-boxplot\/","title":{"rendered":"Comment faire une bo\u00eete \u00e0 moustache avec R ?: Boxplot"},"content":{"rendered":"<p>Vous voulez repr\u00e9senter vos donn\u00e9es avec la bo\u00eete \u00e0 moustache de Mr Tukey (boxplot)? Rien de plus facile avec R.<\/p>\n<pre><code><br \/><br \/>#jeu de donn\u00e9es fictif pour exemple<br \/><br \/>a&lt;-c(1,1,1,5,5,5,5,6,6,8,8,20,30)<br \/>b&lt;-c(0.5,4,5,6,6,6,6,6,7,7,7,7,8)<br \/><br \/>#tra\u00e7ons les boxplots de base avec la fonction boxplot<br \/><br \/>boxplot(a)<br \/>boxplot(b)<br \/><br \/>#on enl\u00e8ve les outliers, en mettant outline=FALSE<br \/><br \/>boxplot(a,outline=FALSE)<br \/>boxplot(b,outline=FALSE)<br \/><br \/>#pour les mettre \u00e0 l'horizontal<br \/><br \/>boxplot(a,horizontal=TRUE)<br \/>boxplot(b,horizontal=TRUE)<br \/><br \/>#changer de couleur<br \/><br \/>boxplot(a,border=\"blue\")<br \/>boxplot(b,border=\"purple\")<br \/><br \/>#nouveau jeu de donn\u00e9es plus complexe<br \/><br \/>n&lt;-c(1,1,1,5,5,5,5,6,6,8,8,20,30,0.5,4,5,6,6,6,6,6,7,7,7,7,8,3,5,8,8,8,8,8,9,9,9,9,11,12)<br \/>m&lt;-c(rep('A',13),rep('B',13),rep('C',13))<br \/><br \/>data&lt;-data.frame(N=n,M=m)<br \/><br \/>#on visualise le tableau ainsi cr\u00e9\u00e9<br \/>data<br \/>summary(data)<br \/><br \/>#On a 13 mesures pour chaque modalit\u00e9 (A,B,C)<br \/>#comment avoir les boxplots pour chaque modalit\u00e9?<br \/><br \/>boxplot(data$N~data$M)<br \/><br \/>#on enl\u00e8ve les outliers <br \/><br \/>boxplot(data$N~data$M,outline=FALSE)<br \/><br \/>#on change les couleurs avec l'argument border<br \/><br \/>boxplot(data$N~data$M,outline=FALSE,border=c(\"blue\",\"purple\",\"green\"))<br \/><br \/>#on change les noms avec names: A devient mesure1, B mesure2, C mesure3<br \/><br \/>boxplot(data$N~data$M,outline=FALSE, names=c(\"mesure1\",\"mesure2\",\"mesure3\"))<br \/><br \/>#on ajoute les l\u00e9gendes<br \/><br \/>boxplot(data$N~data$M,xlab=\"l\u00e9gende x\",ylab=\"l\u00e9gende y\",main=\"boxplot\")<br \/><br \/>#on colore les bo\u00eetes avec l'argument col<br \/><br \/>boxplot(data$N~data$M,outline=FALSE,col=c(\"blue\",\"purple\",\"green\"))<br \/><br \/> #on change la largeur des moustache avec staplewex<br \/><br \/>x11()<br \/>par(mfrow=c(2,2))<br \/>boxplot(data$N~data$M,staplewex=1,outline=FALSE,main=\"1\")<br \/>boxplot(data$N~data$M,staplewex=0.5,outline=FALSE,main=\"0.5\")<br \/>boxplot(data$N~data$M,staplewex=2,outline=FALSE,main=\"2\")<br \/>\u00a0<br \/>\u00a0<br \/>#on joue sur la proximit\u00e9 des bo\u00eetes avec boxwex<br \/><br \/>x11()<br \/>par(mfrow=c(2,2))<br \/>boxplot(data$N~data$M,boxwex=1,outline=FALSE,main=\"1\")<br \/>boxplot(data$N~data$M,boxwex=0.1,outline=FALSE,main=\"0.1\")<br \/>boxplot(data$N~data$M,boxwex=0.5,outline=FALSE,main=\"0.5\")<br \/><br \/> <br \/><br \/><\/code><\/pre>\n<p>On peut modifier d&rsquo;autres param\u00e8tres pour c\u00e9er des boxplot, consultez ?boxplot pour \u00e7a!<br \/>Amusez vous bien!<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Vous voulez repr\u00e9senter vos donn\u00e9es avec la bo\u00eete \u00e0 moustache de Mr Tukey (boxplot)? Rien de plus facile avec R. #jeu de donn\u00e9es fictif pour exemplea&lt;-c(1,1,1,5,5,5,5,6,6,8,8,20,30)b&lt;-c(0.5,4,5,6,6,6,6,6,7,7,7,7,8)#tra\u00e7ons les boxplots de base avec la fonction boxplotboxplot(a)boxplot(b)#on enl\u00e8ve les outliers, en mettant outline=FALSEboxplot(a,outline=FALSE)boxplot(b,outline=FALSE)#pour les mettre \u00e0 l&rsquo;horizontalboxplot(a,horizontal=TRUE)boxplot(b,horizontal=TRUE)#changer de couleurboxplot(a,border=\u00a0\u00bbblue\u00a0\u00bb)boxplot(b,border=\u00a0\u00bbpurple\u00a0\u00bb)#nouveau jeu de donn\u00e9es plus complexen&lt;-c(1,1,1,5,5,5,5,6,6,8,8,20,30,0.5,4,5,6,6,6,6,6,7,7,7,7,8,3,5,8,8,8,8,8,9,9,9,9,11,12)m&lt;-c(rep(&lsquo;A&rsquo;,13),rep(&lsquo;B&rsquo;,13),rep(&lsquo;C&rsquo;,13))data&lt;-data.frame(N=n,M=m)#on visualise le tableau ainsi cr\u00e9\u00e9datasummary(data)#On a 13 mesures pour chaque modalit\u00e9 (A,B,C)#comment avoir les boxplots pour chaque modalit\u00e9?boxplot(data$N~data$M)#on enl\u00e8ve les outliers boxplot(data$N~data$M,outline=FALSE)#on change les couleurs avec l&rsquo;argument borderboxplot(data$N~data$M,outline=FALSE,border=c(\u00ab\u00a0blue\u00a0\u00bb,\u00a0\u00bbpurple\u00a0\u00bb,\u00a0\u00bbgreen\u00a0\u00bb))#on change les noms avec names: A devient mesure1, B mesure2, C mesure3boxplot(data$N~data$M,outline=FALSE, names=c(\u00ab\u00a0mesure1&Prime;,\u00a0\u00bbmesure2&Prime;,\u00a0\u00bbmesure3&Prime;))#on ajoute les l\u00e9gendesboxplot(data$N~data$M,xlab=\u00a0\u00bbl\u00e9gende x\u00a0\u00bb,ylab=\u00a0\u00bbl\u00e9gende y\u00a0\u00bb,main=\u00a0\u00bbboxplot\u00a0\u00bb)#on colore les bo\u00eetes avec l&rsquo;argument colboxplot(data$N~data$M,outline=FALSE,col=c(\u00ab\u00a0blue\u00a0\u00bb,\u00a0\u00bbpurple\u00a0\u00bb,\u00a0\u00bbgreen\u00a0\u00bb)) #on change<a class=\"more-link\" href=\"https:\/\/thinkr.fr\/abcdr\/comment-faire-une-boite-a-moustache-avec-r-boxplot\/\">Read More &rarr;<\/a><\/p>\n","protected":false},"author":6,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"content-type":"","rop_custom_images_group":[],"rop_custom_messages_group":[],"rop_publish_now":"initial","rop_publish_now_accounts":{"twitter_399453572_399453572":""},"rop_publish_now_history":[],"rop_publish_now_status":"pending","jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[9],"tags":[],"class_list":{"0":"entry","1":"post","2":"publish","3":"author-melen","4":"post-609","6":"format-standard","7":"category-graphique"},"acf":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p9O7Sx-9P","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/609","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/users\/6"}],"replies":[{"embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/comments?post=609"}],"version-history":[{"count":2,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/609\/revisions"}],"predecessor-version":[{"id":4103,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/609\/revisions\/4103"}],"wp:attachment":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/media?parent=609"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/categories?post=609"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/tags?post=609"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}