{"id":955,"date":"2023-07-28T04:47:06","date_gmt":"2023-07-28T04:47:06","guid":{"rendered":"https:\/\/statorials.org\/ko\/dplyr-%e1%84%89%e1%85%a1%e1%86%bc%e1%84%83%e1%85%a2-%e1%84%8c%e1%85%ae%e1%84%91%e1%85%a1%e1%84%89%e1%85%ae\/"},"modified":"2023-07-28T04:47:06","modified_gmt":"2023-07-28T04:47:06","slug":"dplyr-%e1%84%89%e1%85%a1%e1%86%bc%e1%84%83%e1%85%a2-%e1%84%8c%e1%85%ae%e1%84%91%e1%85%a1%e1%84%89%e1%85%ae","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/dplyr-%e1%84%89%e1%85%a1%e1%86%bc%e1%84%83%e1%85%a2-%e1%84%8c%e1%85%ae%e1%84%91%e1%85%a1%e1%84%89%e1%85%ae\/","title":{"rendered":"Dplyr\uc744 \uc0ac\uc6a9\ud558\uc5ec \uc0c1\ub300 \ube48\ub3c4\ub97c \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

R\uc5d0\uc11c \ub370\uc774\ud130 \ud504\ub808\uc784\uc758 \ud558\ub098 \uc774\uc0c1\uc758 \uc5f4\uc5d0 \uc788\ub294 \uac12\uc758 \uc0c1\ub300 \ube48\ub3c4\/\ube44\uc728\uc744 \uacc4\uc0b0\ud558\ub824\ub294 \uacbd\uc6b0\uac00 \uc885\uc885 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\ub2e4\ud589\uc2a4\ub7fd\uac8c\ub3c4 dplyr<\/a> \ud328\ud0a4\uc9c0\uc758 \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uba74 \uc774 \uc791\uc5c5\uc744 \uc27d\uac8c \uc218\ud589\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4. \uc774 \ud29c\ud1a0\ub9ac\uc5bc\uc5d0\uc11c\ub294 \uc774\ub7ec\ud55c \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \ub2e4\uc74c \ub370\uc774\ud130 \ud504\ub808\uc784\uc5d0\uc11c \uc0c1\ub300 \ube48\ub3c4\ub97c \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n

 #create data frame<\/span>\ndf <- data.frame(team = c('A', 'A', 'A', 'B', 'B', 'B', 'B'),\n                 position = c('G', 'F', 'F', 'G', 'G', 'G', 'F'),\n                 points = c(12, 15, 19, 22, 32, 34, 39))\n\n#view data frame\n<\/span>df\n\n  team position points\n1 AG 12\n2 AF15\n3 FY 19\n4 BG 22\n5 BG 32\n6 BG 34\n7 BF 39\n<\/strong><\/pre>\n
 \uc608\uc2dc 1: \ubcc0\uc218\uc758 \uc0c1\ub300 \ube48\ub3c4<\/strong><\/span><\/h3>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub294 \ub370\uc774\ud130 \ud504\ub808\uc784\uc5d0\uc11c \uac01 \ud300\uc758 \uc0c1\ub300 \ube48\ub3c4\ub97c \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 library(dplyr)\n\ndf %>%\n  group_by<\/span> (team) %>%\n  summarize<\/span> (n = n()) %>%\n  mutate<\/span> (freq = n \/ sum(n))\n\n# A tibble: 2 x 3\n  team n freq\n    \n1 to 3 0.429\n2 B 4 0.571\n<\/strong><\/pre>\n
 \uc774\ub294 A\ud300\uc774 \ub370\uc774\ud130 \ud504\ub808\uc784\uc758 \ubaa8\ub4e0 \ud589 \uc911 42.9%\ub97c \ucc28\uc9c0\ud558\uace0 B\ud300\uc774 \ub098\uba38\uc9c0 57.1%\ub97c \ucc28\uc9c0\ud55c\ub2e4\ub294 \uac83\uc744 \uc54c\ub824\uc90d\ub2c8\ub2e4. \uc774 \ub458\uc744 \ud569\uce58\uba74 100%\uac00 \ub41c\ub2e4\ub294 \uc810\uc5d0 \uc720\uc758\ud558\uc138\uc694.<\/span><\/p>\n
 \uc608\uc2dc 2: \uc5ec\ub7ec \ubcc0\uc218\uc758 \uc0c1\ub300 \ube48\ub3c4<\/strong><\/span><\/h3>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub294 \ud300\ub2f9<\/em> \uc704\uce58\uc758 \uc0c1\ub300 \ube48\ub3c4\ub97c \uacc4\uc0b0\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 library(dplyr)\n\ndf %>%\n  group_by<\/span> (team, position) %>%\n  summarize<\/span> (n = n()) %>%\n  mutate<\/span> (freq = n \/ sum(n))\n\n# A tibble: 4 x 4\n# Groups: team [2]\n  team position n freq\n       \n1 AF 2 0.667\n2 AG 1 0.333\n3 BF 1 0.250\n4 BG 3 0.750\n<\/strong><\/pre>\n
 \uc774\ub294 \ub2e4\uc74c\uc744 \uc54c\ub824\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 \uad00\ub828 \ud56d\ubaa9:<\/strong> \uc804\uccb4 \uac00\uc774\ub4dc: R\uc5d0\uc11c \ub370\uc774\ud130\ub97c \uadf8\ub8f9\ud654\ud558\uace0 \uc694\uc57d\ud558\ub294 \ubc29\ubc95<\/a><\/span><\/p>\n