{"id":836,"date":"2019-01-24T12:23:37","date_gmt":"2019-01-24T03:23:37","guid":{"rendered":"http:\/\/141.164.34.82\/?p=836"},"modified":"2022-02-03T17:38:49","modified_gmt":"2022-02-03T08:38:49","slug":"dplyr-01-subsetting","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=836","title":{"rendered":"\ud328\ud0a4\uc9c0 dplyr 01: \ubd80\ubd84\uc120\ud0dd(subsetting)"},"content":{"rendered":"<h1>dplyr \ud328\ud0a4\uc9c0\ub97c \ud65c\uc6a9\ud55c \ub370\uc774\ud130 \uac00\uacf5 01: \ubd80\ubd84 \uc120\ud0dd\ud558\uae30(Subsetting)<\/h1>\n<h3><code>dplyr<\/code> \ud328\ud0a4\uc9c0<\/h3>\n<ul>\n<li><code>dplyr<\/code> \ud328\ud0a4\uc9c0\uc758 <code>slice<\/code>, <code>filter<\/code>, <code>select<\/code>, <code>mutate<\/code>, <code>arrange<\/code>, <code>summarize<\/code>, <code>group_by<\/code>, <code>do<\/code> \ub4f1\uc758 \ud568\uc218\ub294 \ub370\uc774\ud130 \uac00\uacf5\uc744 \ub3c4\uc640\uc900\ub2e4. \ud2b9\ud788 \uc774\ub984\uc5d0\uc11c \uc27d\uac8c \uc5f0\uc0c1\ub418\ub294 \uae30\ub2a5\uc73c\ub85c \ucd08\ubcf4\uc790\ub3c4 \uc27d\uac8c \ucf54\ub4dc\ub97c \uc77d\uc744 \uc218 \uc788\ub2e4. \ud2b9\ud788 <code>%&gt;%<\/code>\uc640 \ud568\uaed8 \uc0ac\uc6a9\ud558\uba74 \ucf54\ub4dc\ub97c \uc9c1\uad00\uc801\uc73c\ub85c \uc774\ud574\ub294\ub370 \ub3c4\uc6c0\uc774 \ub41c\ub2e4. \uc5ec\uae30\uc11c\ub294 <code>mtcars<\/code> \ub370\uc774\ud130\ub97c \ud65c\uc6a9\ud558\uc5ec <code>dplyr<\/code> \ud328\ud0a4\uc9c0\uc640 <code>%&gt;%<\/code>\ub97c \ud65c\uc6a9\ud558\uc5ec \ub370\uc774\ud130\ub97c \uac00\uacf5\ud558\ub294 \ubc95\uc744 \uc0b4\ud3b4\ubcf8\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">library(dplyr)\r\ndata(mtcars) \r\ntb = as_tibble(mtcars) \r\n<\/code><\/pre>\n<ul>\n<li><code>dplyr<\/code> \ud328\ud0a4\uc9c0\uc758 \ud568\uc218\ub294 \uc785\ub825\uc744 \ud2f0\ube14\ub85c \ubcc0\ud658\ud558\uc5ec \ucc98\ub9ac\ud55c\ub2e4. \uc5ec\uae30\uc11c\ub294 <code>as_tibble<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uc5ec \ubbf8\ub9ac \ud2f0\ube14 \ud615\uc2dd\uc73c\ub85c \ubc14\uafb8\uc5c8\ub2e4.<\/li>\n<\/ul>\n<h3>\ud589\uc758 \uc21c\uc11c\ub85c \ub370\uc774\ud130\uc758 \ubd80\ubd84 \ucc38\uc870<\/h3>\n<ul>\n<li>\ub370\uc774\ud130 \ud14c\uc774\ube14 <code>tb<\/code>\uc758 \ub450 \ubc88\uc9f8\uc5d0\uc11c \ub2e4\uc12f \ubc88\uc9f8 \ud589\uc744 \ucc38\uc870\ud558\ub824\uba74 <code>tb[2:5,]<\/code>\ub85c \uc4f0\uba74<br \/>\n\ub41c\ub2e4. <code>slice<\/code> \ud568\uc218\ub97c \uc4f4\ub2e4\uba74 <code>slice(tb, 2:5)<\/code>\uc774 \ub41c\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">tb[2:5, ]\r\n<\/code><\/pre>\n<pre>## # A tibble: 4 x 11\r\n##     mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  21       6   160   110  3.9   2.88  17.0     0     1     4     4\r\n## 2  22.8     4   108    93  3.85  2.32  18.6     1     1     4     1\r\n## 3  21.4     6   258   110  3.08  3.22  19.4     1     0     3     1\r\n## 4  18.7     8   360   175  3.15  3.44  17.0     0     0     3     2\r\n<\/pre>\n<pre><code class=\"r\">slice(tb, 2:5)\r\n<\/code><\/pre>\n<pre>## # A tibble: 4 x 11\r\n##     mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  21       6   160   110  3.9   2.88  17.0     0     1     4     4\r\n## 2  22.8     4   108    93  3.85  2.32  18.6     1     1     4     1\r\n## 3  21.4     6   258   110  3.08  3.22  19.4     1     0     3     1\r\n## 4  18.7     8   360   175  3.15  3.44  17.0     0     0     3     2\r\n<\/pre>\n<p>\uc774\ub97c <code>%&gt;%<\/code>\uc640 \ud568\uaed8 \uc4f4\ub2e4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/p>\n<pre><code class=\"r\">tb %&gt;% .[2:5, ]\r\ntb %&gt;% slice(., 2:5)\r\n<\/code><\/pre>\n<p>\uc704\uc758 <code>slice(., 2:5)<\/code>\uc758 \uacbd\uc6b0 <code>.<\/code>\uc774 \uccab \ubc88\uc9f8 \uc778\uc790\uc774\ubbc0\ub85c \uc0dd\ub7b5\ud560 \uc218 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">tb %&gt;% slice(2:5)\r\ntb %&gt;% slice(c(2:3, 4, 5))\r\n<\/code><\/pre>\n<h3>\ub17c\ub9ac \ubca1\ud130\ub97c \uc0ac\uc6a9\ud558\uc5ec \ud589 \ubd80\ubd84 \ucc38\uc870<\/h3>\n<ul>\n<li><code>mtcar<\/code>(\ub610\ub294 \ud2f0\ube14 \ud615\uc2dd <code>tb<\/code>)\uc5d0\uc11c <code>mpg<\/code>\uac00 <code>30<\/code> \ucd08\uacfc\uc778 \ud589\ub9cc\uc744 \ubf51\uc544 \ubcf4\uace0 \uc2f6\ub2e4. \ub370\uc774\ud130\ud504\ub808\uc784\uc5d0\uc11c \uc790\uc8fc \uc0ac\uc6a9\ud558\ub294 \ubc29\ubc95\uc740 <code>tb[tb$mpg&gt;30, ]<\/code>\uc774\ub2e4. <code>filter<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uba74 <code>filter(tb, mpg&gt;30)<\/code> \ub610\ub294 <code>tb %&gt;% filter(., mpg&gt;30)<\/code>\uc774 \ub41c\ub2e4. <code>.<\/code>\ub97c \uc0dd\ub7b5\ud55c\ub2e4\uba74 <code>tb %&gt;% filter(mpg&gt;30)<\/code>\uc774 \ub41c\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">tb[tb$mpg&gt;30, ]\r\n<\/code><\/pre>\n<pre>## # A tibble: 4 x 11\r\n##     mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  32.4     4  78.7    66  4.08  2.2   19.5     1     1     4     1\r\n## 2  30.4     4  75.7    52  4.93  1.62  18.5     1     1     4     2\r\n## 3  33.9     4  71.1    65  4.22  1.84  19.9     1     1     4     1\r\n## 4  30.4     4  95.1   113  3.77  1.51  16.9     1     1     5     2\r\n<\/pre>\n<ul>\n<li>\ub2e4\uc74c\uc740 \ubaa8\ub450 \uc704\uc758 \ucf54\ub4dc\uc640 \ub3d9\uc77c\ud55c \uacb0\uacfc\ub97c \ubcf4\uc5ec\uc900\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">filter(tb, mpg&gt;30)\r\ntb %&gt;% filter(., mpg&gt;30)\r\ntb %&gt;% filter(mpg&gt;30)\r\n<\/code><\/pre>\n<h3>\uc5f4 \uc774\ub984\uc774\ub098 \ubc88\ud638\ub85c \ubd80\ubd84 \ucc38\uc870<\/h3>\n<ul>\n<li>\ud2f0\ube14 \ub370\uc774\ud130 <code>tb<\/code>\uc5d0\uc11c \uccab \ubc88\uc9f8 \uc640 \uc138 \ubc88\uc9f8 \uc5f4\uc744 \ubcf4\uace0 \uc2f6\ub2e4\uba74 \ub370\uc774\ud130 \ud504\ub808\uc784\ucc98\ub7fc <code>tb[, c(1,3)]<\/code>\uc744 \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4. <code>dplyr<\/code>\uc758 <code>select<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud558\uba74 <code>select(tb, c(1,3))<\/code>\uc774 \ub41c\ub2e4. <code>%&gt;%<\/code>\ub97c \uc0ac\uc6a9\ud558\uba74, <code>tb %&gt;% select(c(1,3))<\/code>\uc774 \ub41c\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">tb &lt;- tb %&gt;% slice(3:5)\r\ntb[, c(1,3)]\r\nselect(tb, c(1,3))\r\ntb %&gt;% select(c(1,3))\r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 2\r\n##     mpg  disp\r\n##   &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  22.8   108\r\n## 2  21.4   258\r\n## 3  18.7   360\r\n<\/pre>\n<ul>\n<li>\uc5f4 \uc774\ub984\uc744 \uc0ac\uc6a9\ud558\uace0 \uc2f6\ub2e4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4. <code>select<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud560 \ub54c\uc5d0\ub294 \uc5f4\uc774\ub984\uc5d0 \ub530\uc634\ud45c (<code>\"<\/code> \ub610\ub294 <code>'<\/code>)\ub97c \uc0dd\ub7b5\ud560 \uc218 \uc788\ub2e4. \uadf8\ub9ac\uace0 \uc5f4\uc774\ub984\uc744 \ud558\ub098\uc758 \ubca1\ud130\ub85c \ub9cc\ub4e4 \ud544\uc694\ub3c4 \uc5c6\ub2e4. \ub2e4\uc74c\uc740 \ubaa8\ub450 \ub3d9\uc77c\ud55c \uacb0\uacfc\ub97c \ubcf4\uc5ec\uc900\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">tb[, c(\"cyl\", \"hp\")]\r\nselect(tb, c(\"cyl\", \"hp\"))\r\nselect(tb, c(cyl, hp))\r\n\r\ntb %&gt;% select(c(\"cyl\", \"hp\"))\r\ntb %&gt;% select(c(cyl, hp))\r\n\r\ntb %&gt;% select(\"cyl\", \"hp\")\r\ntb %&gt;% select(cyl, hp)\r\n<\/code><\/pre>\n<ul>\n<li><code>select<\/code>\uc758 \uc88b\uc740 \uc810\uc758 \ud558\ub098\ub294 \uc5f4\uc774\ub984\uc5d0 <code>:<\/code>\uc744 \uc4f8 \uc218 \uc788\ub2e4\ub294 \uc810\uc774\ub2e4. \uc608\ub97c \ub4e4\uc5b4 \ub370\uc774\ud130 \ud504\ub808\uc784 <code>tb<\/code>\uc5d0\uc11c \uc5f4\uc774\ub984 <code>hp<\/code>\uc5d0\uc11c \uc5f4\uc774\ub984 <code>qsec<\/code>\uae4c\uc9c0\ub97c \uc120\ud0dd\ud558\uace0 \uc2f6\ub2e4\uace0 \ud574\ubcf4\uc790. \uc5f4\uc758 \uc21c\ubc88\uc744 \uc548\ub2e4\uba74 <code>tb %&gt;% select(4:7)<\/code>\uc744 \ud560 \uc218 \uc788\ub2e4(<code>hp<\/code>\ub294 <code>tb<\/code>\uc758 4\ubc88\uc9f8 \uc5f4\uc774\uace0, <code>qsec<\/code>\ub294 <code>tb<\/code>\uc758 7\ubc88\uc9f8 \uc5f4\uc774\ub2e4). \ud558\uc9c0\ub9cc \uc5f4\uc758 \uc21c\ubc88\uc744 \ubaa8\ub978\ub2e4\uba74? \uc5f4\uc758 \uc218\uac00 \uad49\uc7a5\ud788 \ub9ce\uc740 \ub370\uc774\ud130\uc5d0\uc11c \uc5f4\uc758 \uc21c\ubc88\uc744 \ud30c\uc545\ud558\ub294 \uac83\uc774 \uc0dd\uac01\ub9cc\ud07c \uc27d\uc9c0 \uc54a\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">which(colnames(tb)=='hp'); which(colnames(tb)=='qsec') \r\n## [1] 4\r\n## [1] 7\r\ntb[, which(colnames(tb)=='hp'):which(colnames(tb)=='qsec')] \r\n## # A tibble: 3 x 4\r\n##      hp  drat    wt  qsec\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1    93  3.85  2.32  18.6\r\n## 2   110  3.08  3.22  19.4\r\n## 3   175  3.15  3.44  17.0\r\n<\/code><\/pre>\n<ul>\n<li><code>select<\/code>\ub97c \uc0ac\uc6a9\ud55c\ub2e4\uba74 \uac04\ub2e8\ud558\uac8c <code>select(hp:qsec)<\/code>\uc73c\ub85c \uc4f8 \uc218 \uc788\ub2e4. (\ud558\uc9c0\ub9cc <code>select('hp':'qsec')<\/code>\uc740 \uc4f8 \uc218 \uc5c6\uc74c\uc744 \uc8fc\uc758\ud558\uc790.<\/li>\n<\/ul>\n<pre><code class=\"r\">tb %&gt;% select(hp:qsec) \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 4\r\n##      hp  drat    wt  qsec\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1    93  3.85  2.32  18.6\r\n## 2   110  3.08  3.22  19.4\r\n## 3   175  3.15  3.44  17.0\r\n<\/pre>\n<p>\ub9c8\uc9c0\ub9c9\uc73c\ub85c <code>select<\/code>\ub294 \ucc38\uc870\ud558\uace0\uc790 \ud558\ub294 \uc5f4\uc774\ub984\uc744 \ud558\ub098\uc758 \ubca1\ud130\ub85c \ub9cc\ub4e4\uc9c0 \uc54a\uc544\ub3c4 \ub418\uc9c0\ub9cc, <code>slice<\/code>\uc758 \uacbd\uc6b0\ub294 \uadf8\ub807\uc9c0 \uc54a\ub2e4\ub294 \uc810\uc5d0 \uc720\uc758\ud558\uc790.<\/p>\n<pre><code class=\"r\">slice(tb, c(5,7)) \r\n<\/code><\/pre>\n<pre>## # A tibble: 0 x 11\r\n## # ... with 11 variables: mpg &lt;dbl&gt;, cyl &lt;dbl&gt;, disp &lt;dbl&gt;, hp &lt;dbl&gt;,\r\n## #   drat &lt;dbl&gt;, wt &lt;dbl&gt;, qsec &lt;dbl&gt;, vs &lt;dbl&gt;, am &lt;dbl&gt;, gear &lt;dbl&gt;,\r\n## #   carb &lt;dbl&gt;\r\n<\/pre>\n<pre><code class=\"r\">slice(tb, 5, 7) \r\n<\/code><\/pre>\n<pre>## Error in slice_impl(.data, dots): slice only accepts one expression\r\n<\/pre>\n<h4>\ud2b9\uc815\ud55c \uc870\uac74\uc744 \ub9cc\uc871\ud558\ub294 \uc5f4 \uc774\ub984 \ucc38\uc870<\/h4>\n<ul>\n<li><code>select<\/code> \ud568\uc218 \uc548\uc5d0 \ub2e4\uc74c\uc758 \ud568\uc218\ub97c \uc368\uc11c \uc5f4\uc774\ub984\uc774 \ud2b9\uc815\ud55c \uc870\uac74\uc744 \ub9cc\uc871\ud558\ub294 \uc5f4\ub9cc \uc120\ubcc4\ud560 \uc218 \uc788\ub2e4. \uba3c\uc800 \uc774\ud574\ud558\uae30 \uc26c\uc6b4 <code>starts_with( )<\/code>, <code>ends_with( )<\/code>, <code>contains_with( )<\/code>\ub97c \ubcf4\uc790. \ub2e4\uc74c\uc758 \uc608\ub85c \ucda9\ubd84\ud788 \uc774\ud574\ud560 \uc218 \uc788\uc744 \uac83\uc774\ub2e4.<\/li>\n<\/ul>\n<table>\n<thead>\n<tr>\n<th align=\"right\">\uad6c\ubb38<\/th>\n<th align=\"left\">\uc758\ubbf8<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td align=\"right\"><code>starts_with('ab')<\/code><\/td>\n<td align=\"left\"><code>ab<\/code>\ub85c \uc2dc\uc791\ud558\ub294<\/td>\n<\/tr>\n<tr>\n<td align=\"right\"><code>ends_with('yz')<\/code><\/td>\n<td align=\"left\"><code>yz<\/code>\ub85c \ub05d\ub098\ub294<\/td>\n<\/tr>\n<tr>\n<td align=\"right\"><code>contains_with('ef')<\/code><\/td>\n<td align=\"left\"><code>ef<\/code>\ub97c \ud3ec\ud568\ud558\ub294<\/td>\n<\/tr>\n<tr>\n<td align=\"right\"><code>one_of(coln)<\/code><\/td>\n<td align=\"left\">\ubb38\uc790\uc5f4 \ubca1\ud130 <code>coln<\/code>\uc758 \uac01 \uc6d0\uc18c\uc640 \uc77c\uce58\ud558\ub294<\/td>\n<\/tr>\n<tr>\n<td align=\"right\"><code>matches('..[cd]')<\/code><\/td>\n<td align=\"left\">\uc815\uaddc\ud45c\ud604\uc2dd <code>..[cd]<\/code>\uc5d0 \ub300\uc751\ud558\ub294<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<pre><code class=\"r\">tb3 &lt;- tb %&gt;% slice(1:3) \r\ntb3 \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 11\r\n##     mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  22.8     4   108    93  3.85  2.32  18.6     1     1     4     1\r\n## 2  21.4     6   258   110  3.08  3.22  19.4     1     0     3     1\r\n## 3  18.7     8   360   175  3.15  3.44  17.0     0     0     3     2\r\n<\/pre>\n<pre><code class=\"r\">tb3 %&gt;% select(starts_with('c')) \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 2\r\n##     cyl  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt;\r\n## 1     4     1\r\n## 2     6     1\r\n## 3     8     2\r\n<\/pre>\n<pre><code class=\"r\">tb3 %&gt;% select(starts_with('ca')) \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 1\r\n##    carb\r\n##   &lt;dbl&gt;\r\n## 1     1\r\n## 2     1\r\n## 3     2\r\n<\/pre>\n<pre><code class=\"r\">tb3 %&gt;% select(ends_with('p')) \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 2\r\n##    disp    hp\r\n##   &lt;dbl&gt; &lt;dbl&gt;\r\n## 1   108    93\r\n## 2   258   110\r\n## 3   360   175\r\n<\/pre>\n<pre><code class=\"r\">tb3 %&gt;% select(contains('c')) \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 3\r\n##     cyl  qsec  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1     4  18.6     1\r\n## 2     6  19.4     1\r\n## 3     8  17.0     2\r\n<\/pre>\n<ul>\n<li><code>select<\/code> \ud568\uc218\ub97c \uc4f0\uba74 \uc5f4\uc774\ub984\uc744 \ub530\uc634\ud45c \uc5c6\uc774 \uc4f8 \uc218 \uc788\ub2e4\ub294 \uc7a5\uc810\uc774 \uc788\ub2e4. \ud558\uc9c0\ub9cc \uc5f4\uc774\ub984\uc744 \uc800\uc7a5\ud558\ub294 \ubb38\uc790 \ubca1\ud130\ub97c \uc0ac\uc6a9\ud558\ub824\uba74 \uc5b4\ub5bb\uac8c \ud574\uc57c \ud558\ub294\uac00? \ubcf4\ud1b5\uc740 <code>'mpg'<\/code>\ub85c \uc4f0\uba74 \uc5f4\uc774\ub984\uc774 <code>mpg<\/code>\ub77c\ub294 \uc758\ubbf8\uc774\uace0, <code>mpg<\/code>\ub294 <code>mpg<\/code>\ub77c\ub294 \ubcc0\uc218\ub97c \uc758\ubbf8\ud55c\ub2e4. \ud558\uc9c0\ub9cc <code>select<\/code> \ud568\uc218 \uc548\uc5d0\uc11c\ub294 <code>mpg<\/code>\ub294 \uc5f4\uc774\ub984 <code>mpg<\/code>\ub97c \ub098\ud0c0\ub0b8\ub2e4. \ub9cc\uc57d <code>mpg<\/code> \ubca1\ud130\ub97c \uc758\ubbf8\ud558\uace0 \uc2f6\ub2e4\uba74 <code>one_of()<\/code> \ud568\uc218\ub97c \uc0ac\uc6a9\ud55c\ub2e4. (\uc5ec\uae30\uc11c\ub294 \uc5f4\uc774\ub984\uc744 \ub098\ud0c0\ub0b4\ub294 \ubca1\ud130\ub85c <code>coln<\/code>\uc744 \uc0ac\uc6a9\ud558\uc600\ub2e4. <strong>coln<\/strong>ame\uc744 \uc758\ubbf8\ud558\ub294 \uc774\ub984\uc774\ub2e4.)<\/li>\n<\/ul>\n<pre><code class=\"r\">coln &lt;- c('drat', 'qsec') \r\ntb3 %&gt;% select(one_of(coln)) \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 2\r\n##    drat  qsec\r\n##   &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  3.85  18.6\r\n## 2  3.08  19.4\r\n## 3  3.15  17.0\r\n<\/pre>\n<ul>\n<li><code>matches()<\/code> \ud568\uc218\ub294 \uc815\uaddc\ud45c\ud604\uc2dd\uc744 \uc0ac\uc6a9\ud558\uc5ec \uc5f4\uc774\ub984\uc744 \uc120\ud0dd\ud558\uae30 \uc704\ud574 \uc0ac\uc6a9\ud55c\ub2e4.<\/li>\n<\/ul>\n<p>\uc608\ub97c \ub4e4\uc5b4 \uc815\uaddc\ud45c\ud604\uc2dd <code>^(.s|.{4})<\/code>\ub294 \ub450\ubc88\uc9f8 \ubb38\uc790\uac00 <code>s<\/code>\uc774\uac70\ub098 \ub124\ubb38\uc790\ub85c \uc774\ub8e8\uc5b4\uc9c4 \uacbd\uc6b0\ub97c \ub098\ud0c0\ub0b8\ub2e4. \uc774\ub97c \uc0ac\uc6a9\ud574\uc11c \uc5f4\uc744 \uc120\ud0dd\ud558\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/p>\n<pre><code class=\"r\">tb3 %&gt;% select(matches('^(.s|.{4})')) \r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 6\r\n##    disp  drat  qsec    vs  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1   108  3.85  18.6     1     4     1\r\n## 2   258  3.08  19.4     1     3     1\r\n## 3   360  3.15  17.0     0     3     2\r\n<\/pre>\n<p>\uc774\ub7f0 \ud568\uc218(<code>starts_with<\/code>, <code>ends_with<\/code> \ub4f1)\uc758 \ub3c4\uc6c0 \uc5c6\uc774 \ub3d9\uc77c\ud55c \uc5f4\uc744 \uc120\ud0dd\ud558\uace0\uc790 \ud55c\ub2e4\uba74 \ubcf4\ud1b5 \uc815\uaddc\ud45c\ud604\uc2dd\uc744 \uc0ac\uc6a9\ud558\uac8c \ub41c\ub2e4. \ub3d9\uc77c\ud55c \uc5ed\ud560\uc744 \uc55e\uc5d0\uc11c \uc18c\uac1c\ud55c \ud568\uc218\ub97c \uc0ac\uc6a9\ud55c \uacbd\uc6b0\uc640 \uc815\uaddc\ud45c\ud604\uc2dd\uc744 \uc0ac\uc6a9\ud55c \uacbd\uc6b0\ub97c \ube44\uad50\ud574\ubcf4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/p>\n<table>\n<thead>\n<tr>\n<th align=\"center\"><code>dplyr<\/code>\uc758 \ud568\uc218<\/th>\n<th align=\"center\">\uc815\uaddc\ud45c\ud604\uc2dd<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td align=\"center\"><code>tb %&gt;% select(starts_with('c'))<\/code><\/td>\n<td align=\"center\"><code>tb[, grep('^c', colnames(tb)]<\/code><\/td>\n<\/tr>\n<tr>\n<td align=\"center\"><code>tb %&gt;% select(ends_with('p'))<\/code><\/td>\n<td align=\"center\"><code>tb[, grep('p$', colnames(tb))]<\/code><\/td>\n<\/tr>\n<tr>\n<td align=\"center\"><code>tb %&gt;% select(contains('c'))<\/code><\/td>\n<td align=\"center\"><code>tb[, grep('c', colnames(tb))]<\/code><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h3>\ud2b9\uc815\ud55c \uc5f4 \uc774\ub984 \uc81c\uc678<\/h3>\n<ul>\n<li>\ub9cc\uc57d <code>cyl<\/code>, <code>qsec<\/code>\uc744 \uc81c\uc678\ud55c \ub098\uba38\uc9c0 \uc5f4\uc744 \uc120\ud0dd\ud558\uace0 \uc2f6\ub2e4\uba74 \ub2e4\uc74c\uc758 \ub450 \ubc29\ubc95\uc744 \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">tb %&gt;% select(-cyl, -qsec)\r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 9\r\n##     mpg  disp    hp  drat    wt    vs    am  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  22.8   108    93  3.85  2.32     1     1     4     1\r\n## 2  21.4   258   110  3.08  3.22     1     0     3     1\r\n## 3  18.7   360   175  3.15  3.44     0     0     3     2\r\n<\/pre>\n<pre><code class=\"r\">tb %&gt;% select(-c(cyl, qsec))\r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 9\r\n##     mpg  disp    hp  drat    wt    vs    am  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  22.8   108    93  3.85  2.32     1     1     4     1\r\n## 2  21.4   258   110  3.08  3.22     1     0     3     1\r\n## 3  18.7   360   175  3.15  3.44     0     0     3     2\r\n<\/pre>\n<ul>\n<li>\ud2b9\uc815\ud55c \uc870\uac74\uc744 \ub9cc\uc871\ud558\ub294 \uc5f4 \uc774\ub984\uc744 \uc81c\uc678\ud558\uace0 \uc2f6\ub2e4\uba74 \uc704\uc5d0\uc11c \uc18c\uac1c\ud55c \ud568\uc218 <code>starts_with<\/code>, <code>ends_with<\/code> \ub4f1\uc758 \uc55e\uc5d0 <code>-<\/code>\ub97c \ubd99\uc778\ub2e4.<\/li>\n<\/ul>\n<pre><code class=\"r\">tb %&gt;% select(-starts_with('c'))\r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 9\r\n##     mpg  disp    hp  drat    wt  qsec    vs    am  gear\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  22.8   108    93  3.85  2.32  18.6     1     1     4\r\n## 2  21.4   258   110  3.08  3.22  19.4     1     0     3\r\n## 3  18.7   360   175  3.15  3.44  17.0     0     0     3\r\n<\/pre>\n<pre><code class=\"r\">tb %&gt;% select(-ends_with('p'))\r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 9\r\n##     mpg   cyl  drat    wt  qsec    vs    am  gear  carb\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  22.8     4  3.85  2.32  18.6     1     1     4     1\r\n## 2  21.4     6  3.08  3.22  19.4     1     0     3     1\r\n## 3  18.7     8  3.15  3.44  17.0     0     0     3     2\r\n<\/pre>\n<pre><code class=\"r\">tb %&gt;% select(-contains('c'))\r\n<\/code><\/pre>\n<pre>## # A tibble: 3 x 8\r\n##     mpg  disp    hp  drat    wt    vs    am  gear\r\n##   &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\r\n## 1  22.8   108    93  3.85  2.32     1     1     4\r\n## 2  21.4   258   110  3.08  3.22     1     0     3\r\n## 3  18.7   360   175  3.15  3.44     0     0     3\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>dplyr \ud328\ud0a4\uc9c0\ub97c \ud65c\uc6a9\ud55c \ub370\uc774\ud130 \uac00\uacf5 01: \ubd80\ubd84 \uc120\ud0dd\ud558\uae30(Subsetting) dplyr \ud328\ud0a4\uc9c0 dplyr \ud328\ud0a4\uc9c0\uc758 slice, filter, select, mutate, arrange, summarize, group_by, do \ub4f1\uc758 \ud568\uc218\ub294 \ub370\uc774\ud130 \uac00\uacf5\uc744 \ub3c4\uc640\uc900\ub2e4. \ud2b9\ud788 \uc774\ub984\uc5d0\uc11c \uc27d\uac8c \uc5f0\uc0c1\ub418\ub294 \uae30\ub2a5\uc73c\ub85c \ucd08\ubcf4\uc790\ub3c4 \uc27d\uac8c \ucf54\ub4dc\ub97c \uc77d\uc744 \uc218 \uc788\ub2e4. \ud2b9\ud788 %&gt;%\uc640 \ud568\uaed8 \uc0ac\uc6a9\ud558\uba74 \ucf54\ub4dc\ub97c \uc9c1\uad00\uc801\uc73c\ub85c \uc774\ud574\ub294\ub370 \ub3c4\uc6c0\uc774 \ub41c\ub2e4. \uc5ec\uae30\uc11c\ub294 mtcars \ub370\uc774\ud130\ub97c \ud65c\uc6a9\ud558\uc5ec dplyr \ud328\ud0a4\uc9c0\uc640 %&gt;%\ub97c \ud65c\uc6a9\ud558\uc5ec \ub370\uc774\ud130\ub97c \uac00\uacf5\ud558\ub294 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":2489,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[78,28],"tags":[74,75,73],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2019\/01\/tools-g87a8be036_640.jpg","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/836"}],"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=836"}],"version-history":[{"count":3,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/836\/revisions"}],"predecessor-version":[{"id":2490,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/836\/revisions\/2490"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/2489"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=836"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=836"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=836"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}