{"id":2068,"date":"2023-07-23T20:22:25","date_gmt":"2023-07-23T20:22:25","guid":{"rendered":"https:\/\/statorials.org\/ko\/%e1%84%80%e1%85%b3%e1%84%85%e1%85%ae%e1%86%b8%e1%84%87%e1%85%a7%e1%86%af-dplyr-%e1%84%87%e1%85%ae%e1%86%ab%e1%84%85%e1%85%b2\/"},"modified":"2023-07-23T20:22:25","modified_gmt":"2023-07-23T20:22:25","slug":"%e1%84%80%e1%85%b3%e1%84%85%e1%85%ae%e1%86%b8%e1%84%87%e1%85%a7%e1%86%af-dplyr-%e1%84%87%e1%85%ae%e1%86%ab%e1%84%85%e1%85%b2","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/%e1%84%80%e1%85%b3%e1%84%85%e1%85%ae%e1%86%b8%e1%84%87%e1%85%a7%e1%86%af-dplyr-%e1%84%87%e1%85%ae%e1%86%ab%e1%84%85%e1%85%b2\/","title":{"rendered":"Dplyr\uc744 \uc0ac\uc6a9\ud558\uc5ec \uadf8\ub8f9\ubcc4\ub85c \ubcc0\uc218\ub97c \uc815\ub82c\ud558\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

\ub2e4\uc74c \uae30\ubcf8 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec dplyr\uc5d0\uc11c \ubcc0\uc218\ub97c \uadf8\ub8f9\ud654\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

 df %>% arrange<\/span> (group_var, numeric_var) %>%\n    group_by<\/span> (group_var) %>% \n    mutate<\/span> (rank = rank(numeric_var))\n<\/strong><\/pre>\n
 \ub2e4\uc74c \uc608\uc5d0\uc11c\ub294 \ub2e4\uc74c \ub370\uc774\ud130 \ud504\ub808\uc784\uc5d0\uc11c \uc2e4\uc81c\ub85c \uc774 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team = c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'C', 'C', 'C'),\n                 points = c(12, 28, 19, 22, 32, 45, 22, 28, 13, 19),\n                 rebounds = c(5, 7, 7, 12, 11, 4, 10, 7, 8, 8))\n\n#view data frame<\/span>\ndf\n\n   team points rebounds\n1 to 12 5\n2 to 28 7\n3 to 19 7\n4 A 22 12\n5 B 32 11\n6 B 45 4\n7 B 22 10\n8 C 28 7\n9 C 13 8\n10 C 19 8\n<\/strong><\/pre>\n
 \uc608\uc2dc 1: \uc624\ub984\ucc28\uc21c \uc21c\uc704<\/strong><\/span><\/h3>\n
 \ub2e4\uc74c \ucf54\ub4dc\ub294 \ud50c\ub808\uc774\uc5b4\uac00 \ub4dd\uc810\ud55c \uc810\uc218\ub97c \ud300\ubcc4\ub85c \uadf8\ub8f9\ud654\ud558\uc5ec \uc624\ub984\ucc28\uc21c\uc73c\ub85c \uc815\ub82c\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
 library<\/span> (dplyr)<\/span>\n\n#rank points scored, grouped by team<\/span>\ndf %>% arrange<\/span> (team, points) %>%\n    group_by<\/span> (team) %>% \n    mutate<\/span> (rank = rank(points))\n\n# A tibble: 10 x 4\n# Groups: team [3]\n   team points rebounds rank\n          \n 1 A 12 5 1\n 2 A 19 7 2\n 3 A 22 12 3\n 4 A 28 7 4\n 5 B 22 10 1\n 6 B 32 11 2\n 7 B 45 4 3\n 8 C 13 8 1\n 9 C 19 8 2\n10 C 28 7 3<\/strong><\/pre>\n
 \uc608\uc2dc 2: \ub0b4\ub9bc\ucc28\uc21c \uc21c\uc704<\/strong><\/span><\/h3>\n
 Rank()<\/strong> \ud568\uc218 \ub0b4\uc5d0\uc11c \uc74c\uc218 \uae30\ud638\ub97c \uc0ac\uc6a9\ud558\uc5ec \uadf8\ub8f9\ubcc4\ub85c \ub0b4\ub9bc\ucc28\uc21c\uc73c\ub85c \uc810\uc218\ub97c \ubd84\ub958\ud560 \uc218\ub3c4 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 library<\/span> (dplyr)<\/span>\n\n#rank points scored in reverse, grouped by team<\/span>\ndf %>% arrange<\/span> (team, points) %>%\n    group_by<\/span> (team) %>% \n    mutate<\/span> (rank = rank(-points))\n\n# A tibble: 10 x 4\n# Groups: team [3]\n   team points rebounds rank\n          \n 1 to 12 5 4\n 2 A 19 7 3\n 3 A 22 12 2\n 4 A 28 7 1\n 5 B 22 10 3\n 6 B 32 11 2\n 7 B 45 4 1\n 8 C 13 8 3\n 9 C 19 8 2\n10 C 28 7 1\n<\/strong><\/pre>\n
 \uc21c\uc704 \ub3d9\uc810\uc744 \ucc98\ub9ac\ud558\ub294 \ubc29\ubc95<\/strong><\/span><\/h3>\n
 Tie.method<\/strong> \uc778\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \uc22b\uc790 \uac12\uc744 \uc815\ub82c\ud560 \ub54c \ub3d9\uc810\uc744 \ucc98\ub9ac\ud558\ub294 \ubc29\ubc95\uc744 \uc9c0\uc815\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 rank(points, ties. method<\/span> = ' average<\/span> ')\n<\/strong><\/pre>\n
 \ub2e4\uc74c \uc635\uc158 \uc911 \ud558\ub098\ub97c \uc0ac\uc6a9\ud558\uc5ec \ub9c1\ud06c \ucc98\ub9ac \ubc29\ubc95\uc744 \uc9c0\uc815\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n