Pour ajouter des cercles \u00e0 un graphiques (ou simplement tracer des cercles) vous pouvez utiliser la fonction symbols qui permet d’ailleurs de tracer \u00e9galement des carr\u00e9s, rectangles, \u00e9toiles etc…
Un petit exemple pour les cercles:<\/p>\n
<\/p>\n
# coordonn\u00e9es du centre des cercles
ax<-c(20,20,20,80,80,80)
by<-c(80,20,20,80,20,20)
#taille
s<-c(1,1,2,1,1,2)
#couleur
couleur<-c(\"black\",\"black\",\"grey\",\"blue\",\"green\",\"grey\")
#on trace les cercles sur un graphique
symbols(ax,by,circles=s,inches=1,fg=couleur,xlim=c(0,100),ylim=c(0,100),lwd=2.5)
#pour le fun on ajoute un carr\u00e9 en rouge
symbols(50,50,squares=10,inches=1,fg=\"red\",add=TRUE,lwd=2.5)
<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"Pour ajouter des cercles \u00e0 un graphiques (ou simplement tracer des cercles) vous pouvez utiliser la fonction symbols qui permet d’ailleurs de tracer \u00e9galement des carr\u00e9s, rectangles, \u00e9toiles etc…Un petit exemple pour les cercles: # coordonn\u00e9es du centre des cerclesax<-c(20,20,20,80,80,80)by<-c(80,20,20,80,20,20)#tailles<-c(1,1,2,1,1,2)#couleurcouleur<-c(\u00ab\u00a0black\u00a0\u00bb,\u00a0\u00bbblack\u00a0\u00bb,\u00a0\u00bbgrey\u00a0\u00bb,\u00a0\u00bbblue\u00a0\u00bb,\u00a0\u00bbgreen\u00a0\u00bb,\u00a0\u00bbgrey\u00a0\u00bb)#on trace les cercles sur un graphiquesymbols(ax,by,circles=s,inches=1,fg=couleur,xlim=c(0,100),ylim=c(0,100),lwd=2.5) #pour le fun on ajoute un carr\u00e9 en rouge symbols(50,50,squares=10,inches=1,fg=\u00a0\u00bbred\u00a0\u00bb,add=TRUE,lwd=2.5)Read More →<\/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-1778","6":"format-standard","7":"category-graphique"},"acf":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p9O7Sx-sG","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/1778","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=1778"}],"version-history":[{"count":2,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/1778\/revisions"}],"predecessor-version":[{"id":4210,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/1778\/revisions\/4210"}],"wp:attachment":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/media?parent=1778"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/categories?post=1778"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/tags?post=1778"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}