{"id":521,"date":"2011-11-08T12:06:44","date_gmt":"2011-11-08T11:06:44","guid":{"rendered":"https:\/\/abcdr.guyader.pro\/?p=521"},"modified":"2018-04-07T23:59:09","modified_gmt":"2018-04-07T22:59:09","slug":"comment-tracer-un-graphique-a-deux-ordonnees-dans-r","status":"publish","type":"post","link":"https:\/\/thinkr.fr\/abcdr\/comment-tracer-un-graphique-a-deux-ordonnees-dans-r\/","title":{"rendered":"Comment tracer un graphique \u00e0 deux ordonn\u00e9es dans R ?"},"content":{"rendered":"<p>Il existe plusieurs fa\u00e7ons de faire un graphique avec deux ordonn\u00e9es. En voici une qui utilise les outils graphiques de base<\/p>\n<pre><code> <br \/> # Donn\u00e9es d'exemple (peu importe...)<br \/>times&lt;-seq(0,3000)<br \/>p&lt;- 0.002197451 * exp(- 0.0009076665 *times)<br \/>b1&lt;- 7.376812e-08<br \/>b2&lt;-0.2652811<br \/>b3&lt;- 1986.235<br \/>s&lt;-b1*exp(-0.5*(log(times\/b3)\/b2)^2)<br \/># On ouvre une nouvelle fen\u00eatre plot.new()<br \/># On choisit les param\u00e8tres de la fen\u00eatre, voir ?par, ici mar correspond aux marges par(mar=c(5,4,3,4))<br \/># On met le premier graphique en d\u00e9finissant les limites des axes<br \/>plot.new()<br \/>plot.window(xlim=c(0,3000),ylim=c(0,0.0022))<br \/><br \/>lines(p~times,type='l',col='burlywood1',lwd=3)<br \/># on ajoute les axes et leurs l\u00e9gendes<br \/>axis(1)<br \/>axis(2)<br \/>title(xlab=\"time\")<br \/>title(ylab=\"rp\")<br \/># On superpose le graphique avec un axe des ordonn\u00e9es diff\u00e9rent qui sera \u00e0 droite du graphique (axis(4))<br \/>plot.window(xlim=c(0,3000),ylim=c(0,8e-08))<br \/>lines(s~times,type='l',col='burlywood3',lwd=3)<br \/>axis(4)<br \/>#titre du graphique<br \/>title(main=\"force of infection\")<br \/>#l\u00e9gende de l'ordonn\u00e9e n\u00b02<br \/>mtext(\"rs\",side=4,line=2.5)<br \/>#on termine le graphique<br \/>box() <br \/><br \/><\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Il existe plusieurs fa\u00e7ons de faire un graphique avec deux ordonn\u00e9es. En voici une qui utilise les outils graphiques de base # Donn\u00e9es d&rsquo;exemple (peu importe&#8230;)times&lt;-seq(0,3000)p&lt;- 0.002197451 * exp(- 0.0009076665 *times)b1&lt;- 7.376812e-08b2&lt;-0.2652811b3&lt;- 1986.235s&lt;-b1*exp(-0.5*(log(times\/b3)\/b2)^2)# On ouvre une nouvelle fen\u00eatre plot.new()# On choisit les param\u00e8tres de la fen\u00eatre, voir ?par, ici mar correspond aux marges par(mar=c(5,4,3,4))# On met le premier graphique en d\u00e9finissant les limites des axesplot.new()plot.window(xlim=c(0,3000),ylim=c(0,0.0022))lines(p~times,type=&rsquo;l&rsquo;,col=&rsquo;burlywood1&prime;,lwd=3)# on ajoute les axes et leurs l\u00e9gendesaxis(1)axis(2)title(xlab=\u00a0\u00bbtime\u00a0\u00bb)title(ylab=\u00a0\u00bbrp\u00a0\u00bb)# On superpose le graphique avec un axe des ordonn\u00e9es diff\u00e9rent qui sera \u00e0 droite du graphique (axis(4))plot.window(xlim=c(0,3000),ylim=c(0,8e-08))lines(s~times,type=&rsquo;l&rsquo;,col=&rsquo;burlywood3&prime;,lwd=3)axis(4)#titre du graphiquetitle(main=\u00a0\u00bbforce of infection\u00a0\u00bb)#l\u00e9gende de l&rsquo;ordonn\u00e9e n\u00b02mtext(\u00ab\u00a0rs\u00a0\u00bb,side=4,line=2.5)#on termine le graphiquebox()<a class=\"more-link\" href=\"https:\/\/thinkr.fr\/abcdr\/comment-tracer-un-graphique-a-deux-ordonnees-dans-r\/\">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-521","6":"format-standard","7":"category-graphique"},"acf":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p9O7Sx-8p","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/521","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=521"}],"version-history":[{"count":2,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/521\/revisions"}],"predecessor-version":[{"id":4094,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/521\/revisions\/4094"}],"wp:attachment":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/media?parent=521"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/categories?post=521"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/tags?post=521"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}