{"id":3612,"date":"2023-07-16T13:10:37","date_gmt":"2023-07-16T13:10:37","guid":{"rendered":"https:\/\/statorials.org\/ko\/%e1%84%83%e1%85%a1%e1%84%8b%e1%85%b3%e1%86%b7%e1%84%8b%e1%85%b5-%e1%84%91%e1%85%a9%e1%84%92%e1%85%a1%e1%86%b7%e1%84%83%e1%85%ac%e1%86%ab-%e1%84%80%e1%85%a7%e1%86%bc%e1%84%8b%e1%85%ae-dplyr-%e1%84%8b\/"},"modified":"2023-07-16T13:10:37","modified_gmt":"2023-07-16T13:10:37","slug":"%e1%84%83%e1%85%a1%e1%84%8b%e1%85%b3%e1%86%b7%e1%84%8b%e1%85%b5-%e1%84%91%e1%85%a9%e1%84%92%e1%85%a1%e1%86%b7%e1%84%83%e1%85%ac%e1%86%ab-%e1%84%80%e1%85%a7%e1%86%bc%e1%84%8b%e1%85%ae-dplyr-%e1%84%8b","status":"publish","type":"post","link":"https:\/\/statorials.org\/ko\/%e1%84%83%e1%85%a1%e1%84%8b%e1%85%b3%e1%86%b7%e1%84%8b%e1%85%b5-%e1%84%91%e1%85%a9%e1%84%92%e1%85%a1%e1%86%b7%e1%84%83%e1%85%ac%e1%86%ab-%e1%84%80%e1%85%a7%e1%86%bc%e1%84%8b%e1%85%ae-dplyr-%e1%84%8b\/","title":{"rendered":"Dplyr: \uc5f4\uc5d0 \ubb38\uc790\uc5f4\uc774 \ud3ec\ud568\ub41c \uacbd\uc6b0 \ubcc0\uc218\ub97c \ubcc0\uacbd\ud558\ub294 \ubc29\ubc95"},"content":{"rendered":"

<\/p>\n

\n

\uc5f4\uc5d0 \ud2b9\uc815 \ubb38\uc790\uc5f4\uc774 \ud3ec\ud568\ub41c \uacbd\uc6b0 dplyr<\/a> \uc5d0\uc11c \ub2e4\uc74c \uae30\ubcf8 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec \ubcc0\uc218\ub97c \ubcc0\uacbd\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

 library<\/span> (dplyr)\n\ndf %>% mutate_at(vars(contains(' starter<\/span> ')), ~ (scale(.) %>% as. vector<\/span> ))\n<\/strong><\/pre>\n
 \uc774 \ud2b9\uc815 \uad6c\ubb38\uc740 \uc5f4 \uc774\ub984\uc5d0 “starter”\ub77c\ub294 \ubb38\uc790\uc5f4\uc774 \ud3ec\ud568\ub41c \ub370\uc774\ud130 \ud504\ub808\uc784\uc758 \uac01 \ubcc0\uc218\uc5d0 scale()<\/strong> \ud568\uc218\ub97c \uc801\uc6a9\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: \uc5f4\uc5d0 \ubb38\uc790\uc5f4\uc774 \ud3ec\ud568\ub41c \uacbd\uc6b0 \ubcc0\uc218\ub97c \ubcc0\uacbd\ud569\ub2c8\ub2e4.<\/strong><\/span><\/h2>\n
 R\uc5d0 \ub2e4\uc74c\uacfc \uac19\uc740 \ub370\uc774\ud130 \ud504\ub808\uc784\uc774 \uc788\ub2e4\uace0 \uac00\uc815\ud569\ub2c8\ub2e4.<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team=c('A', 'B', 'C', 'D', 'E', 'F'),\n                 starter_points=c(22, 26, 25, 13, 15, 22),\n                 starter_assists=c(4, 5, 10, 14, 12, 10),\n                 bench_points=c(7, 7, 9, 14, 13, 10),\n                 bench_assists=c(2, 5, 5, 4, 9, 14))\n\n#view data frame\n<\/span>df\n\n  team starter_points starter_assists bench_points bench_assists\n1 to 22 4 7 2\n2 B 26 5 7 5\n3 C 25 10 9 5\n4 D 13 14 14 4\n5 E 15 12 13 9\n6 F 22 10 10 14<\/strong><\/pre>\n
 \ub2e4\uc74c \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec \uc5f4 \uc774\ub984\uc5d0 “starter”\ub77c\ub294 \ubb38\uc790\uc5f4\uc774 \ud3ec\ud568\ub41c \ub370\uc774\ud130 \ud504\ub808\uc784\uc758 \uac01 \ubcc0\uc218\uc5d0 scale()<\/strong> \ud568\uc218\ub97c \uc801\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 library<\/span> (dplyr)\n\n#apply scale() function to each variable that contains 'starter' in the name\n<\/span>df %>% mutate_at(vars(contains(' starter<\/span> ')), ~ (scale(.) %>% as. vector<\/span> ))\n\n  team starter_points starter_assists bench_points bench_assists\n1 A 0.2819668 -1.3180158 7 2\n2 B 1.0338784 -1.0629159 7 5\n3 C 0.8459005 0.2125832 9 5\n4 D -1.4098342 1.2329825 14 4\n5 E -1.0338784 0.7227828 13 9\n6 F 0.2819668 0.2125832 10 14\n<\/strong><\/pre>\n
 \uc774 \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec scale()<\/strong> \ud568\uc218\ub97c \uc801\uc6a9\ud558\uc5ec “starter”\ub97c \ud3ec\ud568\ud558\ub294 \uac01 \uc5f4\uc758 \uac12\uc774 \uc774\uc81c \ud3c9\uade0 0, \ud45c\uc900 \ud3b8\ucc28 1\uc774 \ub418\ub3c4\ub85d \ud06c\uae30\ub97c \uc870\uc815\ud560 \uc218 \uc788\uc5c8\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
 \ub2e4\uc74c \uc5f4\uc774 \uc218\uc815\ub418\uc5c8\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n