{"id":262,"date":"2023-11-11T09:20:08","date_gmt":"2023-11-11T00:20:08","guid":{"rendered":"http:\/\/bunseki-data.com\/r-onlinecourse\/?p=262"},"modified":"2023-11-11T09:22:42","modified_gmt":"2023-11-11T00:22:42","slug":"%e8%a1%8c%e6%96%b9%e5%90%91%e3%81%ab%e3%82%b0%e3%83%ab%e3%83%bc%e3%83%97%e5%8c%96%e3%81%97%e3%81%a6%e3%80%81%e8%a1%8c%e6%96%b9%e5%90%91%e3%81%a7%e8%a8%88%e7%ae%97%e3%83%bb%e9%9b%86%e8%a8%88%e3%82%92","status":"publish","type":"post","link":"https:\/\/bunseki-data.com\/r-onlinecourse\/2023\/11\/11\/%e8%a1%8c%e6%96%b9%e5%90%91%e3%81%ab%e3%82%b0%e3%83%ab%e3%83%bc%e3%83%97%e5%8c%96%e3%81%97%e3%81%a6%e3%80%81%e8%a1%8c%e6%96%b9%e5%90%91%e3%81%a7%e8%a8%88%e7%ae%97%e3%83%bb%e9%9b%86%e8%a8%88%e3%82%92\/","title":{"rendered":"\u884c\u65b9\u5411\u306b\u30b0\u30eb\u30fc\u30d7\u5316\u3057\u3066\u3001\u884c\u65b9\u5411\u3067\u8a08\u7b97\u30fb\u96c6\u8a08\u3092\u884c\u3046\u65b9\u6cd5"},"content":{"rendered":"\n<h1 class=\"wp-block-heading\" id=\"rowwise-c-across-na\"><code>rowwise<\/code>\u3068<code>c_across<\/code>\u3092\u5229\u7528\u3057\u3066\u884c\u65b9\u5411\u3067NA\u3092\u9664\u53bb\u3059\u308b<\/h1>\n\n\n\n<h2 class=\"wp-block-heading\" id=\"section_1\">\u5c0e\u5165<\/h2>\n\n\n\n<p>\u3084\u3063\u3066\u307f\u308b\u3068\u56f0\u308b\u51e6\u7406\u3068\u3057\u3066\u3001\u884c\u5358\u4f4d\u3067\u300c\u5168\u90e8NA\u306e\u5834\u5408\u306bfilter\u3092\u304b\u3051\u3066\u7701\u304f\u300d\u3068\u3044\u3046\u3082\u306e\u304c\u3042\u308a\u307e\u3059\u3002\u4eca\u56de\u3001\u3061\u3087\u3063\u3068\u8a70\u307e\u3063\u3066\u8abf\u3079\u305f\u306e\u3067\u3001\u305d\u3053\u3067\u5b66\u3093\u3060\u95a2\u6570\u306e\u4f7f\u3044\u304b\u305f\u3092\u8a18\u4e8b\u3068\u3057\u3066\u5171\u6709\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u5c1a\u3001\u30d2\u30f3\u30c8\u3068\u306a\u3063\u305f\u306e\u306f<\/p>\n\n\n\n<p><a href=\"https:\/\/stackoverflow.com\/questions\/4862178\/remove-rows-with-all-or-some-nas-missing-values-in-data-frame\">\u3053\u306e\u30b9\u30bf\u30c3\u30af\u30aa\u30fc\u30d0\u30fc\u30d5\u30ed\u30fc\u306e\u8cea\u554f\u3067\u3059\u3002<\/a><\/p>\n\n\n\n<h2 class=\"wp-block-heading\" id=\"section_2\">\u6b20\u640d\u5024\u3092\u30d5\u30a3\u30eb\u30bf\u30fc\u3057\u3066\u307f\u308b<\/h2>\n\n\n\n<p>\u305d\u308c\u3067\u306f\u306f\u3058\u3081\u307e\u3057\u3087\u3046\u3002\u307e\u305a\u306f\u3001\u30c7\u30fc\u30bf\u3092\u4f5c\u3063\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>library(tidyverse)\n\ndat &lt;- tibble(\n  a1 = sample(c(1,NA), 300, replace=TRUE),\n  a2 = sample(c(1,NA), 300, replace=TRUE),\n  b1 = sample(c(1,NA), 300, replace=TRUE),\n  b2 = sample(c(1,NA), 300, replace=TRUE)\n)\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>knitr::kable(head(dat))\n<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>a1<\/th><th>a2<\/th><th>b1<\/th><th>b2<\/th><\/tr><\/thead><tbody><tr><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>NA<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>NA<\/td><td>NA<\/td><\/tr><tr><td>1<\/td><td>1<\/td><td>NA<\/td><td>1<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>NA<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>NA<\/td><td>1<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>1<\/td><td>NA<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u3053\u306e\u30c7\u30fc\u30bf\u3001\u5404\u5217\u306b1\u304bNA\uff08\u6b20\u640d\uff09\u306e\u3044\u305a\u308c\u304b\u3092\u30e9\u30f3\u30c0\u30e0\u306b\u633f\u5165\u3057\u3066\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3053\u3053\u3067\u3001\u3053\u306e\u30c7\u30fc\u30bf\u306e\u7d44\u307f\u5408\u308f\u305b\u3092\u78ba\u8a8d\u3059\u308b\u3068\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat %&gt;% \n  count(a1,a2,b1,b2) %&gt;% \n  knitr::kable()\n<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>a1<\/th><th>a2<\/th><th>b1<\/th><th>b2<\/th><th>n<\/th><\/tr><\/thead><tbody><tr><td>1<\/td><td>1<\/td><td>1<\/td><td>1<\/td><td>22<\/td><\/tr><tr><td>1<\/td><td>1<\/td><td>1<\/td><td>NA<\/td><td>11<\/td><\/tr><tr><td>1<\/td><td>1<\/td><td>NA<\/td><td>1<\/td><td>15<\/td><\/tr><tr><td>1<\/td><td>1<\/td><td>NA<\/td><td>NA<\/td><td>23<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>1<\/td><td>1<\/td><td>17<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>1<\/td><td>NA<\/td><td>18<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>NA<\/td><td>1<\/td><td>23<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>21<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>1<\/td><td>16<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>NA<\/td><td>22<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>NA<\/td><td>1<\/td><td>19<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>NA<\/td><td>NA<\/td><td>20<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>1<\/td><td>1<\/td><td>21<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>1<\/td><td>NA<\/td><td>18<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>1<\/td><td>13<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>21<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u3053\u3093\u306a\u611f\u3058\u3067\u3059\u3002<\/p>\n\n\n\n<p>\u3067\u3001\u3059\u3079\u3066\u306e\u5217\u304cNA\u306e\u5834\u5408\u306e\u5217\u3092\u9664\u53bb\u3057\u3066\u307f\u3088\u3046\u3068\u3059\u308b\u3068\u3001\u666e\u901a\u306b\u66f8\u304f\u3068<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat %&gt;% \n  filter( !(is.na(a1) &amp; is.na(a2) &amp; is.na(b1) &amp; is.na(b2))) %&gt;% \n  count(a1,a2,b1,b2)\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## # A tibble: 15 \u00d7 5\n##       a1    a2    b1    b2     n\n##    &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;int&gt;\n##  1     1     1     1     1    22\n##  2     1     1     1    NA    11\n##  3     1     1    NA     1    15\n##  4     1     1    NA    NA    23\n##  5     1    NA     1     1    17\n##  6     1    NA     1    NA    18\n##  7     1    NA    NA     1    23\n##  8     1    NA    NA    NA    21\n##  9    NA     1     1     1    16\n## 10    NA     1     1    NA    22\n## 11    NA     1    NA     1    19\n## 12    NA     1    NA    NA    20\n## 13    NA    NA     1     1    21\n## 14    NA    NA     1    NA    18\n## 15    NA    NA    NA     1    13\n<\/pre>\n\n\n\n<p>\u3053\u308c\u3067\u3067\u304d\u307e\u3059\u3002\u305f\u3060\u3001\u3053\u3053\u3067\u3082\u3057\u5909\u6570\u304c100\u500b\u3068\u304b\u3042\u308b\u3068\u3001\u3053\u306e\u65b9\u6cd5\u3060\u3068\u304b\u306a\u308a\u9762\u5012\u3002\u3002\u3002<br>\u306a\u306e\u3067\u3001\u3053\u3046\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat %&gt;% \n  rowwise() %&gt;% \n  filter(!all(is.na(c_across())))\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## Warning: There was 1 warning in `filter()`.\n## \u2139 In argument: `!all(is.na(c_across()))`.\n## \u2139 In row 1.\n## Caused by warning:\n## ! Using `c_across()` without supplying `cols` was deprecated in\n##   dplyr 1.1.0.\n## \u2139 Please supply `cols` instead.\n<\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## # A tibble: 279 \u00d7 4\n## # Rowwise: \n##       a1    a2    b1    b2\n##    &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\n##  1     1    NA    NA    NA\n##  2     1     1    NA     1\n##  3    NA     1     1    NA\n##  4     1    NA    NA     1\n##  5     1    NA     1    NA\n##  6    NA    NA     1    NA\n##  7    NA     1     1     1\n##  8     1    NA     1     1\n##  9    NA    NA     1     1\n## 10    NA     1    NA     1\n## # \u2139 269 more rows\n<\/pre>\n\n\n\n<p>\u3053\u308c\u3067\u3001\u884c\u306e\u3059\u3079\u3066\u306e\u5024\u304cNA\uff08\u6b20\u640d\u3057\u3066\u3044\u308b\uff09\u5834\u5408\u306e\u30c7\u30fc\u30bf\u3092\u9664\u5916\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n\n\n\n<p>\u305f\u3060\u3001<br>\u9664\u5916\u3067\u3084\u308b\u3068\u3001\u672c\u5f53\u306b\u3067\u304d\u3066\u3044\u308b\u306e\u304b\u602a\u3057\u3044\u306e\u3067\u3001\u62bd\u51fa\u3057\u3066\u307f\u307e\u3057\u3087\u3046<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat %&gt;% \n  rowwise() %&gt;% \n  filter(all(is.na(c_across())))\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## # A tibble: 21 \u00d7 4\n## # Rowwise: \n##       a1    a2    b1    b2\n##    &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\n##  1    NA    NA    NA    NA\n##  2    NA    NA    NA    NA\n##  3    NA    NA    NA    NA\n##  4    NA    NA    NA    NA\n##  5    NA    NA    NA    NA\n##  6    NA    NA    NA    NA\n##  7    NA    NA    NA    NA\n##  8    NA    NA    NA    NA\n##  9    NA    NA    NA    NA\n## 10    NA    NA    NA    NA\n## # \u2139 11 more rows\n<\/pre>\n\n\n\n<p>\u3067\u304d\u3066\u307e\u3059\u306d\uff1f<\/p>\n\n\n\n<p>\u4ed6\u306b\u3082\u3001a\u3067\u59cb\u307e\u308b\u5217\u304c\u6b20\u640d\u3057\u3066\u3044\u308b\u884c\u3060\u3051\u3092\u629c\u304d\u51fa\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat %&gt;% \n  rowwise() %&gt;% \n  filter(all(is.na(c_across(starts_with(\"a\")))))\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## # A tibble: 73 \u00d7 4\n## # Rowwise: \n##       a1    a2    b1    b2\n##    &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\n##  1    NA    NA    NA    NA\n##  2    NA    NA     1    NA\n##  3    NA    NA     1     1\n##  4    NA    NA     1     1\n##  5    NA    NA     1    NA\n##  6    NA    NA    NA     1\n##  7    NA    NA     1    NA\n##  8    NA    NA     1    NA\n##  9    NA    NA     1    NA\n## 10    NA    NA    NA     1\n## # \u2139 63 more rows\n<\/pre>\n\n\n\n<p>1\u3067\u7d42\u308f\u308b\u5217\u304c\u6b20\u640d\u3057\u3066\u3044\u308b\u884c\u3060\u3051\u3092\u629c\u304d\u51fa\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat %&gt;% \n  rowwise() %&gt;% \n  filter(all(is.na(c_across(ends_with(\"1\")))))\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## # A tibble: 73 \u00d7 4\n## # Rowwise: \n##       a1    a2    b1    b2\n##    &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt; &lt;dbl&gt;\n##  1    NA    NA    NA    NA\n##  2    NA     1    NA     1\n##  3    NA     1    NA     1\n##  4    NA    NA    NA     1\n##  5    NA     1    NA    NA\n##  6    NA     1    NA    NA\n##  7    NA     1    NA    NA\n##  8    NA    NA    NA     1\n##  9    NA    NA    NA     1\n## 10    NA    NA    NA    NA\n## # \u2139 63 more rows\n<\/pre>\n\n\n\n<p>\u3067\u304d\u3066\u307e\u3059\u306d\uff1f<\/p>\n\n\n\n<p>\u3053\u306e\u3001\u95a2\u6570\u306e\u50cd\u304d\u3001filter\u3067\u306f\u306a\u304f\u3066\u3001mutate\u95a2\u6570\u3092\u5229\u7528\u3057\u3066<br>\u30a4\u30e1\u30fc\u30b8\u3068\u3057\u3066\u898b\u308b\u3068\u3001\u6b21\u306e\u3088\u3046\u306a\u5f62\u306b\u306a\u308a\u307e\u3059<\/p>\n\n\n\n<figure class=\"wp-block-image size-large\"><img decoding=\"async\" width=\"1024\" height=\"576\" src=\"http:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/rowwise_c_across-1024x576.png\" alt=\"\" class=\"wp-image-265\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/rowwise_c_across-1024x576.png 1024w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/rowwise_c_across-300x169.png 300w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/rowwise_c_across-768x432.png 768w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2023\/11\/rowwise_c_across.png 1280w\" sizes=\"(max-width: 1024px) 100vw, 1024px\" \/><\/figure>\n\n\n\n<pre class=\"wp-block-code\"><code>result &lt;- dat %&gt;% \n  rowwise() %&gt;% \n  mutate(res = sum(is.na(c_across(everything()))))\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>knitr::kable(head(result,20))\n<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>a1<\/th><th>a2<\/th><th>b1<\/th><th>b2<\/th><th>res<\/th><\/tr><\/thead><tbody><tr><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>4<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>NA<\/td><td>NA<\/td><td>3<\/td><\/tr><tr><td>1<\/td><td>1<\/td><td>NA<\/td><td>1<\/td><td>1<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>NA<\/td><td>2<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>NA<\/td><td>1<\/td><td>2<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>1<\/td><td>NA<\/td><td>2<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>1<\/td><td>NA<\/td><td>3<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>1<\/td><td>1<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>1<\/td><td>1<\/td><td>1<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>1<\/td><td>1<\/td><td>2<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>NA<\/td><td>1<\/td><td>2<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>1<\/td><td>1<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>1<\/td><td>1<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>1<\/td><td>1<\/td><td>2<\/td><\/tr><tr><td>1<\/td><td>NA<\/td><td>NA<\/td><td>1<\/td><td>2<\/td><\/tr><tr><td>NA<\/td><td>NA<\/td><td>1<\/td><td>NA<\/td><td>3<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>1<\/td><td>1<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>1<\/td><td>NA<\/td><td>2<\/td><\/tr><tr><td>NA<\/td><td>1<\/td><td>NA<\/td><td>1<\/td><td>2<\/td><\/tr><tr><td>1<\/td><td>1<\/td><td>1<\/td><td>1<\/td><td>0<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u5b9f\u969b\u306ba1\u304b\u3089b2\u307e\u3067\u306e\u5217\u306e\u6b20\u640d\u5024\u306e\u6570\u304cres\u3068\u3044\u3046\u30b3\u30e9\u30e0\u306b\u8868\u793a\u3055\u308c\u3066\u3044\u307e\u3059\u306d?<br>rowwise\u3067\u884c\u65b9\u5411\u306e\u30b0\u30eb\u30fc\u30d7\u3092\u4f5c\u6210\u3057\u306a\u3044\u3068\u3001\u3053\u306e\u52d5\u4f5c\u3001\u666e\u901a\u306emutate\u3067\u3084\u308b\u3068\u30a8\u30e9\u30fc\u304c\u751f\u3058\u307e\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\" id=\"section_3\">\u884c\u65b9\u5411\u3067\u8db3\u3057\u7b97\u3057\u3066\u307f\u308b<\/h2>\n\n\n\n<p>\u3053\u306e\u66f8\u304d\u65b9\u3092\u5fdc\u7528\u3059\u308c\u3070\u3001\u884c\u65b9\u5411\u306b\u30c7\u30fc\u30bf\u3092\u8db3\u3057\u5408\u308f\u305b\u308b\u3088\u3046\u306a\u3053\u3068\u3082\u7c21\u5358\u306b\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat2 &lt;- tibble(\n  a = sample(1:6,100,replace=TRUE),\n  b = sample(1:6,100,replace=TRUE),\n  c = sample(1:6,100,replace=TRUE),\n  d = sample(1:6,100,replace=TRUE),\n  e = sample(1:6,100,replace=TRUE),\n  f = sample(1:6,100,replace=TRUE),\n  g = sample(1:6,100,replace=TRUE)\n)\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>knitr::kable(head(dat2,10))\n<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-table\"><table><thead><tr><th>a<\/th><th>b<\/th><th>c<\/th><th>d<\/th><th>e<\/th><th>f<\/th><th>g<\/th><\/tr><\/thead><tbody><tr><td>5<\/td><td>5<\/td><td>3<\/td><td>2<\/td><td>4<\/td><td>4<\/td><td>6<\/td><\/tr><tr><td>6<\/td><td>4<\/td><td>2<\/td><td>6<\/td><td>6<\/td><td>3<\/td><td>1<\/td><\/tr><tr><td>5<\/td><td>1<\/td><td>3<\/td><td>4<\/td><td>6<\/td><td>4<\/td><td>1<\/td><\/tr><tr><td>2<\/td><td>1<\/td><td>6<\/td><td>1<\/td><td>6<\/td><td>4<\/td><td>1<\/td><\/tr><tr><td>4<\/td><td>3<\/td><td>6<\/td><td>5<\/td><td>3<\/td><td>6<\/td><td>4<\/td><\/tr><tr><td>1<\/td><td>2<\/td><td>4<\/td><td>1<\/td><td>2<\/td><td>4<\/td><td>6<\/td><\/tr><tr><td>5<\/td><td>5<\/td><td>6<\/td><td>2<\/td><td>2<\/td><td>3<\/td><td>5<\/td><\/tr><tr><td>6<\/td><td>2<\/td><td>5<\/td><td>2<\/td><td>4<\/td><td>5<\/td><td>2<\/td><\/tr><tr><td>1<\/td><td>1<\/td><td>5<\/td><td>3<\/td><td>2<\/td><td>3<\/td><td>3<\/td><\/tr><tr><td>1<\/td><td>4<\/td><td>2<\/td><td>5<\/td><td>6<\/td><td>5<\/td><td>4<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n<p>\u3053\u3093\u306a\u30c7\u30fc\u30bf\u306e\u3001a\u5217\u304b\u3089g\u5217\u307e\u3067\u306e\u6570\u5b57\u3092\u8db3\u3057\u305f\u7d50\u679c\u304c\u5165\u308bres\u3068\u3044\u3046\u5217\u3092\u4f5c\u6210\u3057\u3066\u307f\u307e\u3057\u3087\u3046<\/p>\n\n\n\n<p>\u3082\u3061\u308d\u3093\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat2 %&gt;% \n  mutate(res = a+b+c+d+e+f+g)\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## # A tibble: 100 \u00d7 8\n##        a     b     c     d     e     f     g   res\n##    &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt;\n##  1     5     5     3     2     4     4     6    29\n##  2     6     4     2     6     6     3     1    28\n##  3     5     1     3     4     6     4     1    24\n##  4     2     1     6     1     6     4     1    21\n##  5     4     3     6     5     3     6     4    31\n##  6     1     2     4     1     2     4     6    20\n##  7     5     5     6     2     2     3     5    28\n##  8     6     2     5     2     4     5     2    26\n##  9     1     1     5     3     2     3     3    18\n## 10     1     4     2     5     6     5     4    27\n## # \u2139 90 more rows\n<\/pre>\n\n\n\n<p>\u3068\u3044\u3046\u4e0b\u8a18\u65b9\u3067\u3082OK\u3067\u3059\u304c\u3001\u5909\u6570\u304c100\u500b\u3042\u3063\u305f\u5834\u5408\u306a\u3069\u3067\u306f<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat2 %&gt;% \n  rowwise() %&gt;% \n  mutate(res = sum(c_across(), na.rm=TRUE)) %&gt;% \n  ungroup()\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">## # A tibble: 100 \u00d7 8\n##        a     b     c     d     e     f     g   res\n##    &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt; &lt;int&gt;\n##  1     5     5     3     2     4     4     6    29\n##  2     6     4     2     6     6     3     1    28\n##  3     5     1     3     4     6     4     1    24\n##  4     2     1     6     1     6     4     1    21\n##  5     4     3     6     5     3     6     4    31\n##  6     1     2     4     1     2     4     6    20\n##  7     5     5     6     2     2     3     5    28\n##  8     6     2     5     2     4     5     2    26\n##  9     1     1     5     3     2     3     3    18\n## 10     1     4     2     5     6     5     4    27\n## # \u2139 90 more rows\n<\/pre>\n\n\n\n<p>\u3068\u3044\u3046\u66f8\u304d\u65b9\u3092\u3057\u305f\u65b9\u304c\u308f\u304b\u308a\u3084\u3059\u304f\u3001\u77ed\u304f\u66f8\u3051\u308b\u3088\u3046\u306a\u6c17\u304c\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3042\u3068\u3001\u6700\u5f8c\u306e<code>ungroup<\/code>\u306f\u5fd8\u308c\u306a\u3044\u3067<code>rowwise<\/code>\u306e\u52b9\u679c\u3092\u6253\u3061\u6d88\u3057\u3066\u304a\u304d\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n<p>\u4ee5\u4e0a\u3001\u7c21\u5358\u306b\u3067\u3059\u304c\u3001<code>rowwise<\/code>\u3068<code>c_across<\/code>\u3067\u8abf\u3079\u305f\u3053\u3068\u3092\u5171\u6709\u3057\u307e\u3057\u305f\u3002<br>\u4f55\u304b\u9593\u9055\u3063\u3066\u3044\u308b\u3053\u3068\u3001\u8a8d\u8b58\u9055\u3044\u306e\u3053\u3068\u304c\u3042\u3063\u305f\u308a\u3057\u305f\u3089\u6559\u3048\u3066\u304f\u3060\u3055\u3044\uff01\uff01<\/p>\n\n\n\n<p>Have a happy R life!<\/p>\n","protected":false},"excerpt":{"rendered":"<p>rowwise\u3068c_across\u3092\u5229\u7528\u3057\u3066\u884c\u65b9\u5411\u3067NA\u3092\u9664\u53bb\u3059\u308b \u5c0e\u5165 \u3084\u3063\u3066\u307f\u308b\u3068\u56f0\u308b\u51e6\u7406\u3068\u3057\u3066\u3001\u884c\u5358\u4f4d\u3067\u300c\u5168\u90e8NA\u306e\u5834\u5408\u306bfilter\u3092\u304b\u3051\u3066\u7701\u304f\u300d\u3068\u3044\u3046\u3082\u306e\u304c\u3042\u308a\u307e\u3059\u3002\u4eca\u56de\u3001\u3061\u3087\u3063\u3068\u8a70\u307e\u3063\u3066\u8abf\u3079\u305f\u306e\u3067\u3001\u305d\u3053\u3067\u5b66\u3093\u3060\u95a2\u6570\u306e\u4f7f\u3044\u304b\u305f\u3092\u8a18\u4e8b\u3068\u3057\u3066\u5171\u6709\u3057\u3066\u307f\u307e\u3059\u3002 \u5c1a\u3001\u30d2\u30f3\u30c8\u3068\u306a\u3063\u305f\u306e\u306f \u3053\u306e\u30b9\u30bf\u30c3\u30af\u30aa\u30fc\u30d0\u30fc\u30d5\u30ed\u30fc\u306e\u8cea\u554f\u3067\u3059\u3002 \u6b20\u640d\u5024\u3092\u30d5\u30a3\u30eb\u30bf\u30fc\u3057\u3066\u307f\u308b \u305d\u308c\u3067\u306f\u306f\u3058\u3081\u307e\u3057\u3087\u3046\u3002\u307e\u305a\u306f\u3001\u30c7\u30fc\u30bf\u3092\u4f5c\u3063\u3066\u304a\u304d\u307e\u3059\u3002 a1 a2 b1 b2 NA NA NA NA 1 NA NA NA 1 1 NA 1 NA 1 1 NA 1 NA NA 1 1 NA 1 NA \u3053\u306e\u30c7\u30fc\u30bf\u3001\u5404\u5217\u306b1\u304bNA\uff08\u6b20\u640d\uff09\u306e\u3044\u305a\u308c\u304b\u3092\u30e9\u30f3\u30c0\u30e0\u306b\u633f\u5165\u3057\u3066\u3042\u308a\u307e\u3059\u3002 \u3053\u3053\u3067\u3001\u3053\u306e\u30c7\u30fc\u30bf\u306e\u7d44\u307f\u5408\u308f\u305b\u3092\u78ba\u8a8d\u3059\u308b\u3068\u3001 a1 a2 b1 b2 n 1 1 1 1 22 1 1 1 NA 11 1 1 NA 1 15 1 1 NA NA 23 1 NA 1 1 17 1 NA 1 NA 18 1 NA NA 1 23 1 NA NA NA 21 NA 1 1 1 16 NA 1 1 NA 22 NA 1 NA 1 19 NA 1 NA NA 20 NA NA 1 1 21 NA NA 1 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"swell_btn_cv_data":"","footnotes":""},"categories":[7],"tags":[22,24,23],"class_list":["post-262","post","type-post","status-publish","format-standard","hentry","category-7","tag-c_across","tag-filter","tag-rowwise"],"_links":{"self":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/262","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/comments?post=262"}],"version-history":[{"count":2,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/262\/revisions"}],"predecessor-version":[{"id":266,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/262\/revisions\/266"}],"wp:attachment":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/media?parent=262"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/categories?post=262"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/tags?post=262"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}