{"id":4269,"date":"2023-07-12T09:26:38","date_gmt":"2023-07-12T09:26:38","guid":{"rendered":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%b4-3%e1%84%87%e1%85%a1%e1%86%bc%e1%84%92%e1%85%a3%e1%86%bc-%e1%84%90%e1%85%a6%e1%84%8b%e1%85%b5%e1%84%87%e1%85%b3%e1%86%af\/"},"modified":"2023-07-12T09:26:38","modified_gmt":"2023-07-12T09:26:38","slug":"r%e1%84%8b%e1%85%b4-3%e1%84%87%e1%85%a1%e1%86%bc%e1%84%92%e1%85%a3%e1%86%bc-%e1%84%90%e1%85%a6%e1%84%8b%e1%85%b5%e1%84%87%e1%85%b3%e1%86%af","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/r%e1%84%8b%e1%85%b4-3%e1%84%87%e1%85%a1%e1%86%bc%e1%84%92%e1%85%a3%e1%86%bc-%e1%84%90%e1%85%a6%e1%84%8b%e1%85%b5%e1%84%87%e1%85%b3%e1%86%af\/","title":{"rendered":"R\uc5d0\uc11c 3\ubc29\ud5a5 \ud14c\uc774\ube14\uc744 \ub9cc\ub4dc\ub294 \ubc29\ubc95(\uc608\uc81c \ud3ec\ud568)"},"content":{"rendered":"

<\/p>\n

\n

\uc0bc\ubcc0\ub7c9 \ud45c\ub294<\/strong> \uc138 \uac00\uc9c0 \ubc94\uc8fc\ud615 \ubcc0\uc218\uc758 \ube48\ub3c4\ub97c \ud45c\uc2dc\ud558\ub294 \ud45c \uc720\ud615\uc785\ub2c8\ub2e4.<\/span><\/p>\n

R\uc5d0\uc11c \ud56d\ubaa9\uc774 3\uac1c\uc778 \ud14c\uc774\ube14\uc744 \ub9cc\ub4dc\ub294 \uac00\uc7a5 \uc26c\uc6b4 \ubc29\ubc95\uc740 xtabs()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\ub294 \uac83\uc785\ub2c8\ub2e4.<\/span><\/p>\n

 three_way <- xtabs(~var1 + var2 + var3, data=df)<\/strong><\/pre>\n
 3\ubc29\ud5a5 \ubc30\uc5f4\uc744 \ub354 \uac04\uacb0\ud558\uac8c \ud45c\uc2dc\ud558\ub824\uba74 ftable()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 three_way_ftable <- ftable(three_way)<\/strong><\/pre>\n
 \ucc38\uace0<\/strong> : xtabs()<\/strong> \ubc0f ftable()<\/strong> \ud568\uc218\ub294 R \ub370\uc774\ud130\ubca0\uc774\uc2a4\uc5d0 \ud1b5\ud569\ub418\uc5c8\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 \uc2e4\uc81c\ub85c \uc774\ub7ec\ud55c \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec R\uc5d0\uc11c 3\ubc29\ud5a5 \ud14c\uc774\ube14\uc744 \ub9cc\ub4dc\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608: R\uc5d0\uc11c 3\ubc29\ud5a5 \ud14c\uc774\ube14\uc744 \ub9cc\ub4dc\ub294 \ubc29\ubc95<\/strong><\/span><\/h2>\n
 \ub2e4\uc591\ud55c \ub18d\uad6c \uc120\uc218\uc5d0 \ub300\ud55c \uc815\ubcf4\uac00 \ud3ec\ud568\ub41c \ub2e4\uc74c\uacfc \uac19\uc740 \ub370\uc774\ud130 \ud504\ub808\uc784\uc774 \uc788\ub2e4\uace0 \uac00\uc815\ud569\ub2c8\ub2e4.<\/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
 team<\/strong> , position<\/strong> \ubc0f starter<\/strong> \uc758 \uc138 \uac00\uc9c0 \ubcc0\uc218\ub97c \uae30\ubc18\uc73c\ub85c \ud50c\ub808\uc774\uc5b4 \ube48\ub3c4\ub97c \ud45c\uc2dc\ud558\ub294 3\ubc29\ud5a5 \ud14c\uc774\ube14\uc744 \uc0dd\uc131\ud55c\ub2e4\uace0 \uac00\uc815\ud574 \ubcf4\uaca0\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 xtabs()<\/a> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \uc774 3\ubc29\ud5a5 \ubc30\uc5f4\uc744 \ub9cc\ub4e4 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/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
 \uacb0\uacfc\uc758 \uccab \ubc88\uc9f8 \ud14c\uc774\ube14\uc5d0\ub294 \uc2dc\uc791<\/strong> \ubcc0\uc218\uac00 No\uc778 \ud300<\/strong> \ubc0f \ud3ec\uc9c0\uc158<\/strong> \ubcc4 \uc120\uc218 \ube48\ub3c4\uac00 \ud45c\uc2dc\ub429\ub2c8\ub2e4.<\/span><\/p>\n
 \ub450 \ubc88\uc9f8 \ud45c\ub294 \uc2dc\uc791<\/strong> \ubcc0\uc218\uac00 ‘\uc608’\uc778 \ud300<\/strong> \ubc0f \ud3ec\uc9c0\uc158<\/strong> \ubcc4 \ud50c\ub808\uc774\uc5b4 \ube48\ub3c4\ub97c \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 \uc6d0\ud558\ub294 \uacbd\uc6b0 ftable()<\/strong> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \uc774\ub7ec\ud55c \ubc30\uc5f4\uc744 \ub2e8\uc77c \ubc30\uc5f4\ub85c “\ud3c9\uba74\ud654”\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/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
 \uacb0\uacfc 3\ubcc0\uc218 \ud14c\uc774\ube14\uc740 3\uac1c \ubcc0\uc218\uc758 \ube48\ub3c4\ub97c “\ud3c9\ud0c4\ud55c” \ud615\uc2dd\uc73c\ub85c \ud45c\uc2dc\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608\ub97c \ub4e4\uc5b4 \ub2e4\uc74c\uc744 \ubcfc \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n