{"id":840,"date":"2019-01-24T12:23:40","date_gmt":"2019-01-24T03:23:40","guid":{"rendered":"http:\/\/141.164.34.82\/?p=840"},"modified":"2022-02-03T18:01:49","modified_gmt":"2022-02-03T09:01:49","slug":"dplyr-03-additional-functions","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=840","title":{"rendered":"\ud328\ud0a4\uc9c0 dplyr 03: \ud3b8\uc758 \uae30\ub2a5"},"content":{"rendered":"<h1><code>dplyr<\/code> : \ubd80\uac00 \uae30\ub2a5<\/h1>\n<ul>\n<li>\ub9cc\uc77c \ub3d9\uc77c\ud55c \ud568\uc218\ub97c \uc5ec\ub7ec \uc5f4\uc5d0 \ub3d9\uc77c\ud558\uac8c \uc801\uc6a9\ud574\uc57c \ud55c\ub2e4\uace0 \uc0dd\uac01\ud574\ubcf4\uc790. \uc5ec\uae30\uc11c <strong>\uc5ec\ub7ec \uc5f4<\/strong>\uc740 \ubaa8\ub4e0 \uc5f4\uc77c \uc218\ub3c4 \uc788\uace0, \ubbf8\ub9ac \uc815\ud574\uc9c4 \uc77c\ubd80 \uc5f4\uc77c \uc218\ub3c4 \uc788\uace0, \ud2b9\uc815 \uc870\uac74\uc744 \ub9cc\uc871\ud558\ub294 \uc5f4\uc77c \uc218\ub3c4 \uc788\ub2e4.<\/li>\n<\/ul>\n<h3>\uadf8 \ubc16\uc758 \ud3b8\uc758 \uae30\ub2a5: <code>_all<\/code>, <code>_at<\/code>, <code>_if<\/code>\uc640 <code>vars()<\/code>, <code>funs()<\/code><\/h3>\n<ul>\n<li>\uc55e\uc11c \uc0c8\ub85c\uc6b4 \uc5f4\uc744 \ub9cc\ub4e4 \ub54c <code>mutate<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud588\ub2e4. \uc608\ub97c \ub4e4\uc5b4 <code>mtcars<\/code>\uc758 <code>qsec<\/code>\uc5f4\uc5d0 \uc9c0\uc218\ud568\uc218 <code>exp<\/code>\ub97c \uc801\uc6a9\ud558\uc5ec \uc0c8\ub85c\uc6b4 \uc5f4\uc744 \uc0dd\uc131\ud55c\ub2e4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">library(dplyr)\r\nmtcars %&gt;% mutate(exp(qsec)) %&gt;% head\r\n<\/code><\/pre>\n<pre>##    mpg cyl disp  hp drat    wt  qsec vs am gear carb exp(qsec)\r\n## 1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4  14076257\r\n## 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4  24642915\r\n## 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 120842669\r\n## 4 21.4   6  258 110 3.08 3.215 19.44  1  0    3    1 277130757\r\n## 5 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2  24642915\r\n## 6 18.1   6  225 105 2.76 3.460 20.22  1  0    3    1 604553060\r\n<\/pre>\n<ul>\n<li>\ub9cc\uc57d \ubaa8\ub4e0 \uc5f4\uc5d0 \ub300\ud574 \uc9c0\uc218 \ud568\uc218 <code>exp<\/code>\ub97c \uc801\uc6a9\ud574\uc57c \ud55c\ub2e4\uba74 \uc5b4\ub5bb\uac8c \ud574\uc57c \ud558\ub098? \ud06c\uac8c<br \/>\n\ub2e4\ub97c \uac83\uc774 \uc5c6\ub2e4. \ub2e8\uc9c0 \uc190\uc774 \ud798\ub4e4 \ubfd0.[<sup>3]<\/sup><\/li>\n<\/ul>\n<p>[<sup>3]:<\/sup> \uc800\uc790\ub294 \ub2e4\uc74c\uc758 \ucf54\ub4dc\ub97c \ud65c\uc6a9\ud588\ub2e4. <code>coln0 &lt;- colnames(mtcars); coln &lt;- colnames(mtcars); substr(coln, 1,1) = toupper(substr(coln, 1, 1)); coln &lt;- paste('exp', coln, sep=''); paste('mutate(', paste(coln, \"=exp(\", coln0,\")\", sep='', collapse=', '), ')', sep='')<\/code><\/p>\n<pre><code class=\"r\">mtcars %&gt;% mutate(expMpg=exp(mpg), expCyl=exp(cyl), expDisp=exp(disp), expHp=exp(hp), expDrat=exp(drat), expWt=exp(wt), expQsec=exp(qsec), expVs=exp(vs), expAm=exp(am), expGear=exp(gear), expCarb=exp(carb)) %&gt;% head(n=3)\r\n<\/code><\/pre>\n<pre>##    mpg cyl disp  hp drat    wt  qsec vs am gear carb     expMpg    expCyl\r\n## 1 21.0   6  160 110 3.90 2.620 16.46  0  1    4    4 1318815734 403.42879\r\n## 2 21.0   6  160 110 3.90 2.875 17.02  0  1    4    4 1318815734 403.42879\r\n## 3 22.8   4  108  93 3.85 2.320 18.61  1  1    4    1 7978370264  54.59815\r\n##        expDisp        expHp  expDrat    expWt   expQsec    expVs    expAm\r\n## 1 3.069850e+69 5.920972e+47 49.40245 13.73572  14076257 1.000000 2.718282\r\n## 2 3.069850e+69 5.920972e+47 49.40245 17.72542  24642915 1.000000 2.718282\r\n## 3 8.013164e+46 2.451246e+40 46.99306 10.17567 120842669 2.718282 2.718282\r\n##    expGear   expCarb\r\n## 1 54.59815 54.598150\r\n## 2 54.59815 54.598150\r\n## 3 54.59815  2.718282\r\n<\/pre>\n<ul>\n<li>\ubb3c\ub860 \uc774\uac83\ub3c4 \ud55c \ubc29\ubc95\uc774\uc9c0\ub9cc \ucc98\uc74c \uc774 \ucf54\ub4dc\ub97c \ubcf8 \uc0ac\ub78c\uc740 \uaf64\ub098 \uc5b4\ub9ac\ub465\uc808\ud560 \uac83\uc774\ub2e4. \ud558\uc9c0\ub9cc \uc774 \ucf54\ub4dc\uac00 \uc218\ud589\ud558\ub294 \uc77c\uc740 \u2018\ubaa8\ub4e0 \uc5f4\uc5d0 \ub300\ud574 \uc9c0\uc218\ud568\uc218 <code>exp<\/code>\ub97c \uc801\uc6a9\ud558\ub77c\u2019\uc774\ub2e4. \uac1c\ub150\uc801\uc73c\ub85c\ub294 \uaf64\ub098 \ub2e8\uc21c\ud55c \uac83\uc774\ub2e4. <code>dplyr<\/code>\uc5d0\uc11c\ub294 \uc774\ub807\uac8c \ubaa8\ub4e0 \uc5f4\uc5d0 \ub3d9\uc77c\ud55c \ud568\uc218\ub97c \uc801\uc6a9\ud558\ub294 \uacbd\uc6b0\uc744 \uc704\ud574 <code>mutate_all<\/code>\uc774\ub77c\ub294 \ud568\uc218\ub97c \ub9c8\ub828\ud574 \ub193\uc558\ub2e4. <code>mutate_all<\/code> \ud568\uc218\ub97c \uc4f4\ub2e4\uba74 \uc704\uc758 \ucf54\ub4dc\ub294 \ub2e4\uc74c\uacfc \uac19\uc774 \ub2e8\uc21c\ud574 \uc9c4\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">mtcars %&gt;% mutate_all(exp) %&gt;% head(n=3) \r\n<\/code><\/pre>\n<pre>##          mpg       cyl         disp           hp     drat       wt\r\n## 1 1318815734 403.42879 3.069850e+69 5.920972e+47 49.40245 13.73572\r\n## 2 1318815734 403.42879 3.069850e+69 5.920972e+47 49.40245 17.72542\r\n## 3 7978370264  54.59815 8.013164e+46 2.451246e+40 46.99306 10.17567\r\n##        qsec       vs       am     gear      carb\r\n## 1  14076257 1.000000 2.718282 54.59815 54.598150\r\n## 2  24642915 1.000000 2.718282 54.59815 54.598150\r\n## 3 120842669 2.718282 2.718282 54.59815  2.718282\r\n<\/pre>\n<ul>\n<li>\ud558\uc9c0\ub9cc \ub450 \ucf54\ub4dc\ub294 \uc644\uc804\ud788 \ub3d9\uc77c\ud558\uc9c0\ub294 \uc54a\ub2e4. <code>mutate<\/code>\uc758 \uacbd\uc6b0 \uae30\uc874\uc758 \uc5f4\uc774 \ubcf4\uc874\ub418\uc9c0\ub9cc, <code>mutate_all<\/code>\uc758 \uacbd\uc6b0 \uae30\uc874\uc758 \uc5f4\uc5d0 \ud568\uc218\uac00 \uc801\uc6a9\ub41c \uacb0\uacfc\uac00 \ub36e\uc5b4\uc50c\uc6cc\uc9c4\ub2e4. \uc5b4\uca0b\ub4e0 <code>mutate_all<\/code>\uc758 <code>_all<\/code>\uc740 \ubaa8\ub4e0 \uc5f4\uc5d0 \uc801\uc6a9\ub428\uc744 \uc2dc\uc0ac\ud55c\ub2e4. <code>_all<\/code>\ub294 <code>dplyr<\/code>\uc758 \uac70\uc758 \ubaa8\ub4e0 \ud568\uc218\uc758 \ub4a4\uc5d0 \ubd99\uc5b4\uc11c \uc0c8\ub85c\uc6b4 \ud568\uc218\ub97c \ub098\ud0c0\ub0b8\ub2e4. \uadf8\ub9ac\uace0 \uc5f4\uc744 \uc120\ud0dd\ud558\ub294 \ubc29\ubc95\uc744 \ub098\ud0c0\ub0b4\ub294 \uc811\ubbf8\uc0ac\ub294 <code>_all<\/code> \uc774\uc678\uc5d0\ub3c4 <code>_at<\/code>\uacfc <code>_if<\/code>\uac00 \uc788\ub2e4.<\/li>\n<li>\ub2e4\uc74c\uc758 \ud45c\ub97c \ubcf4\uc790.<\/li>\n<\/ul>\n<table>\n<thead>\n<tr>\n<th align=\"center\"><\/th>\n<th align=\"center\"><code>_all<\/code><\/th>\n<th align=\"center\"><code>_at<\/code><\/th>\n<th align=\"center\"><code>_if<\/code><\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td align=\"center\"><code>select<\/code><\/td>\n<td align=\"center\"><code>select_all<\/code><\/td>\n<td align=\"center\"><code>select_at<\/code><\/td>\n<td align=\"center\"><code>select_if<\/code><\/td>\n<\/tr>\n<tr>\n<td align=\"center\"><code>mutate<\/code><\/td>\n<td align=\"center\"><code>mutate_all<\/code><\/td>\n<td align=\"center\"><code>mutate_at<\/code><\/td>\n<td align=\"center\"><code>mutate_if<\/code><\/td>\n<\/tr>\n<tr>\n<td align=\"center\"><code>transmute<\/code><\/td>\n<td align=\"center\"><code>transmute_all<\/code><\/td>\n<td align=\"center\"><code>transmute_at<\/code><\/td>\n<td align=\"center\"><code>transmute_if<\/code><\/td>\n<\/tr>\n<tr>\n<td align=\"center\"><code>group_by<\/code><\/td>\n<td align=\"center\"><code>group_by_all<\/code><\/td>\n<td align=\"center\"><code>group_by_at<\/code><\/td>\n<td align=\"center\"><code>group_by_if<\/code><\/td>\n<\/tr>\n<tr>\n<td align=\"center\"><code>summarise<\/code><\/td>\n<td align=\"center\"><code>summarise_all<\/code><\/td>\n<td align=\"center\"><code>summarise_at<\/code><\/td>\n<td align=\"center\"><code>summarise_if<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<ul>\n<li>\uba3c\uc800 <code>mutate<\/code>\ub97c \ud65c\uc6a9\ud574\uc11c <code>_at<\/code>\uacfc <code>_if<\/code>\ub97c \uc124\uba85\ud574\ubcf4\uc790. <code>_at<\/code>\uc758 \uacbd\uc6b0\ub294 \ud568\uc218\ub97c \uc801\uc6a9\ud560 \uc5f4\uc758 \uc774\ub984\uc774 \ubcc0\uc218(\ubb38\uc790\uc5f4 \ubca1\ud130)\uc5d0 \uc800\uc7a5\ub418\uc5b4 \uc788\ub294 \uacbd\uc6b0\uc5d0 \uc4f8 \uc218 \uc788\ub2e4. \ub2e4\uc74c\uc758 \uc608\uc81c\ub97c \ubcf4\uc790.<\/li>\n<\/ul>\n<pre><code class=\"r\">coln = c('cyl', 'disp', 'drat', 'carb') \r\nmtcars %&gt;% mutate_at(coln, exp) %&gt;% head(n=3) \r\n<\/code><\/pre>\n<pre>##    mpg       cyl         disp  hp     drat    wt  qsec vs am gear\r\n## 1 21.0 403.42879 3.069850e+69 110 49.40245 2.620 16.46  0  1    4\r\n## 2 21.0 403.42879 3.069850e+69 110 49.40245 2.875 17.02  0  1    4\r\n## 3 22.8  54.59815 8.013164e+46  93 46.99306 2.320 18.61  1  1    4\r\n##        carb\r\n## 1 54.598150\r\n## 2 54.598150\r\n## 3  2.718282\r\n<\/pre>\n<ul>\n<li>\ub2e4\ub978 \uc5f4\uc740 \ubaa8\ub450 \ubcf4\uc874\uc774 \ub418\uc5c8\uace0, \ubb38\uc790\uc5f4 \ubca1\ud130\uc758 \uc6d0\uc18c <code>cyl<\/code>, <code>disp<\/code>, <code>drat<\/code>\uc5d0 \ud574\ub2f9\ud558\ub294 \uc5f4\uc5d0 \uc9c0\uc218\ud568\uc218 <code>exp<\/code>\uac00 \uc801\uc6a9\ub418\uc5c8\ub2e4. \uadf8\ub7f0\ub370 \uc0dd\uac01\ud574\ubcf4\uba74 \uc5f4\uc744 \uc120\ud0dd\ud558\ub294 \uba85\ub839\uc740 \ub530\ub85c \uc874\uc7ac\ud558\uc9c0 \uc54a\ub294\uac00? \ub2e4\uc74c\uc758 \uc608\uc640 \ube44\uad50\ub97c \ud574\ubcf4\uc790.<\/li>\n<\/ul>\n<pre><code class=\"r\">mtcars %&gt;% select(starts_with('c'), starts_with('d')) %&gt;% mutate_all(exp) %&gt;% head(n=3)\r\n<\/code><\/pre>\n<pre>##         cyl      carb         disp     drat\r\n## 1 403.42879 54.598150 3.069850e+69 49.40245\r\n## 2 403.42879 54.598150 3.069850e+69 49.40245\r\n## 3  54.59815  2.718282 8.013164e+46 46.99306\r\n<\/pre>\n<ul>\n<li>\uacb0\uacfc\ub294 \uac70\uc758 \ub611\uac19\ub2e4. <code>select<\/code>\uc758 \uacbd\uc6b0\ub294 \uc5f4 \uc774\ub984\uc744 \ub530\uc634\ud45c \uc548\uc5d0 \uc4f0\uc9c0 \uc54a\uc544\ub3c4 \ub418\uace0, <code>starts_with<\/code>, <code>ends_with<\/code>\uc640 \uac19\uc740 \ud568\uc218\ub3c4 \uc4f8 \uc218 \uc788\ub2e4\ub294 \uc7a5\uc810\uc774 \uc788\ub2e4. \ub9cc\uc57d <code>mutate_at<\/code> \ud568\uc218\uc5d0\uc11c <code>select<\/code>\uc640 \uac19\uc740 \ubc29\ubc95\uc73c\ub85c \uc5f4\uc744 \uc120\ud0dd\ud558\ub824\uba74 <code>vars<\/code>\ub77c\ub294 \ud568\uc218\ub97c \uc4f8 \uc218 \uc788\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">mtcars %&gt;% mutate_at(vars(starts_with('c'), starts_with('d')), exp) %&gt;% head(n=3)\r\n<\/code><\/pre>\n<pre>##    mpg       cyl         disp  hp     drat    wt  qsec vs am gear\r\n## 1 21.0 403.42879 3.069850e+69 110 49.40245 2.620 16.46  0  1    4\r\n## 2 21.0 403.42879 3.069850e+69 110 49.40245 2.875 17.02  0  1    4\r\n## 3 22.8  54.59815 8.013164e+46  93 46.99306 2.320 18.61  1  1    4\r\n##        carb\r\n## 1 54.598150\r\n## 2 54.598150\r\n## 3  2.718282\r\n<\/pre>\n<ul>\n<li>\ub9c8\uc9c0\ub9c9 <code>mutate_if<\/code>\ub294 \ud2b9\uc815\ud55c \uc870\uac74\uc744 \ub9cc\uc871\ud558\ub294 \uc5f4\ub9cc\uc744 \uc120\ud0dd\ud574\uc11c \ud568\uc218\ub97c \uc801\uc6a9\ud55c\ub2e4. \ub9cc\uc57d \uc5f4\uc758 \ucd1d\ud569\uc774 100 \ubbf8\ub9cc\uc774 \uc5f4\uc5d0 \ub300\ud574\uc11c\ub9cc \uc9c0\uc218 \ud568\uc218 <code>exp<\/code>\ub97c \uc801\uc6a9\ud558\uace0 \uc2f6\ub2e4\uba74 \ub2e4\uc74c\uacfc \uac19\uc774 \uc4f8 \uc218 \uc788\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">mtcars %&gt;% mutate_if(function(x) sum(x)&lt;100, exp) %&gt;% head(n=3)\r\n<\/code><\/pre>\n<pre>##    mpg cyl disp  hp drat    wt  qsec       vs       am gear      carb\r\n## 1 21.0   6  160 110 3.90 2.620 16.46 1.000000 2.718282    4 54.598150\r\n## 2 21.0   6  160 110 3.90 2.875 17.02 1.000000 2.718282    4 54.598150\r\n## 3 22.8   4  108  93 3.85 2.320 18.61 2.718282 2.718282    4  2.718282\r\n<\/pre>\n<ul>\n<li>\uc774\ub54c \ud55c \uac00\uc9c0 \ubb38\uc81c\ub294 \uc5f4\uc758 \uc774\ub984\uc774 \ubcf4\uc874\ub418\uc5b4 \uc788\uae30 \ub54c\ubb38\uc5d0 \uc9c0\uc218 \ud568\uc218\uac00 \uc5b4\ub5a4 \uc5f4\uc5d0 \uc801\uc6a9\ub418\uc5c8\ub294\uc9c0 \uc27d\uac8c \uc54c\uae30 \ud798\ub4e4\ub2e4\ub294 \ub2e8\uc810\uc774 \uc788\ub2e4. \ub9cc\uc57d \uc0c8\ub85c\uc6b4 \uc5f4\uc744 \uc0dd\uc131\ud558\uba74\uc11c \ud568\uc218\uac00 \uc801\uc6a9\ub418\uc9c0 \uc54a\ub294 \uc5f4\uc740 \uc81c\uac70\ud558\uace0 \uc2f6\ub2e4\uba74 <code>transmute<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud55c\ub2e4. \ub2e4\uc74c\uc758 \uc608\ub97c \ubcf4\uba74 <code>transmute<\/code>\uc758 \uc5ed\ud560\uc744 \uc27d\uac8c \uc774\ud574\ud560 \uc218 \uc788\uc744 \uac83\uc774\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">mtcars %&gt;% transmute(expCarb = exp(carb)) %&gt;% head(n=3) \r\n<\/code><\/pre>\n<pre>##     expCarb\r\n## 1 54.598150\r\n## 2 54.598150\r\n## 3  2.718282\r\n<\/pre>\n<pre><code class=\"r\">mtcars %&gt;% transmute_if(function(x) sum(x)&lt;100, exp) %&gt;% head(n=3) \r\n<\/code><\/pre>\n<pre>##         vs       am      carb\r\n## 1 1.000000 2.718282 54.598150\r\n## 2 1.000000 2.718282 54.598150\r\n## 3 2.718282 2.718282  2.718282\r\n<\/pre>\n<ul>\n<li>\uadf8\ub9ac\uace0 <code>transmute_all<\/code>\uc758 \uacb0\uacfc\ub97c \uc608\uc0c1\ud574\ubcf4\uba74 <code>mutate_all<\/code>\uacfc \ub3d9\uc77c\ud560 \uac83\uc774\ub2e4.<\/li>\n<li><code>transmute_if<\/code>\uc5d0\uc11c \ub450 \ubc88\uc9f8 \uc778\uc790(<code>transmute_if(function(x) ...)<\/code>\ub294 <code>transmute_if(., function(x) ...)<\/code>dptj <code>.<\/code>\uac00 \uc0dd\ub7b5\ub41c \ud615\ud0dc\ub85c \ub450 \ubc88\uc9f8 \uc778\uc790\ub294 <code>function(x) ...<\/code>\uc774\ub2e4)\ub294 \uc5f4 \ubca1\ud130\ub97c \uc785\ub825\ud558\uba74 \ucc38 \ub610\ub294 \uc9c4\ub9ac\uac12\uc744 \ucd9c\ub825\ud558\ub294 \ud568\uc218\uc774\uace0, \uc774 \ud568\uc218\ub97c \ud1b5\ud574 \uc5b4\ub5a4 \uc5f4\uc5d0 \ud568\uc218\ub97c \uc801\uc6a9\ud560\uc9c0\uac00 \uacb0\uc815\ub41c\ub2e4. \uc774\ub54c \ubbf8\ub9ac \ub9c8\ub828\ub41c \ud568\uc218\uac00 \uc788\uc9c0 \uc54a\ub2e4\uba74 <code>function(x) ...<\/code>\uacfc \uac19\uc740 \ubd80\ubd84\uc774 \ucd94\uac00\ub420 \uac83\uc778\ub370, <code>dplyr<\/code>\uc5d0\uc11c\ub294 \uc774 \ubd80\ubd84\uc744 \uac04\ub2e8\ud558\uac8c \ub9cc\ub4e4 \uc218 \uc788\ub294 \ubc29\ubc95\uc774 \uc788\ub2e4. \ub2e4\uc74c\uc758 \uc608\ub97c \ubcf4\uc790.<\/li>\n<\/ul>\n<pre><code class=\"r\">mtcars %&gt;% transmute_if(function(x) sum(x)&lt;100, exp) %&gt;% head(n=3) \r\n<\/code><\/pre>\n<pre>##         vs       am      carb\r\n## 1 1.000000 2.718282 54.598150\r\n## 2 1.000000 2.718282 54.598150\r\n## 3 2.718282 2.718282  2.718282\r\n<\/pre>\n<pre><code class=\"r\">mtcars %&gt;% transmute_if(funs(sum(.) &lt;100), exp) %&gt;% head(n=3) \r\n<\/code><\/pre>\n<pre>##         vs       am      carb\r\n## 1 1.000000 2.718282 54.598150\r\n## 2 1.000000 2.718282 54.598150\r\n## 3 2.718282 2.718282  2.718282\r\n<\/pre>\n<ul>\n<li><code>vars<\/code>\ub294 \uc5f4\uc744 \uc120\ud0dd\ud560 \ub54c \ud3b8\uc758\ub97c \uc81c\uacf5\ud558\uace0, <code>funs<\/code>\ub294 \ud568\uc218\ub97c \ub9cc\ub4e4 \ub54c \ud3b8\uc758\ub97c \uc81c\uacf5\ud558\ub294 \ud568\uc218\ub77c\uace0 \uc0dd\uac01\ud558\uba74 \ud3b8\ud558\ub2e4. \ub2e4\uc74c\uc758 \uc608\ub97c \ubcf4\uc790 \uadf8 \uc758\ubbf8\ub97c \ud30c\uc545\ud574\ubcf4\uc790.<\/li>\n<\/ul>\n<pre><code class=\"r\">mtcars %&gt;% mutate_if(funs(sum(.) &gt;= 100), funs(paste(.,\"+\",sep=\"\"))) %&gt;% head(n=3)\r\n<\/code><\/pre>\n<pre>##     mpg cyl disp   hp  drat     wt   qsec vs am gear carb\r\n## 1   21+  6+ 160+ 110+  3.9+  2.62+ 16.46+  0  1   4+    4\r\n## 2   21+  6+ 160+ 110+  3.9+ 2.875+ 17.02+  0  1   4+    4\r\n## 3 22.8+  4+ 108+  93+ 3.85+  2.32+ 18.61+  1  1   4+    1\r\n<\/pre>\n<pre><code class=\"r\">mtcars %&gt;% transmute_at(vars(starts_with('d')), exp) %&gt;% head(n=3)\r\n<\/code><\/pre>\n<pre>##           disp     drat\r\n## 1 3.069850e+69 49.40245\r\n## 2 3.069850e+69 49.40245\r\n## 3 8.013164e+46 46.99306\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>dplyr : \ubd80\uac00 \uae30\ub2a5 \ub9cc\uc77c \ub3d9\uc77c\ud55c \ud568\uc218\ub97c \uc5ec\ub7ec \uc5f4\uc5d0 \ub3d9\uc77c\ud558\uac8c \uc801\uc6a9\ud574\uc57c \ud55c\ub2e4\uace0 \uc0dd\uac01\ud574\ubcf4\uc790. \uc5ec\uae30\uc11c \uc5ec\ub7ec \uc5f4\uc740 \ubaa8\ub4e0 \uc5f4\uc77c \uc218\ub3c4 \uc788\uace0, \ubbf8\ub9ac \uc815\ud574\uc9c4 \uc77c\ubd80 \uc5f4\uc77c \uc218\ub3c4 \uc788\uace0, \ud2b9\uc815 \uc870\uac74\uc744 \ub9cc\uc871\ud558\ub294 \uc5f4\uc77c \uc218\ub3c4 \uc788\ub2e4. \uadf8 \ubc16\uc758 \ud3b8\uc758 \uae30\ub2a5: _all, _at, _if\uc640 vars(), funs() \uc55e\uc11c \uc0c8\ub85c\uc6b4 \uc5f4\uc744 \ub9cc\ub4e4 \ub54c mutate \ud568\uc218\ub97c \uc0ac\uc6a9\ud588\ub2e4. \uc608\ub97c \ub4e4\uc5b4 mtcars\uc758 qsec\uc5f4\uc5d0 \uc9c0\uc218\ud568\uc218 exp\ub97c [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":2493,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[78,28],"tags":[87,88,89],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2019\/01\/cupcakes-g1e26d9c0c_640.jpg","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/840"}],"collection":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=840"}],"version-history":[{"count":3,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/840\/revisions"}],"predecessor-version":[{"id":2494,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/840\/revisions\/2494"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/2493"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=840"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=840"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=840"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}