La fonction as.data.frame()<\/b> permet de passer d\u2019un tableau crois\u00e9 \u00e0 un data.frame.<\/p>\n
\u00a0<\/p>\n
sechage <- factor(c(rep(\"lent\",5),rep(\"rapide\",5)))\n\nmarque <- factor(c(rep(\"Mer\",3),rep(\"Cim\",3),rep(\"vex\",4)))\n\n\u00a0\n\nciment <- cbind.data.frame(sechage,marque)\n\n\u00a0\n\ntab_croise<-table(ciment$sechage,ciment$marque) #On cr\u00e9e un tableau crois\u00e9\n\n\u00a0\n\ntab_croise\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\n\n\u00a0\n\n\u00a0\n\nas.data.frame(tab_croise) # On reconvertie le tableau crois\u00e9 en data.frame\n\n<\/code><\/pre>\n\u00a0<\/p>\n
On obtient\u00a0:<\/p>\n
as.data.frame(tab_croise)\n\n\u00a0\u00a0\u00a0 Var1 Var2 Freq\n\n1\u00a0\u00a0 lent\u00a0 Cim\u00a0\u00a0\u00a0 2\n\n2 rapide\u00a0 Cim\u00a0\u00a0\u00a0 1\n\n3\u00a0\u00a0 lent\u00a0 Mer\u00a0\u00a0\u00a0 3\n\n4 rapide\u00a0 Mer\u00a0\u00a0\u00a0 0\n\n5\u00a0\u00a0 lent\u00a0 vex\u00a0\u00a0\u00a0 0\n\n6 rapide\u00a0 vex\u00a0\u00a0\u00a0 4\n\n<\/code><\/pre>\n\u00a0<\/p>\n","protected":false},"excerpt":{"rendered":"
La fonction as.data.frame() permet de passer d\u2019un tableau crois\u00e9 \u00e0 un data.frame. \u00a0 sechage <- factor(c(rep(\u00ab\u00a0lent\u00a0\u00bb,5),rep(\u00ab\u00a0rapide\u00a0\u00bb,5))) marque <- factor(c(rep(\u00ab\u00a0Mer\u00a0\u00bb,3),rep(\u00ab\u00a0Cim\u00a0\u00bb,3),rep(\u00ab\u00a0vex\u00a0\u00bb,4))) \u00a0 ciment <- cbind.data.frame(sechage,marque) \u00a0 tab_croise<-table(ciment$sechage,ciment$marque) #On cr\u00e9e un tableau crois\u00e9 \u00a0 tab_croise \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 \u00a0 as.data.frame(tab_croise) # On reconvertie le tableau crois\u00e9 en data.frame \u00a0 On obtient\u00a0: as.data.frame(tab_croise) \u00a0\u00a0\u00a0 Var1 Var2 Freq 1\u00a0\u00a0 lent\u00a0 Cim\u00a0\u00a0\u00a0 2 2 rapide\u00a0 Cim\u00a0\u00a0\u00a0 1 3\u00a0\u00a0 lent\u00a0 Mer\u00a0\u00a0\u00a0 3 4 rapide\u00a0 Mer\u00a0\u00a0\u00a0 0 5\u00a0\u00a0 lent\u00a0 vex\u00a0\u00a0\u00a0 0 6 rapide\u00a0 vex\u00a0\u00a0\u00a0 4 \u00a0Read More →<\/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":[23],"tags":[],"class_list":{"0":"entry","1":"post","2":"publish","3":"author-helene","4":"post-3111","6":"format-standard","7":"category-transformation-de-donnees"},"acf":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p9O7Sx-Ob","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3111","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=3111"}],"version-history":[{"count":2,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3111\/revisions"}],"predecessor-version":[{"id":4270,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/posts\/3111\/revisions\/4270"}],"wp:attachment":[{"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/media?parent=3111"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/categories?post=3111"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/thinkr.fr\/abcdr\/wp-json\/wp\/v2\/tags?post=3111"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}