{"id":3109,"date":"2015-07-10T12:43:47","date_gmt":"2015-07-10T11:43:47","guid":{"rendered":"https:\/\/abcdr.guyader.pro\/?p=3109"},"modified":"2018-04-08T00:01:55","modified_gmt":"2018-04-07T23:01:55","slug":"comment-obtenir-un-tableau-croise-table-xtabs","status":"publish","type":"post","link":"https:\/\/thinkr.fr\/abcdr\/comment-obtenir-un-tableau-croise-table-xtabs\/","title":{"rendered":"Comment obtenir un tableau crois\u00e9 ? : table, xtabs"},"content":{"rendered":"<p>Les fonctions <b>table() <\/b>et<b> xtabs()<\/b> permettent d&rsquo;obtenir directement un tableau crois\u00e9 \u00e0 partir des colonnes d&rsquo;un data.frame<\/p>\n<pre><code><br \/>sechage &lt;- factor(c(rep(\"lent\",5),rep(\"rapide\",5)))\n\nmarque &lt;- factor(c(rep(\"Mer\",3),rep(\"Cim\",3),rep(\"vex\",4)))\n\n\u00a0\n\nciment &lt;- cbind.data.frame(sechage,marque)\n\n#On colle les deux variables pour obtenir un data.frame<br \/>\u00a0\n\nxtabs(~sechage+marque,data=ciment)\u00a0\n\ntable(ciment$sechage,ciment$marque)\n\n#Les fonctions table() et xtabs() sont \u00e9quivalentes\n\n<\/code><\/pre>\n<p>On obtient\u00a0:<\/p>\n<pre><code><br \/> table(ciment$sechage,ciment$marque) \u00a0\n\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Cim Mer vex\n\n\u00a0 lent\u00a0\u00a0\u00a0\u00a0 2\u00a0\u00a0 3\u00a0\u00a0 0\n\n\u00a0 rapide\u00a0\u00a0 1\u00a0\u00a0 0\u00a0\u00a0 4<br \/> <br \/><\/code><\/pre>\n<p>\u00a0<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Les fonctions table() et xtabs() permettent d&rsquo;obtenir directement un tableau crois\u00e9 \u00e0 partir des colonnes d&rsquo;un data.frame sechage &lt;- factor(c(rep(\u00ab\u00a0lent\u00a0\u00bb,5),rep(\u00ab\u00a0rapide\u00a0\u00bb,5))) marque &lt;- factor(c(rep(\u00ab\u00a0Mer\u00a0\u00bb,3),rep(\u00ab\u00a0Cim\u00a0\u00bb,3),rep(\u00ab\u00a0vex\u00a0\u00bb,4))) \u00a0 ciment &lt;- cbind.data.frame(sechage,marque) #On colle les deux variables pour obtenir un data.frame\u00a0 xtabs(~sechage+marque,data=ciment)\u00a0 table(ciment$sechage,ciment$marque) #Les fonctions table() et xtabs() sont \u00e9quivalentes On obtient\u00a0: table(ciment$sechage,ciment$marque) \u00a0 \u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Cim Mer vex \u00a0 lent\u00a0\u00a0\u00a0\u00a0 2\u00a0\u00a0 3\u00a0\u00a0 0 \u00a0 rapide\u00a0\u00a0 1\u00a0\u00a0 0\u00a0\u00a0 4 \u00a0<a class=\"more-link\" href=\"https:\/\/thinkr.fr\/abcdr\/comment-obtenir-un-tableau-croise-table-xtabs\/\">Read More &rarr;<\/a><\/p>\n","protected":false},"author":13,"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":[8,12,23],"tags":[],"class_list":{"0":"entry","1":"post","2":"publish","3":"author-helene","4":"post-3109","6":"format-standard","7":"category-fonctions-utiles","8":"category-manipulation-de-donnees","9":"category-transformation-de-donnees"},"acf":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p9O7Sx-O9","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3109","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\/13"}],"replies":[{"embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/comments?post=3109"}],"version-history":[{"count":2,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3109\/revisions"}],"predecessor-version":[{"id":4271,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3109\/revisions\/4271"}],"wp:attachment":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/media?parent=3109"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/categories?post=3109"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/tags?post=3109"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}