{"id":3490,"date":"2023-07-17T05:07:06","date_gmt":"2023-07-17T05:07:06","guid":{"rendered":"https:\/\/statorials.org\/ko\/r-%e1%84%8f%e1%85%a1%e1%84%8b%e1%85%ae%e1%86%ab%e1%84%90%e1%85%b3-%e1%84%8b%e1%85%a7%e1%86%af-%e1%84%8e%e1%85%ae%e1%84%80%e1%85%a1\/"},"modified":"2023-07-17T05:07:06","modified_gmt":"2023-07-17T05:07:06","slug":"r-%e1%84%8f%e1%85%a1%e1%84%8b%e1%85%ae%e1%86%ab%e1%84%90%e1%85%b3-%e1%84%8b%e1%85%a7%e1%86%af-%e1%84%8e%e1%85%ae%e1%84%80%e1%85%a1","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/r-%e1%84%8f%e1%85%a1%e1%84%8b%e1%85%ae%e1%86%ab%e1%84%90%e1%85%b3-%e1%84%8b%e1%85%a7%e1%86%af-%e1%84%8e%e1%85%ae%e1%84%80%e1%85%a1\/","title":{"rendered":"R\uc758 \ub370\uc774\ud130 \ud504\ub808\uc784\uc5d0 \uac1c\uc218 \uc5f4\uc744 \ucd94\uac00\ud558\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

\ub2e4\uc74c \uae30\ubcf8 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec R\uc758 \ub370\uc774\ud130 \ud504\ub808\uc784\uc5d0 “count” \uc5f4\uc744 \ucd94\uac00\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

 df %>%\n  group_by(var1) %>%\n  mutate(var1_count = n())\n<\/strong><\/pre>\n
 \uc774 \ud2b9\uc815 \uad6c\ubb38\uc740 var1<\/strong> \uc774\ub77c\ub294 \uc5f4\uc758 \uac12 \uac1c\uc218\ub97c \ud3ec\ud568\ud558\ub294 \ub370\uc774\ud130 \ud504\ub808\uc784\uc5d0 var1_count<\/strong> \ub77c\ub294 \uc5f4\uc744 \ucd94\uac00\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 \uc2e4\uc81c\ub85c \uc774 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 \uc608: R\uc5d0 \uc22b\uc790 \uc5f4 \ucd94\uac00<\/strong><\/span><\/h2>\n
 \ub2e4\uc591\ud55c \ub18d\uad6c \uc120\uc218\uc5d0 \ub300\ud55c \uc815\ubcf4\ub97c \ud3ec\ud568\ud558\ub294 \ub2e4\uc74c\uacfc \uac19\uc740 \ub370\uc774\ud130 \ud504\ub808\uc784\uc774 R\uc5d0 \uc788\ub2e4\uace0 \uac00\uc815\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 #define data frame\n<\/span>df <- data. frame<\/span> (team=c('A', 'A', 'A', 'B', 'B', 'B', 'B', 'B'),\n                 position=c('G', 'F', 'F', 'F', 'G', 'G', 'F', 'F'),\n                 points=c(18, 22, 19, 14, 14, 11, 20, 28))\n\n#view data frame\n<\/span>df\n\n  team position points\n1 AG 18\n2 AF 22\n3 FY 19\n4 BF 14\n5 BG 14\n6 BG 11\n7 BF 20\n8 BF 28\n<\/strong><\/pre>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub97c \uc0ac\uc6a9\ud558\uc5ec \uac01 \ud300\uc758 \uc218\ub97c \ud3ec\ud568\ud558\ub294 team_count<\/strong> \ub77c\ub294 \uc5f4\uc744 \ucd94\uac00\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 library<\/span> (dplyr)<\/span>\n\n#add column that shows total count of each team\ndf %>%\n  group_by(team) %>%\n  mutate(team_count = n())\n\n# A tibble: 8 x 4\n# Groups: team [2]\n  team position points team_count\n              \n1 AG 18 3\n2 AF 22 3\n3 FY 19 3\n4 BF 14 5\n5 BG 14 5\n6 BG 11 5\n7 BF 20 5\n8 BF 28 5\n<\/span><\/span><\/strong><\/pre>\n
 \ud300 \uac12\uc774 A\uc778 \ub77c\uc778\uc774 3\uac1c<\/strong> \uc788\uace0 \ud300 \uac12\uc774 B\uc778 \ub77c\uc778\uc774 5<\/strong> \uac1c \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 \uadf8\ub798\uc11c:<\/span><\/p>\n