{"id":4272,"date":"2023-07-12T09:26:38","date_gmt":"2023-07-12T09:26:38","guid":{"rendered":"https:\/\/statorials.org\/cn\/r%e4%b8%ad%e7%9a%84%e4%b8%89%e8%b7%af%e8%a1%a8\/"},"modified":"2023-07-12T09:26:38","modified_gmt":"2023-07-12T09:26:38","slug":"r%e4%b8%ad%e7%9a%84%e4%b8%89%e8%b7%af%e8%a1%a8","status":"publish","type":"post","link":"https:\/\/statorials.org\/cn\/r%e4%b8%ad%e7%9a%84%e4%b8%89%e8%b7%af%e8%a1%a8\/","title":{"rendered":"\u5982\u4f55\u5728 r \u4e2d\u521b\u5efa\u4e09\u5411\u8868\uff08\u9644\u793a\u4f8b\uff09"},"content":{"rendered":"

<\/p>\n

\n

\u4e09\u53d8\u91cf\u8868<\/strong>\u662f\u4e00\u79cd\u663e\u793a\u4e09\u4e2a\u5206\u7c7b\u53d8\u91cf\u7684\u9891\u7387\u7684\u8868\u3002<\/span><\/p>\n

\u5728 R \u4e2d\u521b\u5efa\u4e09\u6761\u76ee\u8868\u7684\u6700\u7b80\u5355\u65b9\u6cd5\u662f\u4f7f\u7528xtabs()<\/strong>\u51fd\u6570\uff1a<\/span><\/p>\n

 three_way <- xtabs(~var1 + var2 + var3, data=df)<\/strong><\/pre>\n
\u5982\u679c\u60f3\u66f4\u7d27\u51d1\u5730\u663e\u793a\u4e09\u8def\u6570\u7ec4\uff0c\u53ef\u4ee5\u4f7f\u7528ftable()<\/strong>\u51fd\u6570\uff1a<\/span><\/p>\n
 three_way_ftable <- ftable(three_way)<\/strong><\/pre>\n
\u6ce8\u610f<\/strong>\uff1a xtabs()<\/strong>\u548cftable()<\/strong>\u51fd\u6570\u5df2\u96c6\u6210\u5230 R \u6570\u636e\u5e93\u4e2d\u3002<\/span><\/p>\n
\u4ee5\u4e0b\u793a\u4f8b\u5c55\u793a\u4e86\u5982\u4f55\u5728\u5b9e\u8df5\u4e2d\u4f7f\u7528\u8fd9\u4e9b\u51fd\u6570\u5728 R \u4e2d\u521b\u5efa\u4e09\u5411\u8868\u3002<\/span><\/p>\n
\u793a\u4f8b\uff1a\u5982\u4f55\u5728 R \u4e2d\u521b\u5efa\u4e09\u5411\u8868<\/strong><\/span><\/h2>\n
\u5047\u8bbe\u6211\u4eec\u6709\u4ee5\u4e0b\u6570\u636e\u6846\uff0c\u5176\u4e2d\u5305\u542b\u6709\u5173\u5404\u4e2a\u7bee\u7403\u8fd0\u52a8\u5458\u7684\u4fe1\u606f\uff1a<\/span><\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team=c('A', 'A', 'A', 'A', 'A', 'B', 'B', 'B', 'B', 'B'),\n                 position=c('G', 'G', 'G', 'F', 'F', 'G', 'G', 'F', 'F', 'F'),\n                 starter=c('Yes', 'No', 'No', 'Yes', 'No',\n                           'Yes', 'No', 'Yes', 'Yes', 'No'),\n                 points=c(30, 28, 24, 24, 28, 14, 16, 20, 34, 29))\n\n#view data frame\n<\/span>df\n\n   team position starter points\n1 AG Yes 30\n2 AG No. 28\n3 AG No. 24\n4 AF Yes 24\n5 AF No. 28\n6 BG Yes 14\n7 BG No. 16\n8 BF Yes 20\n9 BF Yes 34\n10 BF No. 29\n<\/strong><\/pre>\n
\u5047\u8bbe\u6211\u4eec\u8981\u521b\u5efa\u4e00\u4e2a\u4e09\u5411\u8868\u6765\u57fa\u4e8e\u4e09\u4e2a\u53d8\u91cf\u663e\u793a\u73a9\u5bb6\u9891\u7387\uff1a team<\/strong> \u3001 position<\/strong>\u548cstarter<\/strong> \u3002<\/span><\/p>\n
\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528xtabs()<\/a>\u51fd\u6570\u6765\u521b\u5efa\u8fd9\u4e2a\u4e09\u5411\u6570\u7ec4\uff1a<\/span><\/p>\n
 #create three-way table\n<\/span>three_way <- xtabs(~ team + position + starter, data=df)\n\n#view three-way table\n<\/span>three_way\n\n, , starter = No\n\n    position\nteam FG\n   AT 12\n   B 1 1\n\n, , starter = Yes\n\n    position\nteam FG\n   At 1 1\n   B 2 1<\/strong><\/pre>\n
\u7ed3\u679c\u7684\u7b2c\u4e00\u4e2a\u8868\u663e\u793a\u4e86\u8d77\u59cb<\/strong>\u53d8\u91cf\u7b49\u4e8e No. \u7684\u7403\u961f<\/strong>\u548c\u4f4d\u7f6e<\/strong>\u7684\u7403\u5458\u9891\u7387\u3002<\/span><\/p>\n
\u7b2c\u4e8c\u4e2a\u8868\u663e\u793a\u4e86\u8d77\u59cb<\/strong>\u53d8\u91cf\u7b49\u4e8e\u201c\u662f\u201d\u7684\u7403\u961f<\/strong>\u548c\u4f4d\u7f6e<\/strong>\u7684\u7403\u5458\u9891\u7387\u3002<\/span><\/p>\n
\u5982\u679c\u9700\u8981\uff0c\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528ftable()<\/strong>\u51fd\u6570\u5c06\u8fd9\u4e9b\u6570\u7ec4\u201c\u5c55\u5e73\u201d\u4e3a\u5355\u4e2a\u6570\u7ec4\uff1a<\/span><\/p>\n
 #convert table to ftable\n<\/span>three_way_ftable <- ftable(three_way)\n\n#view ftable\n<\/span>three_way_fttable\n\n              starter No Yes\nteam position               \nAF 1 1\n     G 2 1\nBF 1 2\n     G 1 1\n<\/strong><\/pre>\n
\u751f\u6210\u7684\u4e09\u53d8\u91cf\u8868\u4ee5\u201c\u5e73\u9762\u201d\u683c\u5f0f\u663e\u793a\u4e09\u4e2a\u53d8\u91cf\u7684\u9891\u7387\u3002<\/span><\/p>\n
\u4f8b\u5982\uff0c\u6211\u4eec\u53ef\u4ee5\u770b\u5230\uff1a<\/span><\/p>\n