{"id":2297,"date":"2021-02-22T15:38:57","date_gmt":"2021-02-22T06:38:57","guid":{"rendered":"http:\/\/141.164.34.82\/?p=2297"},"modified":"2021-03-15T03:33:56","modified_gmt":"2021-03-14T18:33:56","slug":"multi-dim-table-tables-and-missing-values","status":"publish","type":"post","link":"http:\/\/ds.sumeun.org\/?p=2297","title":{"rendered":"Multi-dim table, tables, and missing values"},"content":{"rendered":"<ul>\n<li>3\uc904 \uc694\uc57d\n<ul>\n<li><code>table()<\/code> \uc2dc <code>NA<\/code>\uc758 \uc874\uc7ac\uc5d0 \uc720\uc758\ud558\uc790<\/li>\n<li>3\ucc28\uc6d0 \ud45c\ub97c 2\ucc28\uc6d0\uc73c\ub85c \ucd9c\ub825\ud558\uae30 \uc704\ud574 <code>ftable()<\/code>\uc744 \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4.<\/li>\n<li>\uc0c8\ub85c\uc6b4 \ud568\uc218 <code>ftab2tab()<\/code>\uc744 \uc815\uc758\ud558\uc5ec, \ub2e4\ucc28\uc6d0 \ud45c(<code>table()<\/code>) \uacb0\uacfc\ub97c 2\ucc28\uc6d0\uc73c\ub85c \ubcc0\ud615\ud55c\ub2e4.<\/li>\n<\/ul>\n<\/li>\n<\/ul>\n<h2>base function <code>table<\/code><\/h2>\n<p><code>table()<\/code> \ud568\uc218\ub294 \ubc94\uc8fc\ud615 \ubcc0\uc218\uc758 \ubd84\ud3ec\ub97c \ud655\uc778\ud574\ubcf4\ub294 \ub370 \uc694\uae34\ud558\uac8c \uc0ac\uc6a9\ub41c\ub2e4.<\/p>\n<pre><code class=\"r\">data(mpg, package='ggplot2')\r\nlibrary(dplyr)\r\n\r\ndrv &lt;- mpg$drv\r\ndrv[c(1,4,10,25,44,89,102,155)] = NA\r\ntable(drv)\r\n<\/code><\/pre>\n<pre>## drv\r\n##   4   f   r \r\n## 101 101  24\r\n<\/pre>\n<p><code>table()<\/code>\uc758 \uacb0\uacfc\ub294 1\ucc28\uc6d0 \ubca1\ud130\uc774\uac70\ub098, \ub2e4\ucc28\uc6d0 \ubc30\uc5f4\uc774 \ub41c\ub2e4.<\/p>\n<pre><code class=\"r\">with(mpg, table(drv, trans)) # 2\ucc28\uc6d0\r\n<\/code><\/pre>\n<pre>##    trans\r\n## drv auto(av) auto(l3) auto(l4) auto(l5) auto(l6) auto(s4) auto(s5) auto(s6) manual(m5) manual(m6)\r\n##   4        0        0       34       29        2        2        1        7         21          7\r\n##   f        5        2       37        8        2        1        2        8         33          8\r\n##   r        0        0       12        2        2        0        0        1          4          4\r\n<\/pre>\n<pre><code class=\"r\">tab3d &lt;- with(mpg, table(drv,trans, cyl))\r\ntab3d\r\n<\/code><\/pre>\n<pre>## , , cyl = 4\r\n## \r\n##    trans\r\n## drv auto(av) auto(l3) auto(l4) auto(l5) auto(l6) auto(s4) auto(s5) auto(s6) manual(m5) manual(m6)\r\n##   4        0        0        7        1        0        2        0        1         11          1\r\n##   f        2        2       17        5        0        0        1        3         22          6\r\n##   r        0        0        0        0        0        0        0        0          0          0\r\n## \r\n## , , cyl = 5\r\n## \r\n##    trans\r\n## drv auto(av) auto(l3) auto(l4) auto(l5) auto(l6) auto(s4) auto(s5) auto(s6) manual(m5) manual(m6)\r\n##   4        0        0        0        0        0        0        0        0          0          0\r\n##   f        0        0        0        0        0        0        0        2          2          0\r\n##   r        0        0        0        0        0        0        0        0          0          0\r\n## \r\n## , , cyl = 6\r\n## \r\n##    trans\r\n## drv auto(av) auto(l3) auto(l4) auto(l5) auto(l6) auto(s4) auto(s5) auto(s6) manual(m5) manual(m6)\r\n##   4        0        0        8       12        0        0        0        2          7          3\r\n##   f        3        0       20        3        2        0        1        3          9          2\r\n##   r        0        0        1        1        0        0        0        0          2          0\r\n## \r\n## , , cyl = 8\r\n## \r\n##    trans\r\n## drv auto(av) auto(l3) auto(l4) auto(l5) auto(l6) auto(s4) auto(s5) auto(s6) manual(m5) manual(m6)\r\n##   4        0        0       19       16        2        0        1        4          3          3\r\n##   f        0        0        0        0        0        1        0        0          0          0\r\n##   r        0        0       11        1        2        0        0        1          2          4\r\n<\/pre>\n<p>3\ucc28\uc6d0 \ud14c\uc774\ube14\uc758 \uad6c\uc870\ub97c \uc0b4\ud3b4\ubcf4\uba74 \ub2e4\uc74c\uacfc \uac19\ub2e4<\/p>\n<pre><code class=\"r\">str(tab3d)\r\n<\/code><\/pre>\n<pre>##  'table' int [1:3, 1:10, 1:4] 0 2 0 0 2 0 7 17 0 1 ...\r\n##  - attr(*, \"dimnames\")=List of 3\r\n##   ..$ drv  : chr [1:3] \"4\" \"f\" \"r\"\r\n##   ..$ trans: chr [1:10] \"auto(av)\" \"auto(l3)\" \"auto(l4)\" \"auto(l5)\" ...\r\n##   ..$ cyl  : chr [1:4] \"4\" \"5\" \"6\" \"8\"\r\n<\/pre>\n<p>\ud074\ub798\uc2a4\ub294 <code>table<\/code>\uc774\uc9c0\ub9cc 3\ucc28\uc6d0 \ubc30\uc5f4(<code>[1:3, 1:10, 1:4]<\/code>)\uc774\uba70, <code>dimnames<\/code>\ub85c \ucc28\uc6d0\uc758 \uc774\ub984\uc774 \ubd99\uc5ec\uc838 \uc788\uc74c\uc744 \uc54c \uc218 \uc788\ub2e4.<\/p>\n<p>\ucc45\uc5d0 \uc815\ub9ac\ub418\uc5b4 \uc788\ub4ef\uc774 <code>as.data.frame()<\/code>\uc73c\ub85c \ub370\uc774\ud130\ud504\ub808\uc784\uc73c\ub85c \ubcc0\ud658\ud560 \uc218\ub3c4 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">as.data.frame(tab3d, responseName = 'count') %&gt;% head\r\n<\/code><\/pre>\n<pre>##   drv    trans cyl count\r\n## 1   4 auto(av)   4     0\r\n## 2   f auto(av)   4     2\r\n## 3   r auto(av)   4     0\r\n## 4   4 auto(l3)   4     0\r\n## 5   f auto(l3)   4     2\r\n## 6   r auto(l3)   4     0\r\n<\/pre>\n<p><code>ftable(_TABLE, row.vars=c())<\/code>\uc758 <code>row.vars=<\/code>\uc5d0 \ud589\ub9c8\ub2e4 \ubc14\ub00c\ub294 \ucc28\uc6d0\uc744 \uc801\uc5b4\uc11c \uc880 \ub354 \ubcf4\uae30 \ud3b8\ud55c 2\ucc28\uc6d0 \ud45c\ub97c \ub9cc\ub4e4 \uc218\ub3c4 \uc788\ub2e4.<\/p>\n<pre><code class=\"r\">ftab &lt;- ftable(tab3d, row.vars = 2) # 2nd dim = trans\r\nftab\r\n<\/code><\/pre>\n<pre>##            drv  4           f           r         \r\n##            cyl  4  5  6  8  4  5  6  8  4  5  6  8\r\n## trans                                             \r\n## auto(av)        0  0  0  0  2  0  3  0  0  0  0  0\r\n## auto(l3)        0  0  0  0  2  0  0  0  0  0  0  0\r\n## auto(l4)        7  0  8 19 17  0 20  0  0  0  1 11\r\n## auto(l5)        1  0 12 16  5  0  3  0  0  0  1  1\r\n## auto(l6)        0  0  0  2  0  0  2  0  0  0  0  2\r\n## auto(s4)        2  0  0  0  0  0  0  1  0  0  0  0\r\n## auto(s5)        0  0  0  1  1  0  1  0  0  0  0  0\r\n## auto(s6)        1  0  2  4  3  2  3  0  0  0  0  1\r\n## manual(m5)     11  0  7  3 22  2  9  0  0  0  2  2\r\n## manual(m6)      1  0  3  3  6  0  2  0  0  0  0  4\r\n<\/pre>\n<h2>\ud328\ud0a4\uc9c0 <code>ztable<\/code><\/h2>\n<p>\ud328\ud0a4\uc9c0 <code>ztable<\/code>\uc744 \uc368\uc11c \uc5ec\ub7ec \ud615\uc2dd\uc758 \ud45c\ub97c \ub9cc\ub4e4\uc5b4 \ubcfc \uc218 \uc788\ub2e4.<\/p>\n<p>\ubb38\uc81c\ub294 <code>ztable<\/code>\uc774 3\ucc28\uc6d0 \uc774\uc0c1\uc758 \ud45c(<code>table()<\/code> \ud568\uc218\uc758 \uacb0\uacfc)\ub098 <code>ftable()<\/code>\uc758 \uacb0\uacfc\ub97c \uc9c0\uc6d0\ud558\uc9c0 \uc54a\ub294\ub2e4\ub294 \uc810\uc774\ub2e4. \uc544\ub798\uc758 \ud568\uc218\ub294 <code>ftable()<\/code>\uc758 \uacb0\uacfc\ub97c 2\ucc28\uc6d0\uc758 \ud45c\ub85c \ubcc0\ud658\ud558\uc5ec <code>ztable()<\/code>\uc744 \ud65c\uc6a9\ud560 \uc218 \uc788\uac8c \ud55c\ub2e4.<\/p>\n<pre><code class=\"r\">ftab2tab = function(ftab) {\r\n  col_vars = attr(ftab, 'col.vars')\r\n  col_vars = col_vars[length(col_vars):1]\r\n  cols = do.call(expand.grid, c(col_vars, list(stringsAsFactors = FALSE)))\r\n  .cols = do.call(paste, c(cols, list(sep='-')))\r\n\r\n  row_vars = attr(ftab, 'row.vars')\r\n  row_vars = row_vars[length(row_vars):1]\r\n  rows = do.call(expand.grid, c(row_vars, list(stringsAsFactors = FALSE)))\r\n  .rows = do.call(paste, c(rows, list(sep='-')))\r\n\r\n  class(ftab) = 'table'\r\n  dimnames(ftab) = list(.rows, .cols)\r\n  names(dimnames(ftab)) = c(paste0(names(row_vars), collapse='-'),\r\n                            paste0(names(col_vars), collapse='-'))\r\n  return(ftab)\r\n}\r\n<\/code><\/pre>\n<pre><code class=\"r\">library(ztable)\r\nftab &lt;- ftable(tab3d, row.vars = 2) # 2nd dim = trans\r\nztable(ftab)\r\n<\/code><\/pre>\n<pre>## \r\n##  Sorry, Currently function ztable() cannot handle the object of class ftable!\r\n<\/pre>\n<pre><code class=\"r\">#https:\/\/cran.r-project.org\/web\/packages\/kableExtra\/vignettes\/awesome_table_in_html.html\r\n#\uc544\ub798 \ucd9c\ub825\uc740 rmakrdown\uc758 chunk option\uc744 results='asis'\ub85c \ub450\uc5c8\uc74c\r\nztable(ftab2tab(ftab))\r\n<\/code><\/pre>\n<p>&nbsp;<\/p>\n<style>\n        table {<br \/>\n              font-family: times ;<br \/>\ncolor:  black ;<br \/>\ntext-align: right;}<br \/>\n        th {<br \/>\n              padding: 1px 1px 5px 5px;<br \/>\n            }<br \/>\n        td {<br \/>\n             padding: 1px 1px 5px 5px; }<br \/>\n      <\/style>\n<p>&nbsp;<\/p>\n<table style=\"border-collapse: collapse; caption-side: top; font-size: 11pt;\" align=\"center\">\n<caption style=\"text-align: center;\">\u00a0<\/caption>\n<tbody>\n<tr>\n<th style=\"border-left: 0px solid black; background-color: #ffffff; border-top: 2px solid gray; border-bottom: 1px solid gray;\"><\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">4-4<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">5-4<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">6-4<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">8-4<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">4-f<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">5-f<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">6-f<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">8-f<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">4-r<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">5-r<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">6-r<\/th>\n<th style=\"font-weight: normal; border-left: 0px solid black; border-right: 0px solid black; border-bottom: 1px solid gray; border-top: 2px solid gray;\" align=\"center\">8-r<\/th>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black;\">auto(av)<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">3<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black;\" align=\"right\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">auto(l3)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">auto(l4)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">7<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">8<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">19<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">17<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">20<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">11<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">auto(l5)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">12<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">16<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">5<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">3<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">auto(l6)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">auto(s4)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">auto(s5)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">auto(s6)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">4<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">3<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">3<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">manual(m5)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">11<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">7<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">3<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">22<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">9<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<\/tr>\n<tr>\n<td style=\"border-left: 0px solid black; border-top: hidden;\">manual(m6)<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">1<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">3<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">3<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">6<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">2<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-top: hidden;\" align=\"right\">0<\/td>\n<td style=\"border-left: 0px solid black; border-right: 0px solid black; border-top: hidden;\" align=\"right\">4<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 9pt; border-top: 1px solid black; border-bottom: hidden;\" colspan=\"13\" align=\"left\"><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h2><code>kable<\/code> \ud328\ud0a4\uc9c0<\/h2>\n<p>\uc0ac\uc2e4 <code>ztable<\/code>\ubcf4\ub2e4 <code>kable<\/code> \ud328\ud0a4\uc9c0\uac00 \ub354 \uc720\uba85\ud558\uae34 \ud558\ub2e4. \ud558\uc9c0\ub9cc <code>kable<\/code> \ud328\ud0a4\uc9c0\ub3c4 <code>ftable()<\/code> \uacb0\uacfc\uc5d0 \ub300\ud574\uc11c\ub294 \uc9c0\uc6d0\ud558\uc9c0 \uc54a\ub294\ub2e4. <a href=\"https:\/\/cran.r-project.org\/web\/packages\/kableExtra\/vignettes\/awesome_table_in_html.html\">Vignettes<\/a>\ub97c \ucc38\uc870\ud558\uc5ec \uba4b\uc9c4 \ud45c(table)\uc744 \ud558\ub098 \ub9cc\ub4e4\uc5b4\ubcf4\ub294 \uac83\ub3c4 \uc88b\uaca0\ub2e4.<\/p>\n<pre><code class=\"r\">library(kableExtra)\r\nas.data.frame(tab3d, responseName = 'count') %&gt;% \r\n  head() %&gt;% \r\n  kbl() %&gt;% \r\n  kable_styling()\r\n<\/code><\/pre>\n<table class=\"table\" style=\"margin-left: auto; margin-right: auto;\">\n<thead>\n<tr>\n<th style=\"text-align: left;\">drv<\/th>\n<th style=\"text-align: left;\">trans<\/th>\n<th style=\"text-align: left;\">cyl<\/th>\n<th style=\"text-align: right;\">count<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: left;\">auto(av)<\/td>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">f<\/td>\n<td style=\"text-align: left;\">auto(av)<\/td>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">r<\/td>\n<td style=\"text-align: left;\">auto(av)<\/td>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: left;\">auto(l3)<\/td>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">f<\/td>\n<td style=\"text-align: left;\">auto(l3)<\/td>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">r<\/td>\n<td style=\"text-align: left;\">auto(l3)<\/td>\n<td style=\"text-align: left;\">4<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<pre><code class=\"r\">#tab3d %&gt;% kbl() %&gt;% kable_styling() # as.data.frame(tab3d) %&gt;% ...\uc640 \ub3d9\uc77c\ud55c \uacb0\uacfc\r\n#ftab %&gt;% kbl() %&gt;% kable_styling() # \uae38\uace0 \uae34 \ud14c\uc774\ube14\r\nftab %&gt;% ftab2tab %&gt;% kbl() %&gt;% kable_styling()\r\n<\/code><\/pre>\n<table class=\"table\" style=\"margin-left: auto; margin-right: auto;\">\n<thead>\n<tr>\n<th style=\"text-align: left;\"><\/th>\n<th style=\"text-align: right;\">4-4<\/th>\n<th style=\"text-align: right;\">5-4<\/th>\n<th style=\"text-align: right;\">6-4<\/th>\n<th style=\"text-align: right;\">8-4<\/th>\n<th style=\"text-align: right;\">4-f<\/th>\n<th style=\"text-align: right;\">5-f<\/th>\n<th style=\"text-align: right;\">6-f<\/th>\n<th style=\"text-align: right;\">8-f<\/th>\n<th style=\"text-align: right;\">4-r<\/th>\n<th style=\"text-align: right;\">5-r<\/th>\n<th style=\"text-align: right;\">6-r<\/th>\n<th style=\"text-align: right;\">8-r<\/th>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td style=\"text-align: left;\">auto(av)<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">3<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">auto(l3)<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">auto(l4)<\/td>\n<td style=\"text-align: right;\">7<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">8<\/td>\n<td style=\"text-align: right;\">19<\/td>\n<td style=\"text-align: right;\">17<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">20<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">11<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">auto(l5)<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">12<\/td>\n<td style=\"text-align: right;\">16<\/td>\n<td style=\"text-align: right;\">5<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">3<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">auto(l6)<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">auto(s4)<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">auto(s5)<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">auto(s6)<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">4<\/td>\n<td style=\"text-align: right;\">3<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">3<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">manual(m5)<\/td>\n<td style=\"text-align: right;\">11<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">7<\/td>\n<td style=\"text-align: right;\">3<\/td>\n<td style=\"text-align: right;\">22<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">9<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<\/tr>\n<tr>\n<td style=\"text-align: left;\">manual(m6)<\/td>\n<td style=\"text-align: right;\">1<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">3<\/td>\n<td style=\"text-align: right;\">3<\/td>\n<td style=\"text-align: right;\">6<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">2<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">0<\/td>\n<td style=\"text-align: right;\">4<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h2><code>tables<\/code> \ud328\ud0a4\uc9c0<\/h2>\n<p><a href=\"https:\/\/cran.r-project.org\/web\/packages\/tables\/vignettes\/tables.pdf\">\ucd9c\ub825\uc774 LaTeX\uc774\ub77c\uba74 <code>tables<\/code> \ud328\ud0a4\uc9c0\ub97c \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4\uace0 \ud55c\ub2e4.<\/a><\/p>\n<h2><code>useNA<\/code> \uc778\uc790<\/h2>\n<p>\ud568\uc218 <code>table()<\/code>\uc758 \uacb0\uacfc\uc5d0 \uae30\ubcf8\uc801\uc73c\ub85c <code>NA<\/code>\ub294 \ud3ec\ud568\ub418\uc9c0 \uc54a\uc74c\uc744 \uc720\uc758\ud558\uc790. <code>NA<\/code>\ub97c \ud3ec\ud568\uc2dc\ud0a4\ub824\uba74 <code>useNA='ifany<\/code>\ub098 <code>useNA='always'<\/code>\ub97c \ud574\uc57c \ud55c\ub2e4.<\/p>\n<pre><code class=\"r\">table(drv, useNA = 'ifany')\r\n<\/code><\/pre>\n<pre>## drv\r\n##    4    f    r &lt;NA&gt; \r\n##  101  101   24    8\r\n<\/pre>\n<p>\ud544\uc790\ub294 \ud56d\uc0c1 <code>NA<\/code>\uc758 \uc874\uc7ac \ubc0f \uac2f\uc218\ub97c \ud655\uc778\ud558\uace0\uc790 \ub2e4\uc74c\uacfc \uac19\uc774 <code>table<\/code> \ud568\uc218\ub97c \uc7ac\uc815\uc758\ud574 \ub193\ub294\ub2e4.<\/p>\n<pre><code class=\"r\">table = function(..., useNA = 'ifany') {\r\n  base::table(..., useNA = useNA)\r\n}\r\n<\/code><\/pre>\n<h3>\uc870\uac74\uc5d0 \ud574\ub2f9\ud558\ub294 \uacbd\uc6b0 \ud655\uc778\ud558\uae30<\/h3>\n<pre><code class=\"r\">#trans &lt;- mpg$trans\r\n#trans[sample(length(trans), 10)] &lt;- NA\r\nmpg[sample(nrow(mpg), 10), 'trans'] &lt;- NA\r\ntable(mpg$trans)\r\n<\/code><\/pre>\n<pre>## \r\n##   auto(av)   auto(l3)   auto(l4)   auto(l5)   auto(l6)   auto(s4)   auto(s5)   auto(s6) manual(m5) manual(m6) \r\n##          4          2         79         38          6          3          3         15         56         18 \r\n##       &lt;NA&gt; \r\n##         10\r\n<\/pre>\n<p>\ub9cc\uc57d <code>trans<\/code>\uc758 \ubc94\uc8fc \uc911\uc5d0\uc11c \uac2f\uc218\uac00 12\uac1c \ubbf8\ub9cc\uc778 \uacbd\uc6b0\ub9cc\uc744 \ud655\uc778\ud558\uace0\uc790 \ud55c\ub2e4\uba74 \uc5b4\ub5bb\uac8c \ud574\uc57c \ud560\uae4c? \uac00\uc7a5 \uc190\uc26c\uc6b4 \ubc29\ubc95\uc740 \ub2e4\uc74c\uacfc \uac19\ub2e4.<\/p>\n<pre><code class=\"r\">tbl &lt;- table(mpg$trans)\r\ntbl[tbl &lt; 12]\r\n<\/code><\/pre>\n<pre>## \r\n## auto(av) auto(l3) auto(l6) auto(s4) auto(s5)     &lt;NA&gt; \r\n##        4        2        6        3        3       10\r\n<\/pre>\n<h2>\ucc38\uace0\uc790\ub8cc<\/h2>\n<ul>\n<li><a href=\"https:\/\/rfortherestofus.com\/2019\/11\/how-to-make-beautiful-tables-in-r\/\">R\uc758 \ub2e4\uc591\ud55c \ud45c \ucd9c\ub825<\/a><\/li>\n<\/ul>\n<h2>PS<\/h2>\n<p>\ub0b4\uac00 \ub9cc\ub4e4\uc5c8\uc9c0\ub9cc \ud639\uc2dc \uc798\ubabb \uc791\ub3d9\ud558\ub294 \ubd80\ubd84\uc740 \uc5c6\ub294\uc9c0 \ud655\uc778\ud574\ubcf8\ub2e4.<\/p>\n<pre><code class=\"r\">tab &lt;- with(mtcars, table(vs, am, gear, carb))\r\nftab &lt;- ftable(tab, row.vars=c(1,2))\r\nftab\r\n<\/code><\/pre>\n<pre>##       gear 3           4           5           NA          \r\n##       carb 1 2 3 4 6 8 1 2 3 4 6 8 1 2 3 4 6 8  1 2 3 4 6 8\r\n## vs am                                                      \r\n## 0  0       0 3 3 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0  0 0 0 0 0 0\r\n##    1       0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 1 1  0 0 0 0 0 0\r\n##    NA      0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0  0 1 0 1 0 0\r\n## 1  0       3 0 0 0 0 0 0 2 0 2 0 0 0 0 0 0 0 0  0 0 0 0 0 0\r\n##    1       0 0 0 0 0 0 3 2 0 0 0 0 0 1 0 0 0 0  0 0 0 0 0 0\r\n##    NA      0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0  1 0 0 0 0 0\r\n<\/pre>\n<pre><code class=\"r\">ftab2tab(ftab)\r\n<\/code><\/pre>\n<pre>##       carb-gear\r\n## am-vs  1-3 2-3 3-3 4-3 6-3 8-3 1-4 2-4 3-4 4-4 6-4 8-4 1-5 2-5 3-5 4-5 6-5 8-5 1-NA 2-NA 3-NA 4-NA 6-NA 8-NA\r\n##   0-0    0   3   3   5   0   0   0   0   0   0   0   0   0   0   0   0   0   0    0    0    0    0    0    0\r\n##   1-0    0   0   0   0   0   0   0   0   0   1   0   0   0   1   0   1   1   1    0    0    0    0    0    0\r\n##   NA-0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0    0    1    0    1    0    0\r\n##   0-1    3   0   0   0   0   0   0   2   0   2   0   0   0   0   0   0   0   0    0    0    0    0    0    0\r\n##   1-1    0   0   0   0   0   0   3   2   0   0   0   0   0   1   0   0   0   0    0    0    0    0    0    0\r\n##   NA-1   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0   0    1    0    0    0    0    0\r\n<\/pre>\n<p>NA\uac00 \uc874\uc7ac\ud558\uba74 \uacb0\uacfc\uac00 \uc5b4\ub5bb\uac8c \ubc14\ub00c\ub294\uc9c0\ub3c4 \ud655\uc778\ud574\ubcf4\uc790.<\/p>\n<pre><code class=\"r\">mtcars[c(1,3,5), c(9,10)] = NA\r\ntab &lt;- with(mtcars, table(vs, am, gear, carb, useNA='always'))\r\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>3\uc904 \uc694\uc57d table() \uc2dc NA\uc758 \uc874\uc7ac\uc5d0 \uc720\uc758\ud558\uc790 3\ucc28\uc6d0 \ud45c\ub97c 2\ucc28\uc6d0\uc73c\ub85c \ucd9c\ub825\ud558\uae30 \uc704\ud574 ftable()\uc744 \uc0ac\uc6a9\ud560 \uc218 \uc788\ub2e4. \uc0c8\ub85c\uc6b4 \ud568\uc218 ftab2tab()\uc744 \uc815\uc758\ud558\uc5ec, \ub2e4\ucc28\uc6d0 \ud45c(table()) \uacb0\uacfc\ub97c 2\ucc28\uc6d0\uc73c\ub85c \ubcc0\ud615\ud55c\ub2e4. base function table table() \ud568\uc218\ub294 \ubc94\uc8fc\ud615 \ubcc0\uc218\uc758 \ubd84\ud3ec\ub97c \ud655\uc778\ud574\ubcf4\ub294 \ub370 \uc694\uae34\ud558\uac8c \uc0ac\uc6a9\ub41c\ub2e4. data(mpg, package=&#8217;ggplot2&#8242;) library(dplyr) drv &lt;- mpg$drv drv[c(1,4,10,25,44,89,102,155)] = NA table(drv) ## drv ## 4 f r ## 101 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":2314,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[28,179],"tags":[46,480,383],"jetpack_featured_media_url":"http:\/\/ds.sumeun.org\/wp-content\/uploads\/2021\/02\/Multi-dim-table-tables-and-missing-values-\u2013-\uc228\uc740\uc6d0\ub9ac-\ub370\uc774\ud130\uc0ac\uc774\uc5b8\uc2a4_-R\ub85c-\ud558\ub294-\ub370\uc774\ud130-\uc0ac\uc774\uc5b8\uc2a4-Chrome-2021-03-15-\uc624\uc804-3_32_38-2.png","_links":{"self":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2297"}],"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=2297"}],"version-history":[{"count":4,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2297\/revisions"}],"predecessor-version":[{"id":2315,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/posts\/2297\/revisions\/2315"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=\/wp\/v2\/media\/2314"}],"wp:attachment":[{"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2297"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2297"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/ds.sumeun.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2297"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}