{"id":660,"date":"2024-02-07T12:40:55","date_gmt":"2024-02-07T03:40:55","guid":{"rendered":"https:\/\/bunseki-data.com\/r-onlinecourse\/?p=660"},"modified":"2024-02-07T12:41:39","modified_gmt":"2024-02-07T03:41:39","slug":"%e3%81%8d%e3%82%8c%e3%81%84%e3%81%aa%e8%a1%a8%e3%82%92r%e3%81%a7%e6%8f%8f%e7%94%bb%e3%81%97%e3%81%9f%e3%81%84%ef%bc%81","status":"publish","type":"post","link":"https:\/\/bunseki-data.com\/r-onlinecourse\/2024\/02\/07\/%e3%81%8d%e3%82%8c%e3%81%84%e3%81%aa%e8%a1%a8%e3%82%92r%e3%81%a7%e6%8f%8f%e7%94%bb%e3%81%97%e3%81%9f%e3%81%84%ef%bc%81\/","title":{"rendered":"\u304d\u308c\u3044\u306a\u8868\u3092R\u3067\u63cf\u753b\u3057\u305f\u3044\uff01"},"content":{"rendered":"\n<p>\u6c17\u3065\u3044\u305f\u3089\u30d6\u30ed\u30b0\u306e\u8a18\u4e8b\u304c\u307e\u3063\u305f\u304f\u66f4\u65b0\u3055\u308c\u3066\u3044\u307e\u305b\u3093\uff08\u4ed5\u4e8b\u3068\u304b\u672c\u696d\u3068\u304b\u5b66\u696d\u3068\u304b\u3067\u306a\u304b\u306a\u304b\u6642\u9593\u304c\u53d6\u308c\u306a\u304b\u3063\u305f\u3093\u3067\u3059\u3002\u7533\u3057\u8a33\u3042\u308a\u307e\u305b\u3093\u3002\uff09<\/p>\n\n\n\n<p>\u305d\u3093\u306a\u4e2d\u3001\u672c\u696d\uff08\u7523\u696d\u4fdd\u5065\uff09\u306e\u5b9f\u52d9\u3067R\u3092\u4f7f\u3046\u6a5f\u4f1a\u304c\u305f\u304f\u3055\u3093\u3042\u308a\u3001Office\uff0bR\u304c\u500b\u4eba\u7684\u306b\u300c\u3042\u3064\u3044\u300d\u306e\u3068\u304b\u306a\u308a\u4fbf\u5229\u306a\u306e\u3067<strong>\u30aa\u30f3\u30e9\u30a4\u30f3\u30b3\u30fc\u30b9\u3092<\/strong>\u3068\u601d\u3063\u305f\u3082\u306e\u306e\u3001\u305d\u308c\u3092\u4f5c\u308b\u6642\u9593\u304c\u307e\u3063\u305f\u304f\u3068\u308c\u305a\u3001\u30d6\u30ed\u30b0\u8a18\u4e8b\u3067\u9023\u8f09\u3059\u308b\u5f62\u3067\u5171\u6709\u3057\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3068\u3044\u3046\u3053\u3068\u3067\u3001Office\uff0bR\u3092\u30c6\u30fc\u30de\u306b\u3001\u4eca\u56de\u306e\u8a18\u4e8b\u306fWord\u306b\u304d\u308c\u3044\u306a\u8868\u3092\u63cf\u753b\u3059\u308b\u3053\u3068\u3092\u76ee\u7684\u3068\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u306f\u3058\u3081\u307e\u3057\u3087\u3046\uff01<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">flextable\u306e\u57fa\u672c\u64cd\u4f5c<\/h2>\n\n\n\n<p>\u8868\u3092\u66f8\u304f\u305f\u3081\u306e\u30d1\u30c3\u30b1\u30fc\u30b8\u306f\u3044\u308d\u3044\u308d\u3042\u308a\u307e\u3059\u304c\u3001<code>gt<\/code>\u304c\u30e1\u30b8\u30e3\u30fc\u3069\u3053\u308d\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u3057\u304b\u3057\u3001<code>gt<\/code>\u306fword\u3078\u306e\u30a2\u30a6\u30c8\u30d7\u30c3\u30c8\u3092\u76f4\u63a5\u306b\u306f\u3067\u304d\u306a\u3044\u306e\u3067\u3001word\u306b\u304d\u308c\u3044\u306a\u8868\u3092\u3068\u8003\u3048\u305f\u5834\u5408\u306b\u306f\u3001<code>flextable<\/code>\u304c\u304a\u3059\u3059\u3081\u3067\u3059\u3002\u3053\u306e\u8a18\u4e8b\u4ee5\u964d\u3082\u3001\u57fa\u672c\u7684\u306b\u306fword\u306b\u8868\u3092\u51fa\u529b\u3059\u308b\u5834\u5408\u306f<code>flextable<\/code>\u3092\u5229\u7528\u3059\u308b\u306e\u3067\u3001\u307e\u305a\u306f<code>flextable<\/code>\u306e\u4f7f\u3044\u65b9\u3092\u898b\u3066\u3044\u304d\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u8868\u3092\u4f5c\u308b<code>flextable::flextable<\/code><\/h3>\n\n\n\n<p><code>flextable<\/code>\u306e\u8868\u3092\u4f5c\u308b\u306e\u306f\u7c21\u5358\u3067\u3059\u3002<\/p>\n\n\n\n<p>\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u8aad\u307f\u8fbc\u3093\u3067\u30fb\u30fb\u30fb<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>library(tidyverse)\nlibrary(flextable)<\/code><\/pre>\n\n\n\n<p><code>flextable::flextable(&lt;tibble&gt;)<\/code>\u3068\u3059\u308b\u3060\u3051\u3067OK\u3067\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d &lt;- tibble(`\u30a4\u30c1\u30b4` = 1:4, `\u30e1\u30ed\u30f3` = 11:14, `\u30c8\u30de\u30c8` = 21:24)\nflextable(d)<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full is-resized\"><img decoding=\"async\" width=\"340\" height=\"250\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image.png\" alt=\"\" class=\"wp-image-661\" style=\"width:306px;height:auto\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image.png 340w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-300x221.png 300w\" sizes=\"(max-width: 340px) 100vw, 340px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">\u5e45\u306e\u8abf\u6574<\/h3>\n\n\n\n<p>\u5217\u306e\u5e45\u3092\u8abf\u6574\u3059\u308b\u306b\u306f<code>width<\/code>\u95a2\u6570\u3092\u5229\u7528\u3057\u307e\u3059\u3002<code>j<\/code>\u304c\u5217\u756a\u53f7\u3067\u3001<code>width<\/code>\u3092\u6570\u5b57\u3067\u6307\u5b9a\u3002<code>unit<\/code>\u306f\u8868\u793a\u3057\u305f\u3044\u5e45\u306e\u5358\u4f4d\u3067\u8a2d\u5b9a\u3057\u307e\u3059\u3002\u306a\u306e\u3067\u30011\u5217\u76ee\u30923\u339d\u306e\u5e45\u306b\u3057\u305f\u3051\u308c\u3070\u6b21\u306e\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft &lt;- flextable(d)\nft |&gt; \n  flextable::width(j = 1, width = 3, unit = \"cm\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"399\" height=\"247\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-1.png\" alt=\"\" class=\"wp-image-662\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-1.png 399w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-1-300x186.png 300w\" sizes=\"(max-width: 399px) 100vw, 399px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">\u540d\u524d\u306e\u5909\u66f4<\/h3>\n\n\n\n<p>\u5217\u306e\u5024\u3092\u5909\u66f4\u3059\u308b\u306b\u306f<code>set_header_labels<\/code>(&#8220;\u5143\u306e\u5217\u540d&#8221; = &#8220;\u5909\u3048\u305f\u3044\u5217\u540d&#8221;)\u3068\u3057\u307e\u3059\u3002<code>dplyr::rename<\/code>\u3068\u306f\u9806\u756a\u304c\u9006\u306a\u306e\u304c\u6df7\u4e71\u3057\u3084\u3059\u3044\u3067\u3059\u304c\u3001\u306a\u308c\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::set_header_labels(\"\u30a4\u30c1\u30b4\" = \"\u82fa\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"337\" height=\"246\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-2.png\" alt=\"\" class=\"wp-image-663\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-2.png 337w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-2-300x219.png 300w\" sizes=\"(max-width: 337px) 100vw, 337px\" \/><\/figure>\n\n\n\n<p>\u8907\u6570\u5217\u3082OK\u3067\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::set_header_labels(\"\u30e1\u30ed\u30f3\" = \"\u3081\u308d\u3093\",\"\u30c8\u30de\u30c8\" = \"\u3068\u307e\u3068\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"336\" height=\"243\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-3.png\" alt=\"\" class=\"wp-image-664\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-3.png 336w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-3-300x217.png 300w\" sizes=\"(max-width: 336px) 100vw, 336px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">\u8907\u6570\u884c\u306e\u5217\u540d\u3092\u3064\u3051\u308b<\/h3>\n\n\n\n<p>\u8868\u3092\u4f5c\u3063\u3066\u3044\u308b\u3068\u304d\u3001\u65b0\u3057\u3044\u5217\u3092\u8db3\u3059\u306a\u3069\u3082\u3084\u308a\u305f\u304f\u306a\u308a\u307e\u3059\u306d\u3002\u305d\u3046\u3044\u3046\u6642\u306f<code>add_header_row(&lt;\u4ed8\u3051\u8db3\u3057\u305f\u3044\u884c\u306e\u30d9\u30af\u30c8\u30eb&gt;,top = TRUE\/FALSE)<\/code>\u3068\u3044\u3046\u8a18\u8ff0\u3092\u3059\u308b\u3053\u3068\u3067\u8ffd\u52a0\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::add_header_row(c(\"\u679c\u7269\",\"\u679c\u7269\",\"\u91ce\u83dc\"),top = TRUE)<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"336\" height=\"296\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-4.png\" alt=\"\" class=\"wp-image-665\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-4.png 336w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-4-300x264.png 300w\" sizes=\"(max-width: 336px) 100vw, 336px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">\u5217\u540d\u306e\u30de\u30fc\u30b8<\/h3>\n\n\n\n<p>\u3082\u3061\u308d\u3093\u3001\u3053\u306e\u4f8b\u3060\u3068\u3053\u308c\u3067\u306f\u898b\u305f\u76ee\u304c\u3044\u307e\u3044\u3061\u306a\u306e\u3067\u3001\u679c\u7269\u306f\u4e00\u3064\u306e\u30bb\u30eb\u306b\u30de\u30fc\u30b8\u3059\u308b\u95a2\u6570\u306e\u4e00\u3064\u3001<code>flextable::merge_h<\/code>\u3092\u5229\u7528\u3059\u308b\u3068\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::add_header_row(c(\"\u679c\u7269\",\"\u679c\u7269\",\"\u91ce\u83dc\"),top = TRUE) |&gt; \n  flextable::merge_h(i = 1, part = \"header\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"338\" height=\"290\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-5.png\" alt=\"\" class=\"wp-image-666\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-5.png 338w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-5-300x257.png 300w\" sizes=\"(max-width: 338px) 100vw, 338px\" \/><\/figure>\n\n\n\n<p>\u3053\u3046\u306a\u308a\u307e\u3059\u3002\u3053\u306e\u95a2\u6570\u3001\u4f55\u3092\u3057\u3066\u3044\u308b\u306e\u3067\u3057\u3087\u3046\u304b\uff1f<code>merge_h<\/code>\u306eh\u306f\u6c34\u5e73\u65b9\u5411\uff08Horizontal\uff09\u306e\u7565\u3067\u3059\u3002<code>part<\/code>\u3067\u306f\u3001\u5217\u540d\u306e\u90e8\u5206\u3092<code>header<\/code>,\u3000\u30c7\u30fc\u30bf\u304c\u542b\u307e\u308c\u308b\u90e8\u5206\u3092<code>body<\/code>\u3068\u3044\u3046\u540d\u524d\u3092\u4ed8\u3051\u3066\u533a\u5225\u3057\u3066\u3044\u307e\u3059\u3002\u4eca\u56de\u306f\u3001<code>header<\/code>\u90e8\u5206\u306e1\u884c\u76ee(<code>i=1<\/code>)\u3092\u6c34\u5e73\u65b9\u5411\u306b\u7d50\u5408\u3057\u305f\u3044\u306e\u3067\u3001<code>flextable::merge_h(i = 1, part = \"header\")<\/code>\u3068\u3044\u3046\u66f8\u304d\u65b9\u3068\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n\n\n\n<p><code>merge_h<\/code>\u95a2\u6570\u306f\u540c\u3058\u5024\u306e\u30bb\u30eb\u3092\u7d50\u5408\u3057\u3066\u304f\u308c\u307e\u3059\u3002\u4ed6\u306b<code>merge_v<\/code>\uff08\u5782\u76f4\u65b9\u5411\u306e\u30de\u30fc\u30b8\uff09, <code>merge_at<\/code>\uff08\u4f4d\u7f6e\u6307\u5b9a\u3067\u304d\u308b\u30de\u30fc\u30b8\uff09\u306a\u3069\u306e\u7a2e\u985e\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u6c34\u5e73\u65b9\u5411\u306b\u5bc4\u305b\u308b<\/h3>\n\n\n\n<p>\u5148\u307b\u3069\u306e\u8868\u3067\u679c\u7269\u306e\u8868\u8a18\u304c\u53f3\u306b\u5bc4\u3063\u3066\u3044\u305f\u306e\u3067\u3001\u4e2d\u592e\u3088\u308a\u306b\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\u4eca\u5ea6\u306f\u3001\u95a2\u6570\u3092\u307f\u3066\u4f55\u3092\u3057\u3066\u3044\u308b\u304b\u60f3\u50cf\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::add_header_row(c(\"\u679c\u7269\",\"\u679c\u7269\",\"\u91ce\u83dc\"),top = TRUE) |&gt; \n  flextable::merge_h(i = 1, part = \"header\") |&gt; \n  flextable::align(i = 1, align = \"center\", part = \"header\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"335\" height=\"295\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-6.png\" alt=\"\" class=\"wp-image-667\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-6.png 335w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-6-300x264.png 300w\" sizes=\"(max-width: 335px) 100vw, 335px\" \/><\/figure>\n\n\n\n<p><code>flextable::align<\/code>\u95a2\u6570\u3067<code>part=\"header\"<\/code>\u90e8\u5206\u306e<code>i=1<\/code>\u884c\u76ee\u3092<code>align=\"center\"<\/code>\u3068\u3057\u3066\u3044\u307e\u3059\u3002\uff08\u30d8\u30c3\u30c0\u30fc\u90e8\u5206\u306e1\u884c\u76ee\u3092\u4e2d\u592e\u3088\u308a\u3068\u3057\u3066\u3044\u307e\u3059\uff09<\/p>\n\n\n\n<p>\u8907\u6570\u884c\u3092\u6307\u5b9a\u3059\u308b\u5834\u5408\u306f\u3001<code>i=c(1,2)<\/code>\u3068\u3057\u3066\u3042\u3052\u308b\u304b\u3001\u5168\u90e8\u306b\u9069\u5fdc\u3057\u305f\u3051\u308c\u3070<code>i<\/code>\u3092\u6307\u5b9a\u3057\u306a\u3044\u3053\u3068\u3067\u3059\u3079\u3066\u306e\u884c\u3068\u3057\u305f\u610f\u5473\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>fttemp &lt;- ft |&gt; \n  flextable::add_header_row(c(\"\u679c\u7269\",\"\u679c\u7269\",\"\u91ce\u83dc\"),top = TRUE) |&gt; \n  flextable::merge_h(i = 1, part = \"header\")\n\nfttemp |&gt; \n  flextable::align( align = \"center\", part = \"header\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"344\" height=\"295\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-7.png\" alt=\"\" class=\"wp-image-668\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-7.png 344w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-7-300x257.png 300w\" sizes=\"(max-width: 344px) 100vw, 344px\" \/><\/figure>\n\n\n\n<pre class=\"wp-block-code\"><code>fttemp |&gt; \n  flextable::align(i=1:2, align=\"center\",part=\"header\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"336\" height=\"293\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-8.png\" alt=\"\" class=\"wp-image-669\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-8.png 336w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-8-300x262.png 300w\" sizes=\"(max-width: 336px) 100vw, 336px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">part\u306e\u7a2e\u985e<\/h3>\n\n\n\n<p><code>flextable<\/code>\u306e\u95a2\u6570\u3067\u306f\u3001<code>part<\/code>\u3068\u3044\u3046<code>argument<\/code>\u304c\u983b\u7e41\u306b\u767b\u5834\u3057\u307e\u3059\u3002\u3053\u306e<code>part<\/code>\u306f\u3001<code>\"all\", \"body\", \"header\"<\/code>\u306e\u3044\u305a\u308c\u304b\u3092\u6307\u5b9a\u3057\u3066\u3042\u3052\u308b\u5fc5\u8981\u304c\u3042\u308a\u3001<code>\"all\"<\/code>\u306f\u8868\u5168\u4f53\u3092\u3001<code>\"header\"<\/code>\u306f\u898b\u51fa\u3057\u306e\u90e8\u5206\u3001\u305d\u3057\u3066<code>\"body\"<\/code>\u306f\u30c7\u30fc\u30bf\u90e8\u5206\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<code>i<\/code>\u3084<code>j<\/code>\u3067\u884c\u3068\u5217\u3092\u6307\u5b9a\u3059\u308b\u5834\u5408\u3001<code>part<\/code>\u306e\u5024\u306b\u3088\u3063\u3066\u306f\u6307\u3059\u4f4d\u7f6e\u304c\u307e\u3063\u305f\u304f\u9055\u3063\u3066\u304f\u308b\u306e\u3067\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u3002<\/p>\n\n\n\n<p>\u4f4d\u7f6e\u6307\u5b9a\u3001\u308f\u304b\u308a\u3084\u3059\u3044\u3088\u3046\u306b\u3001<code>bold<\/code>\uff08\u592a\u5b57\u306b\u3059\u308b\uff09\u95a2\u6570\u3092\u5229\u7528\u3057\u3066\u8a73\u3057\u304f\u307f\u3066\u307f\u307e\u3057\u3087\u3046<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>fttemp |&gt; \n  flextable::bold(i=1, part=\"header\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"337\" height=\"295\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-9.png\" alt=\"\" class=\"wp-image-670\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-9.png 337w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-9-300x263.png 300w\" sizes=\"(max-width: 337px) 100vw, 337px\" \/><\/figure>\n\n\n\n<pre class=\"wp-block-code\"><code>fttemp |&gt; \n  flextable::bold(i=1, part=\"body\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"342\" height=\"291\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-10.png\" alt=\"\" class=\"wp-image-671\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-10.png 342w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-10-300x255.png 300w\" sizes=\"(max-width: 342px) 100vw, 342px\" \/><\/figure>\n\n\n\n<pre class=\"wp-block-code\"><code>fttemp |&gt; \n  flextable::bold(i=1, part=\"all\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"340\" height=\"291\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-11.png\" alt=\"\" class=\"wp-image-672\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-11.png 340w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-11-300x257.png 300w\" sizes=\"(max-width: 340px) 100vw, 340px\" \/><\/figure>\n\n\n\n<p><code>all<\/code>\u3067<code>i=1<\/code>\u306e\u4f4d\u7f6e\u6307\u5b9a\u3092\u3059\u308b\u3068\u3001\u898b\u51fa\u3057\u3068\u30c7\u30fc\u30bf\u90e8\u5206\u3001\u4e21\u65b9\u304c\u592a\u5b57\u306b\u306a\u3063\u3066\u3044\u308b\u3053\u3068\u304c\u78ba\u8a8d\u3067\u304d\u307e\u3059\u306d\uff1f\u3053\u308c\u3001\u884c\u6307\u5b9a\u3060\u3068\uff1f\uff1f\uff1f\u306a\u52d5\u4f5c\u3067\u3059\u304c\u3001<code>j=1<\/code>\u3068\u3057\u3066\u3001\u4e00\u5217\u76ee\u3092\u592a\u5b57\u306b\u3057\u305f\u3044\u3088\u3046\u306a\u5834\u5408\u306a\u3069\u306f\u3001\u7d50\u69cb\u91cd\u5b9d\u3057\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::add_header_row(c(\"\u679c\u7269\",\"\u679c\u7269\",\"\u91ce\u83dc\"),top = TRUE) |&gt; \n  flextable::bold(j=1, part=\"all\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"351\" height=\"296\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-12.png\" alt=\"\" class=\"wp-image-673\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-12.png 351w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-12-300x253.png 300w\" sizes=\"(max-width: 351px) 100vw, 351px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">\u7df4\u7fd2\u305d\u306e1<\/h3>\n\n\n\n<p>\u3053\u3053\u307e\u3067\u306e\u77e5\u8b58\u3092\u5229\u7528\u3057\u3066\u3001\u79c1\u306e\u672c\u696d\uff08\u7523\u696d\u4fdd\u5065\u306e\u5b9f\u52d9\uff09\u3067\u3088\u304f\u3042\u308a\u305d\u3046\u306a\u8868\u3092\u4f5c\u6210\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\u6b21\u306e\u3088\u3046\u306a\u5065\u5eb7\u8a3a\u65ad\u306e\u30c7\u30fc\u30bf\u304c\u3042\u3063\u305f\u3068\u3057\u3066\u30012\u00d72\u8868\u3092\u898b\u51fa\u3057\u3092\u3064\u3051\u3066\u4f5c\u6210\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u30c7\u30fc\u30bf\u306f\u9069\u5f53\u306b\u4f5c\u308a\u307e\u3059.<\/p>\n\n\n\n<p>\u30e9\u30f3\u30c0\u30e0\u306b\u53ce\u7e2e\u671f\u8840\u5727\uff08sbp)\u3068\u62e1\u5f35\u671f\u8840\u5727\uff08dbp)\u3092\u4f5c\u6210\u3057\u3066\u3001sbp\u3068dbp\u306e\u5dee\u304c5\u672a\u6e80\u306a\u3089\u3001<br>dbp\u306b10\u304b\u308920\u306e\u5024\u3092\u9069\u5f53\u306b\u8db3\u3057\u3066\u53ce\u7e2e\u671f\u8840\u5727\u3092\u4f5c\u6210\u3002\u8840\u5727\u304c140\/90\u3092\u4e0a\u56de\u3063\u3066\u3044\u308c\u3070\u9ad8\u8840\u5727\u3042\u308a\uff08is_htn=1\uff09\u3068\u3057\u3066\u3001\u9ad8\u8840\u5727\u304c\u3042\u308c\u3070\u6cbb\u7642\u3057\u3066\u3044\u308b\uff08is_tx=1)\u78ba\u7387\u309280%\u306b\u3001\u9ad8\u8840\u5727\u304c\u7121\u3051\u308c\u3070\u6cbb\u7642\u3057\u3066\u3044\u308b\u78ba\u7387\u309220%\u306b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u30c7\u30fc\u30bf\u306e\u4f5c\u6210\ndat &lt;- tibble(sbp = rnorm(200, 130, 10),dbp = rnorm(200, 80, 10)) |&gt; \n  mutate(sbp = if_else(sbp-dbp &lt; 5, dbp + runif(200, 10,20),sbp)) |&gt; \n  mutate(is_htn = if_else(sbp &gt;= 140 | dbp &gt;= 90,1,0)) |&gt;\n  mutate(is_tx = case_when(\n    is_htn == 0 ~ sample(x = c(0,1),size = 200, replace = TRUE, prob=c(0.8,0.2)),\n    is_htn == 1 ~ sample(x = c(0,1),size = 200, replace = TRUE, prob=c(0.2,0.8))\n  ))<\/code><\/pre>\n\n\n\n<p>\u3053\u306e\u30c7\u30fc\u30bf\u3092\u5358\u306b\u96c6\u8a08\u3057\u3066\u3042\u3052\u308b\u3068\u3001\u3053\u3046\u306a\u308a\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>dat |&gt; \n  count(is_htn, is_tx)<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## # A tibble: 4 \u00d7 3\n##   is_htn is_tx     n\n##    &lt;dbl&gt; &lt;dbl&gt; &lt;int&gt;\n## 1      0     0    99\n## 2      0     1    38\n## 3      1     0     9\n## 4      1     1    54<\/code><\/pre>\n\n\n\n<p>\u6700\u7d42\u76ee\u7684\u3067\u3042\u308b\u8868\u793a\u3057\u305f\u3044\u8868\u306e\u5f62\u306b\u307e\u3067<code>tidyverse<\/code>\u306e\u95a2\u6570\u3067\u3082\u3063\u3066\u3044\u304f\u3068\u3001\u3053\u3093\u306a\u611f\u3058\u306b\u306a\u308a\u307e\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>total_htn &lt;- dat |&gt; count(is_htn) |&gt; mutate(is_tx  = 99)\ntotal_tx  &lt;- dat |&gt; count(is_tx)  |&gt; mutate(is_htn = 99)\ntotal_all &lt;- dat |&gt; count() |&gt; mutate(is_tx = 99, is_htn = 99)\n\nbase &lt;- dat |&gt; \n  count(is_htn, is_tx) |&gt;\n  bind_rows(total_htn) |&gt; \n  bind_rows(total_tx) |&gt; \n  bind_rows(total_all) |&gt; \n  mutate(\n    is_htn = factor(is_htn, levels = c(0,1,99), labels = c(\"\u6b63\u5e38\u8840\u5727\",\"\u9ad8\u8840\u5727\",\"\u8a08\")),\n    is_tx = factor(is_tx, levels = c(0,1,99), labels = c(\"\u6cbb\u7642\u306a\u3057\",\"\u6cbb\u7642\u3042\u308a\",\"\u8a08\"))\n  ) |&gt; \n  pivot_wider(id_cols = is_htn, names_from = is_tx, values_from = n)\n\nbase  <\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## # A tibble: 3 \u00d7 4\n##   is_htn   \u6cbb\u7642\u306a\u3057 \u6cbb\u7642\u3042\u308a    \u8a08\n##   &lt;fct&gt;       &lt;int&gt;    &lt;int&gt; &lt;int&gt;\n## 1 \u6b63\u5e38\u8840\u5727       99       38   137\n## 2 \u9ad8\u8840\u5727          9       54    63\n## 3 \u8a08            108       92   200<\/code><\/pre>\n\n\n\n<p>\u3042\u3068\u306f\u3001\u3053\u308c\u3092flextable\u3067\u8868\u306b\u3057\u3066\u3044\u304f\u3068<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>flextable::flextable(base) |&gt; \n  flextable::set_header_labels(\"is_htn\" = \" \") |&gt; \n  flextable::align(j = 4, align = \"right\", part = \"header\") |&gt; \n  flextable::align(i = 3, j = 1, align = \"right\", part = \"body\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"445\" height=\"205\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-13.png\" alt=\"\" class=\"wp-image-675\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-13.png 445w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-13-300x138.png 300w\" sizes=\"(max-width: 445px) 100vw, 445px\" \/><\/figure>\n\n\n\n<p>\u3068\u304b\u3001\u9811\u5f35\u308c\u3070\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>base2 &lt;- dat |&gt; \n  count(is_htn, is_tx) |&gt;\n  bind_rows(total_htn) |&gt; \n  bind_rows(total_tx) |&gt; \n  bind_rows(total_all) |&gt; \n  mutate(\n    is_htn = factor(is_htn, levels = c(0,1,99), labels = c(\"\u306a\u3057\",\"\u3042\u308a\",\"\u8a08\")),\n    is_tx = factor(is_tx, levels = c(0,1,99), labels = c(\"\u306a\u3057\",\"\u3042\u308a\",\"\u8a08\"))\n  ) |&gt; \n  pivot_wider(id_cols = is_htn, names_from = is_tx, values_from = n) |&gt; \n  mutate(label = c(\"\u9ad8\u8840\u5727\",\"\u9ad8\u8840\u5727\",\"\u8a08\"), .before = 1)\n\nft2 &lt;- flextable::flextable(base2) |&gt; \n  flextable::set_header_labels(\"is_htn\" = \" \", label = \" \") |&gt; \n  flextable::add_header_row(c(\" \",\" \",\"\u6cbb\u7642\",\"\u6cbb\u7642\",\"\u8a08\"), top=TRUE) |&gt;\n  flextable::merge_at(i=1:2, j=1:2, part=\"header\") |&gt; \n  flextable::merge_v(j=5, part=\"header\") |&gt; \n  flextable::merge_h(i=1, part=\"header\") |&gt; \n  flextable::merge_v(j=1, part=\"body\") |&gt; \n  flextable::merge_h(i=3, part=\"body\") \n\nft2<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"560\" height=\"248\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-14.png\" alt=\"\" class=\"wp-image-676\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-14.png 560w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-14-300x133.png 300w\" sizes=\"(max-width: 560px) 100vw, 560px\" \/><\/figure>\n\n\n\n<p>\u898b\u305f\u76ee\u3092\u3044\u3058\u308b\u4f59\u5730\u304c\u307e\u3060\u3042\u308a\u307e\u3059\u304c\u3001\u3053\u3093\u306a\u8868\u306e\u4f5c\u6210\u3082\u53ef\u80fd\u3067\u3059\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">flextable\u306e\u88c5\u98fe<\/h2>\n\n\n\n<h3 class=\"wp-block-heading\">\u88c5\u98fe\u306e\u4e00\u62ec\u8a2d\u5b9a<\/h3>\n\n\n\n<p>flextable\u3067\u306f\u3001\u7d30\u304b\u306a\u88c5\u98fe\u306e\u8a2d\u5b9a\u3092\u884c\u308f\u305a\u306b\u3001\u30c6\u30fc\u30de\u306e\u8a2d\u5b9a\u3067\u4e00\u6c17\u306b\u30b0\u30e9\u30d5\u3092\u304d\u308c\u3044\u306b\u4ed5\u4e0a\u3052\u308b\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft &lt;- tibble(a = 1:3, b = 11:13, c = 21:23) |&gt; \n  flextable::flextable()<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; flextable::theme_vanilla()<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"341\" height=\"199\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-15.png\" alt=\"\" class=\"wp-image-678\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-15.png 341w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-15-300x175.png 300w\" sizes=\"(max-width: 341px) 100vw, 341px\" \/><\/figure>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; flextable::theme_box()<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"340\" height=\"200\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-16.png\" alt=\"\" class=\"wp-image-679\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-16.png 340w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-16-300x176.png 300w\" sizes=\"(max-width: 340px) 100vw, 340px\" \/><\/figure>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; flextable::theme_zebra()<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"337\" height=\"188\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-17.png\" alt=\"\" class=\"wp-image-680\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-17.png 337w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-17-300x167.png 300w\" sizes=\"(max-width: 337px) 100vw, 337px\" \/><\/figure>\n\n\n\n<p>\u6570\u306f\u305d\u308c\u307b\u3069\u3042\u308a\u307e\u305b\u3093\u304c\u3001<code>theme_vanilla<\/code>\u3068\u304b\u3001<code>theme_box<\/code>\u3042\u305f\u308a\u306f\u6bd4\u8f03\u7684\u6c4e\u7528\u6027\u304c\u9ad8\u3044\u3088\u3046\u306b\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u7f6b\u7dda\u3092\u597d\u304d\u306b\u5f15\u304f<\/h3>\n\n\n\n<p>\u7f6b\u7dda\u3092\u5f15\u304f\u305f\u3081\u306e\u95a2\u6570\u306f<code>flextable<\/code>\u306b\u306f\u8272\u3005\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u3082\u3063\u3068\u3082\u539f\u59cb\u7684\u306a\u95a2\u6570\u3068\u3057\u3066<code>border<\/code>\u95a2\u6570\u304c\u3042\u308a\u3001\u3053\u308c\u306f\u3001\u6307\u5b9a\u3057\u305f\u884c\u3068\u5217\u306e\u3069\u306e\u4f4d\u7f6e\u306b\u3069\u3093\u306a\u7dda\u3092\u5f15\u304f\u304b\u3092\u6307\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p><code>flextable<\/code>\u306e\u4e00\u90e8\u306e\u88c5\u98fe\u7cfb\u306e\u95a2\u6570\u3067\u5c11\u3057\u5384\u4ecb\u306a\u306e\u304c\u3001\u4f4d\u7f6e\u6307\u5b9a\u306b\u306fflextable\u306e\u95a2\u6570\u3092\u4f7f\u3046\u4e00\u65b9\u3067\u3001\u300c\u3069\u3093\u306a\u88c5\u98fe\u304b\uff1f\u300d\u3092\u6307\u5b9a\u3059\u308b\u306b\u306f\u3001<code>officer<\/code>\u30d1\u30c3\u30b1\u30fc\u30b8\u306e<code>fp_****<\/code>\u7cfb\u306e\u95a2\u6570\u3092\u5229\u7528\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3068\u3053\u308d\u3067\u3059\u3002<\/p>\n\n\n\n<p>\u7f6b\u7dda\u3092\u5f15\u304f\u5834\u5408\u306f\u3001<code>flextable::border<\/code>\u306e<code>border<\/code>\u5f15\u6570\u306b\u5bfe\u3057\u3066\u3001<code>officer::fp_border<\/code>\u95a2\u6570\u306e\u7d50\u679c\u3092\u6307\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u306a\u306e\u3067\u3001\u4f8b\u3048\u3070\u3001<code>body<\/code>\u306e2\u884c\u76ee2\u5217\u76ee\u306e\u30bb\u30eb\u306e\u53f3\u5074\u306b\u8d64\u8272\u306e\u70b9\u7dda\u3092\u7f6b\u7dda\u3068\u3057\u3066\u8a2d\u5b9a\u3057\u305f\u3051\u308c\u3070\u3001\u6b21\u306e\u3088\u3046\u306a\u30b9\u30af\u30ea\u30d7\u30c8\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::border(\n    i=2,j=2,\n    border.right =  officer::fp_border(color=\"red\",style=\"dashed\"))<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"336\" height=\"200\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-18.png\" alt=\"\" class=\"wp-image-681\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-18.png 336w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-18-300x179.png 300w\" sizes=\"(max-width: 336px) 100vw, 336px\" \/><\/figure>\n\n\n\n<p><code>border<\/code>\u95a2\u6570\u306e\u5f15\u6570\u306e\u3001<code>border.top<\/code>, <code>border.bottom<\/code>, <code>border.right<\/code>, <code>border.left<\/code>\u306e4\u3064\u3067\u500b\u5225\u306b\u6307\u5b9a\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3057\u3001border\u5f15\u6570\u3067\u4e00\u62ec\u6307\u5b9a\u3082\u53ef\u80fd\u306a\u306e\u3067\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::border(i=2,j=2, border=  officer::fp_border(color=\"red\",style=\"dashed\")) |&gt; \n  flextable::border(i=1,j=1, border.bottom=  officer::fp_border(color=\"blue\",style=\"dashed\")) |&gt;\n  flextable::border(\n    i=3,j=3, \n    border.top=  officer::fp_border(color=\"green\",style=\"solid\", width=2),\n    border.right=  officer::fp_border(color=\"purple\",style=\"dotted\", width=3)\n  )<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"339\" height=\"197\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-19.png\" alt=\"\" class=\"wp-image-682\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-19.png 339w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-19-300x174.png 300w\" sizes=\"(max-width: 339px) 100vw, 339px\" \/><\/figure>\n\n\n\n<p>\u3053\u3093\u306a\u611f\u3058\u3067\u30ab\u30e9\u30d5\u30eb\u306b\u3044\u308d\u3044\u308d\u306a\u592a\u3055\u3067\u8a2d\u5b9a\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3002<\/p>\n\n\n\n<p>\u5c1a\u3001\u6bce\u56de\u7d30\u304b\u304f\u6307\u5b9a\u3059\u308b\u306e\u306f\u9762\u5012\u306a\u306e\u3067\u4e00\u62ec\u3067\u8a2d\u5b9a\u3067\u304d\u308b\u95a2\u6570\u3082\u7528\u610f\u3055\u308c\u3066\u304a\u308a\u3001<code>hline<\/code>\u3001<code>vline<\/code>\u306a\u3069\u306e\u6307\u5b9a\u3057\u305f\u884c\u3084\u5217\u306b\u76f4\u7dda\u3092\u5f15\u304f\u3088\u3046\u306a\u95a2\u6570\u3082\u3042\u308a\u307e\u3059\u3002\uff08\u305d\u308c\u305e\u308c\u306e\u4f7f\u3044\u65b9\u306f\u30d8\u30eb\u30d7\u3092\u898b\u3066\u304f\u3060\u3055\u3044\u3002<code>flextable::border<\/code>\u304c\u4f7f\u3048\u308c\u3070\u554f\u984c\u306a\u304f\u4f7f\u3048\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft |&gt; \n  flextable::hline(i=1,border=officer::fp_border(color=\"grey80\",style=\"dashed\"))<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"340\" height=\"199\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-20.png\" alt=\"\" class=\"wp-image-683\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-20.png 340w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-20-300x176.png 300w\" sizes=\"(max-width: 340px) 100vw, 340px\" \/><\/figure>\n\n\n\n<h3 class=\"wp-block-heading\">\u5857\u308a\u3064\u3076\u3059<\/h3>\n\n\n\n<p>\u5857\u308a\u3064\u3076\u3057\u306e\u306e\u88c5\u98fe\u306f\u3001<code>flextable::bg<\/code>\u95a2\u6570\u3067<code>i<\/code>\u3068<code>j<\/code>\u3067\u4f4d\u7f6e\u6307\u5b9a\u306e\u4e0a\u3001<code>bg<\/code>\u5f15\u6570\u306bhex\u3067\u8272\u3092\u6e21\u3059\u304b\u3001\u8272\u540d\u3092\u6307\u5b9a\u3057\u3066\u3042\u3052\u308c\u3070OK\u306a\u306e\u3067\u7c21\u5358\u3067\u3059\u3002<\/p>\n\n\n\n<p>\u3084\u3063\u3066\u307f\u307e\u3057\u3087\u3046\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d2 &lt;- map_dfc(1:9, ~{\n  tibble(a = rep(\"\",9)) |&gt; \n    setNames(letters&#91;.])\n})\n\nflextable::flextable(d2) |&gt; \n  flextable::bg(i = 1       , j = 5  , bg = \"red\") |&gt; \n  flextable::bg(i = 2       , j = 4:6, bg = \"red\") |&gt; \n  flextable::bg(i = 3       , j = 3:7, bg = \"red\") |&gt; \n  flextable::bg(i = 4       , j = 2:8, bg = \"red\") |&gt; \n  flextable::bg(i = 5       , j = 1:9, bg = \"red\") |&gt; \n  flextable::bg(i = 6:9     , j = 2:8, bg = \"ivory\") |&gt; \n  flextable::bg(i = 8:9     , j = 7  , bg = \"brown\") |&gt; \n  flextable::bg(i = 7:8     , j = 3:4  , bg = \"skyblue\") |&gt; \n  flextable::border(i = 7:8, j = 3:4, border = officer::fp_border(\"black\")) |&gt; \n  flextable::width(width=0.5, unit=\"cm\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"299\" height=\"258\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-21.png\" alt=\"\" class=\"wp-image-684\"\/><\/figure>\n\n\n\n<p>\u3069\u3046\u3067\u3057\u3087\u3046\u304b\uff1f\u7d75\u3068\u304b\u3082\u304b\u3051\u307e\u3059\u306d\uff08\u9055\u3046\u30fb\u30fb\u30fb\uff09<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u6587\u5b57\u306e\u8272\u3068\u30b5\u30a4\u30ba\u3092\u5909\u3048\u308b<\/h3>\n\n\n\n<p>\u6587\u5b57\u306b\u3064\u3044\u3066\u306f<code>color<\/code>\u95a2\u6570\u3067\u3044\u3058\u308c\u307e\u3059\u3002\u30b5\u30a4\u30ba\u306f<code>fontsize<\/code>\u95a2\u6570\u3067\u3044\u3058\u308c\u307e\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d3 &lt;- tibble(a = c(\"\u3044\",\"\u308d\",\"\u306f\"), b = c(\"\u306b\",\"\u307b\",\"\u3078\"))\nd3<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## # A tibble: 3 \u00d7 2\n##   a     b    \n##   &lt;chr&gt; &lt;chr&gt;\n## 1 \u3044    \u306b   \n## 2 \u308d    \u307b   \n## 3 \u306f    \u3078<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>flextable::flextable(d3) |&gt; \n  flextable::color(i=1,j=1,color=\"red\") |&gt; \n  flextable::fontsize(i=1,j=1,size=11) |&gt; \n\n  flextable::color(i=2,j=1,color=\"orange\") |&gt; \n  flextable::fontsize(i=2,j=1,size=12) |&gt; \n\n  flextable::color(i=3,j=1,color=\"yellow\") |&gt; \n  flextable::fontsize(i=3,j=1,size=13) |&gt; \n\n  flextable::color(i=1,j=2,color=\"green\") |&gt; \n  flextable::fontsize(i=1,j=2,size=14) |&gt; \n\n  flextable::color(i=2,j=2,color=\"blue\") |&gt; \n  flextable::fontsize(i=2,j=2,size=15) |&gt; \n\n  flextable::color(i=2,j=2,color=\"violet\") |&gt; \n  flextable::fontsize(i=2,j=2,size=16) |&gt; \n\n  flextable::color(i=3,j=2,color=\"purple\") |&gt; \n  flextable::fontsize(i=3,j=2,size=17)<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"242\" height=\"223\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-22.png\" alt=\"\" class=\"wp-image-685\"\/><\/figure>\n\n\n\n<p>\u3053\u3053\u307e\u3067\u8aad\u3093\u3067\u3044\u305f\u3060\u3044\u3066\u3044\u305f\u3089\u3001\u3053\u308c\u3001\u305d\u3093\u306a\u306b\u96e3\u3057\u304f\u306a\u3044\u3067\u3059\u306d\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a<\/h2>\n\n\n\n<p>\u3053\u3053\u307e\u3067\u3067<code>flextable<\/code>\u3067\u8868\u3092\u4f5c\u6210\u3057\u3066\u3001\u6bd4\u8f03\u7684\u81ea\u7531\u306b\u8272\u3084\u7f6b\u7dda\u306a\u3069\u3092\u8a2d\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u3063\u305f\u306f\u305a\u3067\u3059\u3002\u3053\u3053\u304b\u3089\u306f\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a\u3092\u8003\u3048\u3066\u3044\u304d\u307e\u3059\u3002\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u304c\u8a2d\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308b\u3068\u3001R\u3092\u3064\u304b\u3063\u3066Word\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u308b\u5834\u5408\u306b\u304b\u306a\u308a\u898b\u6804\u3048\u306e\u826f\u3044\u3082\u306e\u304c\u4f5c\u308c\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a\u306e\u57fa\u672c<\/h3>\n\n\n\n<p>\u307e\u305a\u306f\u3001\u3042\u308b\u4e00\u5b9a\u306e\u6761\u4ef6\u3092\u6e80\u305f\u3059\u5834\u5408\u306b\u30bb\u30eb\u306e\u8272\u3092\u8d64\u306b\u3059\u308b\u3068\u3044\u3046\u51e6\u7406\u3092\u884c\u3046\u5834\u5408\u3092\u8003\u3048\u3066\u307f\u307e\u3059\u3002\u6761\u4ef6\u3068\u3057\u3066\u306f\u3001a\u5217\u306e\u6570\u5b57\u304c3\u672a\u6e80\u306e\u6642\u306b\u3001a\u5217\u3092\u8d64\u304f\u3059\u308b\u3068\u3044\u3046\u51e6\u7406\u3067\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d &lt;- tibble(a = 1:5, b = 11:15)\n\nd |&gt; \n  flextable::flextable() |&gt; \n  flextable::bg(i = ~a &lt;3, j = 1, bg = \"red\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"236\" height=\"290\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-23.png\" alt=\"\" class=\"wp-image-686\"\/><\/figure>\n\n\n\n<p>j\u306e\u5024\u30922\u3068\u3059\u308b\u3068\u3001a\u5217\u306b\u5fdc\u3058\u3066\u3001b\u5217\u306e\u8272\u3092\u5909\u66f4\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d |&gt; \n  flextable::flextable() |&gt; \n  flextable::bg(i = ~a &lt;3, j = 2, bg = \"red\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"234\" height=\"296\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-24.png\" alt=\"\" class=\"wp-image-688\"\/><\/figure>\n\n\n\n<p>~\u3092\u4f7f\u3063\u3066formula\u3067\u8a2d\u5b9a\u3059\u308b\u3068\u3001\u5217\u540d\u3067\u306e\u6307\u5b9a\u304c\u53ef\u80fd\u306a\u306e\u3067\u30011\u30842\u3067\u306f\u306a\u304f\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d |&gt; \n  flextable::flextable() |&gt; \n  flextable::bg(i = ~a &lt;3, j = ~a, bg = \"red\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"238\" height=\"295\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-25.png\" alt=\"\" class=\"wp-image-689\"\/><\/figure>\n\n\n\n<p>\u3068\u3057\u3066\u3082OK\u3067\u3059\u3002formula\u3067\u306f\u3001\u8907\u6570\u5217\u306e\u6307\u5b9a\u306b\u306f\uff0b\u3092\u5229\u7528\u3057\u307e\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d |&gt; \n  flextable::flextable() |&gt; \n  flextable::bg(i = ~a &lt;3, j = ~a + b, bg = \"red\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"236\" height=\"298\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-26.png\" alt=\"\" class=\"wp-image-690\"\/><\/figure>\n\n\n\n<p>\u5b9f\u306f\u3001\u30ed\u30b8\u30ab\u30eb\u30d9\u30af\u30c8\u30eb\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u306a\u306e\u3067\u3001\u6b21\u306e\u3088\u3046\u306a\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d |&gt; \n  flextable::flextable() |&gt; \n  flextable::bg(i = c(T,T,F,T,F), j = ~b, bg = \"red\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"241\" height=\"294\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-27.png\" alt=\"\" class=\"wp-image-692\"\/><\/figure>\n\n\n\n<p>\u4ee5\u4e0a\u3001\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\uff08i\u3068j\u306e\u8a2d\u5b9a\u306e\u4ed5\u65b9\uff09\u306e\u7c21\u5358\u306a\u8aac\u660e\u3067\u3057\u305f\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\">\u6761\u4ef6\u3064\u304d\u66f8\u5f0f\u8a2d\u5b9a\u306e\u5fdc\u7528<\/h3>\n\n\n\n<p>R\u3067\u4f55\u304b\u3057\u3089\u306e\u500b\u3005\u306e\u8abf\u67fb\u30c7\u30fc\u30bf\u306b\u5bfe\u3057\u3066\u3001\u500b\u4eba\u500b\u4eba\u306b\u30ec\u30dd\u30fc\u30c8\u3092\u4f5c\u6210\u3057\u3066\u8fd4\u3059\u3088\u3046\u306a\u72b6\u6cc1\u3092\u60f3\u5b9a\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\u4f8b\u3048\u3070\u3001\u6b21\u306e\u8868\u306f\u3001\u5e74\u5ea6\uff08yr)\u3068\u691c\u67fb\u5024\uff08disp1\u3001disp2\u3001disp3)\u306e\u5024(\u524d\u5e74\u304b\u3089\u306e\u5909\u5316\u91cf)\u3068\u3057\u305f\u8868\u3067\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>gen_survey &lt;- function(yr){\n  tibble(\n    yr = yr,\n    score1 = runif(1,0,100),\n    score2 = runif(1,0,100),\n    score3 = runif(1,0,100)\n  )\n}\n\nd &lt;- bind_rows(\n  gen_survey(2019),  \n  gen_survey(2020),  \n  gen_survey(2021),  \n  gen_survey(2022)  \n)\n\nd &lt;- d |&gt; \n  mutate(diffs1 = score1 - lag(score1)) |&gt; \n  mutate(diffs2 = score2 - lag(score2)) |&gt; \n  mutate(diffs3 = score3 - lag(score3))\n\nddisp &lt;- d |&gt; \n  mutate(across(!yr, ~scales::number(., accuracy=0.1))) |&gt; \n  mutate(\n    disp1 = str_glue(\"{score1}({diffs1})\"),\n    disp2 = str_glue(\"{score2}({diffs2})\"),\n    disp3 = str_glue(\"{score3}({diffs3})\")\n  )\n\nddisp |&gt; \n  select(yr, starts_with(\"disp\")) |&gt; \n  flextable::flextable() |&gt; \n  flextable::colformat_num(big.mark=\"\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"491\" height=\"240\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-28.png\" alt=\"\" class=\"wp-image-693\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-28.png 491w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-28-300x147.png 300w\" sizes=\"(max-width: 491px) 100vw, 491px\" \/><\/figure>\n\n\n\n<p>\u3053\u308c\u306b\u6761\u4ef6\u4ed8\u3051\u3092\u884c\u3046\u5834\u5408\u3092\u8003\u3048\u3066\u898b\u305f\u3044\u306e\u3067\u3059\u304c\u3001\u4f8b\u3048\u3070\u3001\u691c\u67fb\u5024\u304c50\u4ee5\u4e0a\u3067\u80cc\u666f\u3092\u8584\u3044\u9752\u300150\u672a\u6e80\u3067\u80cc\u666f\u3092\u8584\u3044\u8d64\u3001\u5909\u5316\u91cf\uff08\u62ec\u5f27\u306e\u4e2d\u306e\u6570\u5b57\uff09\u304c10\u4ee5\u4e0a\u3067\u6587\u5b57\u3092\u9752\u3001\u5909\u5316\u91cf\u304c-10\u4ee5\u4e0b\u3067\u6587\u5b57\u3092\u8d64\u306b\u3059\u308b\u3068\u3044\u3046\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a\u3092\u884c\u3046\u3053\u3068\u306f\u53ef\u80fd\u3067\u3057\u3087\u3046\u304b\uff1f<\/p>\n\n\n\n<p>\u901a\u5e38\u306e<code>i<\/code>\u3068<code>j<\/code>\u306e\u8a2d\u5b9a\u3067\u306f\u3001\u305d\u3082\u305d\u3082\u6587\u5b57\u306b\u306a\u3063\u3066\u3044\u308b\u305f\u3081\u3001\u6570\u5b57\u306e\u5927\u5c0f\u3067\u306e\u6761\u4ef6\u8a2d\u5b9a\u306f\u3067\u304d\u307e\u305b\u3093\u3002\u306a\u306e\u3067\u3001\u5de5\u592b\u304c\u5fc5\u8981\u3068\u306a\u308a\u307e\u3059\u3002\u3044\u304f\u3064\u304b\u3084\u308a\u65b9\u304c\u8003\u3048\u3089\u308c\u307e\u3059\u3002\u30ab\u30ae\u306f\u8868\u306b\u5229\u7528\u3057\u3066\u3044\u308b\u30c7\u30fc\u30bf\u4ee5\u5916\u3067\u306e\u66f8\u5f0f\u8a2d\u5b9a\u3067\u3059<\/p>\n\n\n\n<p>\u7c21\u5358\u306a\u4f8b\u3092\u898b\u3066\u307f\u307e\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d &lt;- tibble(a = 1:2, b = 3:4)\n\nft &lt;- flextable::flextable(d) |&gt; \n  flextable::bg(1,1,bg=\"lightpink\")\n\nft<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"239\" height=\"158\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-29.png\" alt=\"\" class=\"wp-image-695\"\/><\/figure>\n\n\n\n<p>\u3053\u3053\u3067\u3001<code>i<\/code>\u3068<code>j<\/code>\u306e\u6307\u5b9a\u306e\u4ed5\u65b9\u3067\u3069\u3093\u306a\u65b9\u6cd5\u304c\u3042\u308b\u304b\u3092\u601d\u3044\u51fa\u3057\u3066\u3044\u305f\u3060\u304f\u3068\u3001\u30ed\u30b8\u30ab\u30eb\u30d9\u30af\u30c8\u30eb\u3092\u4e0e\u3048\u3066\u3042\u3052\u3066\u3082\u5927\u4e08\u592b\u3067\u3057\u305f\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft &lt;- flextable::flextable(d) |&gt; \n  flextable::bg(i=c(T,F), j=1,bg=\"lightpink\") |&gt; \n  flextable::bg(i=c(F,T), j=2,bg=\"lightpink\")\n\nft<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"234\" height=\"162\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-30.png\" alt=\"\" class=\"wp-image-696\"\/><\/figure>\n\n\n\n<p>\u3053\u308c\u3001<code>T<\/code>\u3001<code>F<\/code>\u306e\u90e8\u5206\u3092\u5225\u306e<code>tibble<\/code>\u3068\u3057\u3066\u3082\u3063\u3066\u3042\u3052\u3066\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>condition &lt;- tibble(a = c(T,F), b=c(F,T))\n\nft &lt;- flextable::flextable(d) |&gt; \n  flextable::bg(i=condition&#91;&#91;1]], j=1,bg=\"lightpink\") |&gt; \n  flextable::bg(i=condition&#91;&#91;2]], j=2,bg=\"lightpink\")\n\nft<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"226\" height=\"155\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-31.png\" alt=\"\" class=\"wp-image-697\"\/><\/figure>\n\n\n\n<p>\u3053\u308c\u3092\u3001<code>purrr::reduce<\/code>\u3067\u53cd\u5fa9\u3059\u308b\u3053\u3068\u3092\u8003\u3048\u308b\u3068\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>condition &lt;- tibble(a = c(T,F), b = c(F,T))\n\nft &lt;- flextable::flextable(d)\n\nreduce(\n  .x = seq_along(condition), \n  .f = function(tbl, i){\n    tbl |&gt; flextable::bg(i = condition&#91;&#91;i]], j = i, \"lightpink\")\n  },\n  .init = ft\n)<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"228\" height=\"162\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-32.png\" alt=\"\" class=\"wp-image-698\"\/><\/figure>\n\n\n\n<p><code>condition<\/code>\u3068\u3044\u3046T\u3068F\u306e<code>tibble<\/code>\u3092\u5225\u306b\u7528\u610f\u3057\u3066\u3042\u3052\u308b\u3053\u3068\u3067\u3001\u597d\u304d\u306a\u8272\u3067\u5857\u308a\u3064\u3076\u3059\u3053\u3068\u304c\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n\n\n\n<p>\u3053\u308c\u3092\u95a2\u6570\u5316\u3057\u3066\u3042\u3052\u308b\u3068\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ft_condition_beta &lt;- function(ft, condition, desired_color){\n  reduce(\n    .x = seq_along(condition), \n    .f = function(tbl, i){\n      tbl |&gt; flextable::bg(i = condition&#91;&#91;i]], j = i, desired_color)\n    },\n    .init = ft)\n}\n\nd &lt;- tibble(a = 1:10, a2 = letters&#91;1:10], b = 11:20, b2 = letters&#91;11:20]) |&gt; \n  mutate(condaa = a &lt;= 4, condbb = b &gt;= 18)\n\nft &lt;- d |&gt; select(a2,b2) |&gt; flextable::flextable()\ncondition &lt;- d |&gt; select(condaa,condbb)\n\nft_condition_beta(ft, condition, \"skyblue\")<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"233\" height=\"507\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-33.png\" alt=\"\" class=\"wp-image-699\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-33.png 233w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-33-138x300.png 138w\" sizes=\"(max-width: 233px) 100vw, 233px\" \/><\/figure>\n\n\n\n<p>\u3053\u306e\u3088\u3046\u306b\u3001\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u5024\u3067\u306e\u4ee5\u5916\u3067\u306e\u6761\u4ef6\u4ed8\u3051\u304c\u3067\u304d\u3066\u3044\u307e\u3059\u3002\u4eca\u56de\u306e\u5834\u5408\u306f\u3001\u8868\u306b\u542b\u307e\u308c\u3066\u3044\u306a\u3044<code>condaa<\/code>\u3067<code>a2<\/code>\u5217\u306e\u8272\u306e\u5857\u5206\u3051\u3092\u6307\u5b9a\u3057\u3001\u540c\u3058\u304f<code>condbb<\/code>\u3067<code>b2<\/code>\u5217\u306e\u8272\u306e\u5857\u5206\u3051\u3092\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u3053\u306e\u95a2\u6570\u3001<code>bg<\/code>\u3057\u304b\u9069\u5fdc\u3067\u304d\u3066\u3044\u307e\u305b\u3093\u304c\u3001<code>bg<\/code>\u3092\u95a2\u6570\u3068\u3057\u3066\u5f15\u6570\uff08<code>FUN<\/code>\uff09\u306b\u4e0e\u3048\u308b\u3088\u3046\u306a\u95a2\u6570\u3068\u3057\u3066\u3042\u3052\u3066\u3001<code>FUN<\/code>\u306b\u4e0e\u3048\u308b\u5f15\u6570\u3092<code>...<\/code>\u3067\u4e0e\u3048\u3066\u3042\u3052\u308b\u3088\u3046\u306a\u95a2\u6570\u3068\u3059\u308b\u3068\u30fb\u30fb\u30fb<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>library(flextable)\nft_condition &lt;- function(ft, condition, FUN, ...){\n  reduce(\n    .x = seq_along(condition), \n    .f = function(tbl, i){\n      tbl |&gt; FUN(i = condition&#91;&#91;i]], j = i, ...)\n    },\n    .init = ft)\n}<\/code><\/pre>\n\n\n\n<p>\u6b21\u306e\u3088\u3046\u306a\u8907\u96d1\u306a\u6761\u4ef6\u3067\u3082\u3001\u7d50\u69cb\u697d\u306b\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u3092\u9069\u5fdc\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d2 &lt;- tibble(a = c(\"a\",\"b\",\"c\"), b = c(\"d\",\"e\",\"f\"))\ncond1 &lt;- tibble(a = c(T,F,T), b= c(F,F,T))\ncond2 &lt;- tibble(a = c(F,F,T), b= c(T,F,T))\ncond3 &lt;- tibble(a = c(F,T,F), b= c(T,T,T))\n\nft_condition(flextable(d2), cond1, bg, bg=\"pink\") |&gt; \n  ft_condition(cond2, color, color=\"purple\") |&gt; \n  ft_condition(cond3, flextable::fontsize, size=20)<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"228\" height=\"248\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-34.png\" alt=\"\" class=\"wp-image-700\"\/><\/figure>\n\n\n\n<h2 class=\"wp-block-heading\">\u5b9f\u52d9\u7684\u306a\u72b6\u6cc1\u3067\u8868\u3092\u4f5c\u6210\u3057\u3066\u307f\u308b\u3002<\/h2>\n\n\n\n<p>\u3055\u3066\u3001\u3053\u3053\u307e\u3067\u306e\u77e5\u8b58\u3092\u4f7f\u3063\u3066\u5b9f\u52d9\u3067\u5229\u7528\u3059\u308b\u3088\u3046\u306a\u8868\u3092\u4f5c\u6210\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\u3053\u3053\u3067\u306f\u3001\u79c1\u304c\u672c\u696d\u3068\u3057\u3066\u3044\u308b\u7523\u696d\u4fdd\u5065\u9818\u57df\u3067\u306e\u30c7\u30fc\u30bf\u96c6\u8a08\u3057\u3066\u8868\u3092\u4f5c\u308b\u3088\u3046\u306a\u5834\u5408\u3092\u8003\u3048\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u307e\u305a\u306f\u30e9\u30f3\u30c0\u30e0\u306a\u30c7\u30fc\u30bf\u3092\u4f5c\u6210\u3057\u307e\u3057\u3087\u3046\u3002\u3053\u3053\u3067\u306f\u3001A\u90e8\u9580\u304b\u3089J\u90e8\u9580\u307e\u3067\u306e\u3001\u793e\u54e1\u306e\u3084\u308b\u6c17\uff08WE,0-6\u306e\u70b9\u6570\u3067\u9ad8\u3044\u307b\u3069\u826f\u3044\uff09\u3001\u793e\u54e1\u306e\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u4f4e\u4e0b(PISM\u3001\u4f4e\u4e0b\u5ea6\u5408\u3092\uff05\u3067\u8868\u3057\u3001\u4f4e\u3044\u307b\u3069\u3088\u3044)\u3092\u30011\u5e74\u524d\u3068\u6bd4\u8f03\u3057\u3066\u8868\u793a\u3059\u308b\u8868\u3092\u8003\u3048\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>#\u4e00\u4eba\u5206\u306e\u30c7\u30fc\u30bf\u3092\u4f5c\u308b\u95a2\u6570\u3002\u30ec\u30d9\u30eb\u306f1\u3060\u3068\u4f4e\u3044WE\u3001\u9ad8\u3044PISM\n#\u30ec\u30d9\u30eb\u306f3\u3060\u3068\u9ad8\u3044WE\u3001\u4f4e\u3044PISM\u3092\u51fa\u3059\u3002\nind_data &lt;- function(level){\n\n  prev_we &lt;- round(rnorm(1,mean=level, sd=3))\n  prev_we &lt;- case_when(\n    prev_we &lt;= 0 ~ 0,\n    prev_we &gt;= 6 ~ 6,\n    TRUE ~ prev_we\n  )\n\n  current_we &lt;- round(rnorm(1,mean=prev_we, sd=3))\n  current_we &lt;- case_when(\n    current_we &lt;= 0 ~ 0,\n    current_we &gt;= 6 ~ 6,\n    TRUE ~ current_we\n  )\n\n  prev_pism &lt;- round(rnorm(1,mean=10*(3-level), sd=10))\n  prev_pism &lt;- case_when(\n    prev_pism &lt;= 0 ~ 0,\n    prev_pism &gt;= 100 ~ 100,\n    TRUE ~ prev_pism\n  )\n\n  current_pism &lt;- round(rnorm(1,mean=prev_pism, sd=10))\n  current_pism &lt;- case_when(\n    current_pism &lt;= 0 ~ 0,\n    current_pism &gt;= 100 ~ 100,\n    TRUE ~ current_pism\n  )\n\n  res &lt;- tibble(\n    prev_we   = prev_we  , current_we   = current_we,\n    prev_pism = prev_pism, current_pism = current_pism\n  )\n\n  return(res)\n}\n\nset.seed(12345)\nd &lt;- tibble(bumon = LETTERS&#91;1:10]) |&gt; \n  mutate(n = round(runif(10,50,150))) |&gt; \n  mutate(perclv1 = runif(10,0,0.5)) |&gt; \n  mutate(perclv2 = runif(10,0,0.5)) |&gt; \n  mutate(perclv3 = 1- perclv1 - perclv2) |&gt; \n  mutate(\n    nlv1 = round(perclv1*n),\n    nlv2 = round(perclv2*n),\n    nlv3 = round(perclv3*n)\n  )\n\nd &lt;- d |&gt; \n  mutate(\n    res1 = map(nlv1, ~{\n      map_dfr(1:., ~{ind_data(1)})\n    }),\n    res2 = map(nlv2, ~{\n      map_dfr(1:., ~{ind_data(2)})\n    }),\n    res3 = map(nlv3, ~{\n      map_dfr(1:., ~{ind_data(3)})\n    }),\n  )\n\nd &lt;- d |&gt; \n  select(bumon, res1, res2, res3) |&gt; \n  pivot_longer(cols = !bumon) |&gt; \n  select(!name) |&gt; \n  unnest(value)\n\nd<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-code\"><code>## # A tibble: 1,145 \u00d7 5\n##    bumon prev_we current_we prev_pism current_pism\n##    &lt;chr&gt;   &lt;dbl&gt;      &lt;dbl&gt;     &lt;dbl&gt;        &lt;dbl&gt;\n##  1 A           3          0        17           28\n##  2 A           2          4        35           29\n##  3 A           2          0         3            5\n##  4 A           3          6         3           12\n##  5 A           0          1        12           10\n##  6 A           4          6        11           20\n##  7 A           4          2        18           25\n##  8 A           0          2         0            1\n##  9 A           3          3         0            0\n## 10 A           0          0        10           14\n## # \u2139 1,135 more rows<\/code><\/pre>\n\n\n\n<p>\u3061\u3087\u3063\u3068\u30c7\u30fc\u30bf\u3092\u4f5c\u6210\u3059\u308b\u51e6\u7406\u3084\u3084\u3053\u3057\u3044\u3067\u3059\u304c\u3001\u3053\u3053\u306e\u672c\u984c\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u306e\u3067\u5148\u306b\u9032\u307f\u307e\u3057\u3087\u3046\u3002\u307e\u305a\u306f\u90e8\u9580\u6bce\u306b\u96c6\u8a08\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d2 &lt;- d |&gt; \n  group_by(bumon) |&gt; \n  summarise(prev_we = mean(prev_we),\n            current_we = mean(current_we),\n            prev_pism = mean(prev_pism),\n            current_pism = mean(current_pism))<\/code><\/pre>\n\n\n\n<p>\u3053\u308c\u3067\u3001\u8868\u793a\u7528\u306e\u5217\u3092\u4f5c\u6210\u3057\u3066\u3001\u8868\u793a\u3057\u305f\u3044\u8868\u3092\u4f5c\u308a\u307e\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>d3 &lt;- d2 |&gt; \n  mutate(diffwe = current_we - prev_we,\n         diffpism = current_pism - prev_pism) |&gt;\n  mutate(str_we = scales::number(current_we,accuracy=0.01),\n         str_pism = scales::number(current_pism,accuracy=0.01),\n         str_dwe  = scales::number(diffwe,accuracy=0.01),\n         str_dpism= scales::number(diffpism,accuracy=0.01)\n         ) |&gt; \n  mutate(res_we   = str_glue(\"{str_we}({str_dwe})\"),\n         res_pism = str_glue(\"{str_pism}({str_dpism})\"))\n\nft &lt;- d3 |&gt; \n  select(bumon, res_we, res_pism) |&gt; \n  flextable::flextable() |&gt; \n  flextable::set_header_labels(\"bumon\"=\"\u90e8\u9580\",\n                               \"res_we\" = \"WE\",\n                               \"res_pism\" = \"Pism\")\n\nft<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"374\" height=\"511\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-35.png\" alt=\"\" class=\"wp-image-701\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-35.png 374w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-35-220x300.png 220w\" sizes=\"(max-width: 374px) 100vw, 374px\" \/><\/figure>\n\n\n\n<p>\u3053\u306e\u8868\u306b\u5bfe\u3057\u3066\u3001<\/p>\n\n\n\n<p>\u30fbWE\u304c2.5\u4ee5\u4e0a\u3067\u3042\u308c\u3070\u8584\u3044\u9752\u306e\u80cc\u666f\u30012.5\u672a\u6e80\u3067\u3042\u308c\u3070\u8584\u3044\u8d64\u306e\u80cc\u666f\u3002\u6628\u5e74\u3088\u308a\u6e1b\u5c11\u3057\u3066\u3044\u308c\u3070\u8d64\u3044\u6587\u5b57\u3001\u6628\u5e74\u3088\u308a\u5897\u52a0\u3057\u3066\u3044\u308c\u3070\u9752\u3044\u6587\u5b57<\/p>\n\n\n\n<p>\u30fbPism\u306f\u9ad8\u3044\u3068\u60aa\u3044\u306e\u3067\u300110\u4ee5\u4e0a\u3067\u8584\u3044\u8d64\u306e\u80cc\u666f\u300110\u672a\u6e80\u3067\u8584\u3044\u9752\u306e\u80cc\u666f\u30022\u30dd\u30a4\u30f3\u30c8\u4ee5\u4e0a\u306e\u5897\u52a0\u3067\u8d64\u3044\u6587\u5b57\u3001\u305d\u308c\u4ee5\u4e0b\u3067\u9752\u3044\u6587\u5b57<\/p>\n\n\n\n<p>\u3068\u88c5\u98fe\u3057\u3066\u3042\u3052\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u81ea\u4f5c\u95a2\u6570\u3092\u5229\u7528\u3057\u3066\u884c\u3046\u5834\u5408\u306f\u3001\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>condbg_blue &lt;- d3 |&gt; \n  mutate(\n    bumon = FALSE,\n    bgwe = current_we &gt;= 2.5,\n    bgpism = current_pism &lt; 10\n  ) |&gt; \n  select(bumon, bgwe, bgpism)\n\ncondbg_red &lt;- d3 |&gt; \n  mutate(\n    bumon = FALSE,\n    bgwe = current_we &lt; 2.5,\n    bgpism = current_pism &gt;= 10\n  ) |&gt; \n  select(bumon, bgwe, bgpism)\n\ncondcolor_blue &lt;- d3 |&gt; \n  mutate(\n    bumon = FALSE,\n    colorwe = diffwe &gt; 0,\n    colorpism = diffpism &lt; 2\n  ) |&gt; \n  select(bumon, colorwe, colorpism)\n\ncondcolor_red &lt;- d3 |&gt; \n  mutate(\n    bumon = FALSE,\n    colorwe = diffwe &lt;= 0,\n    colorpism = diffpism &gt;= 2\n  ) |&gt; \n  select(bumon, colorwe, colorpism)\n\nft_condition &lt;- function(ft, condition, FUN, ...){\n  reduce(\n    .x = seq_along(condition), \n    .f = function(tbl, i){\n      tbl |&gt; FUN(i = condition&#91;&#91;i]], j = i, ...)\n    },\n    .init = ft)\n}\n\nft_condition(ft, condbg_blue, bg, bg=\"lightskyblue\") |&gt; \n  ft_condition(condbg_red, bg, bg=\"lightpink\") |&gt; \n  ft_condition(condcolor_blue, color, color=\"darkblue\") |&gt; \n  ft_condition(condcolor_red, color, color=\"darkred\") <\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img decoding=\"async\" width=\"377\" height=\"509\" src=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-36.png\" alt=\"\" class=\"wp-image-702\" srcset=\"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-36.png 377w, https:\/\/bunseki-data.com\/r-onlinecourse\/wp-content\/uploads\/2024\/02\/image-36-222x300.png 222w\" sizes=\"(max-width: 377px) 100vw, 377px\" \/><\/figure>\n\n\n\n<p>\u5c1a\u3001flextable\u306e0.9.4\u304b\u3089\u306f\u4f5c\u3063\u305f\u8868\u306e\u5217\u3092\u524a\u9664\u3059\u308b\u95a2\u6570\u304c\u5c0e\u5165\u3055\u308c\u305f\u306e\u3067\u3001\u4eca\u56de\u306e\u3088\u3046\u306b\u3042\u307e\u308a\u6761\u4ef6\u304c\u305f\u304f\u3055\u3093\u306a\u3044\u5834\u5408\u306f\u3001\u6b21\u306e\u3088\u3046\u306b\u3001\u5857\u5206\u3051\u308b\u305f\u3081\u306e\u5217\u3092\u542b\u3081\u3066flextable\u3092\u4f5c\u6210\u3057\u3066\u3001\u4f5c\u6210\u3057\u305f\u5f8c\u306b\u3001\u4e0d\u8981\u306a\u5217\u3092\u6d88\u3059\u3068\u3044\u3046\u3088\u3046\u306a\u3084\u308a\u65b9\u3082\u3067\u304d\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>ftfin &lt;- d3 |&gt; \n  select(bumon, res_we, res_pism, current_we, current_pism, diffwe, diffpism) |&gt; \n  flextable::flextable() |&gt; \n  flextable::bg(i = ~ current_we &gt;=2.5, j = ~ res_we, bg=\"lightskyblue\") |&gt; \n  flextable::bg(i = ~ current_we &lt; 2.5, j = ~ res_we, bg=\"lightpink\") |&gt; \n  flextable::bg(i = ~ current_pism &lt; 10, j = ~ res_pism, bg=\"lightskyblue\") |&gt; \n  flextable::bg(i = ~ current_pism &gt;= 10, j = ~ res_pism, bg=\"lightpink\") |&gt; \n  flextable::color(i = ~ current_we &gt; 0 , j = ~ res_we, color=\"darkblue\") |&gt; \n  flextable::color(i = ~ current_we &lt;= 0, j = ~ res_we, color=\"darkred\") |&gt; \n  flextable::color(i = ~ current_pism &lt; 2, j = ~ res_pism, color=\"darkblue\") |&gt; \n  flextable::color(i = ~ current_pism &gt;= 2, j = ~ res_pism, color=\"darkred\") |&gt; \n  flextable::delete_columns(j = ~current_we+current_pism+diffwe+diffpism) |&gt; \n  flextable::set_header_labels(\"bumon\"=\"\u90e8\u9580\",\n                               \"res_we\" = \"WE\",\n                               \"res_pism\" = \"Pism\")<\/code><\/pre>\n\n\n\n<p>\u5217\u3092\u524a\u9664\u3059\u308b\u65b9\u6cd5\u306e\u65b9\u304c\u308f\u304b\u308a\u3084\u3059\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<br>\u305f\u3060\u3001\u95a2\u6570\u3092\u4f7f\u3046\u3084\u308a\u65b9\u306f<code>across<\/code>\u95a2\u6570\u306a\u3069\u3092\u99c6\u4f7f\u3057\u3066\u3001\u6761\u4ef6\u304c\u591a\u6570\u3042\u308b\u5834\u5408\u306a\u3069\u306f\u3088\u308a\u300c\u697d\u300d\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u66f8\u3051\u308b\u53ef\u80fd\u6027\u3082\u3042\u308a\u307e\u3059\u306e\u3067\u72b6\u6cc1\u306b\u5fdc\u3058\u3066\u4f7f\u3044\u5206\u3051\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n<h2 class=\"wp-block-heading\">flextable\u306eWord\u3078\u306e\u8cbc\u308a\u4ed8\u3051<\/h2>\n\n\n\n<p>\u76ee\u7684\u306e\u8868\u3092<code>flextable<\/code>\u3067\u66f8\u304f\u3053\u3068\u304c\u3067\u304d\u305f\u3089\u6700\u5f8c\u306bWord\u30d5\u30a1\u30a4\u30eb\u3078\u306e\u51fa\u529b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u89e3\u8aac\u3057\u3066\u304a\u304d\u307e\u3059\u3002\u3068\u306f\u3044\u3063\u3066\u3082\u30d5\u30a1\u30a4\u30eb\u3092\u7d30\u304b\u304f\u4f5c\u308a\u3053\u3080\u3088\u3046\u306a\u8a71\u3092\u3057\u59cb\u3081\u308b\u3068\u3001\u3053\u306e\u8a18\u4e8b\u306e\u91cf\u304c\u500d\u306b\u306a\u308b\u306e\u3067\uff08\u3069\u3053\u304b\u307e\u305f\u5225\u306e\u6a5f\u4f1a\u306b\u66f8\u304d\u307e\u3059\uff09\u3001\u3068\u308a\u3042\u3048\u305a\u3053\u3053\u3067\u306f\u3001<code>flextable<\/code>\u306b\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u95a2\u6570\u306e\u7d39\u4ecb\u306b\u3068\u3069\u3081\u307e\u3059\u3002<\/p>\n\n\n\n<p>\u6b21\u306e\u95a2\u6570\u3067Word\u30d5\u30a1\u30a4\u30eb\u304c\u3067\u304d\u3066\u3001<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>flextable::save_as_docx(values = ftfin, path = \"temp.docx\")<\/code><\/pre>\n\n\n\n<p>\u3053\u3063\u3061\u306e\u95a2\u6570\u3067PPTX\u30d5\u30a1\u30a4\u30eb\u304c\u3067\u304d\u3042\u304c\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>flextable::save_as_pptx(ftfin,path = \"temp.pptx\")<\/code><\/pre>\n\n\n\n<p>\u8868\u3092\u4f5c\u6210\u3059\u308b\u3060\u3051\u306a\u3089\u3001\u3053\u308c\u3067\u3001Word\u3084PPT\u306b\u304d\u308c\u3044\u306a\u8868\u3092\u8cbc\u308a\u4ed8\u3051\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u306e\u3067\u3001\u3068\u308a\u3042\u3048\u305a\u51fa\u529b\u3057\u305f\u3044\u3068\u3044\u3046\u65b9\u306f\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n\n\n\n<p>\u4ee5\u4e0a\u3001flextable\u30d1\u30c3\u30b1\u30fc\u30b8\u3067\u306e\u8868\u4f5c\u6210\u306e\u5c0e\u5165\u3067\u3057\u305f\u3002\u4f55\u304b\u306e\u304a\u5f79\u306b\u7acb\u3064\u3068\u5e78\u3044\u3067\u3059\u3002<\/p>\n\n\n\n<p>Have a wonderful R life!<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6c17\u3065\u3044\u305f\u3089\u30d6\u30ed\u30b0\u306e\u8a18\u4e8b\u304c\u307e\u3063\u305f\u304f\u66f4\u65b0\u3055\u308c\u3066\u3044\u307e\u305b\u3093\uff08\u4ed5\u4e8b\u3068\u304b\u672c\u696d\u3068\u304b\u5b66\u696d\u3068\u304b\u3067\u306a\u304b\u306a\u304b\u6642\u9593\u304c\u53d6\u308c\u306a\u304b\u3063\u305f\u3093\u3067\u3059\u3002\u7533\u3057\u8a33\u3042\u308a\u307e\u305b\u3093\u3002\uff09 \u305d\u3093\u306a\u4e2d\u3001\u672c\u696d\uff08\u7523\u696d\u4fdd\u5065\uff09\u306e\u5b9f\u52d9\u3067R\u3092\u4f7f\u3046\u6a5f\u4f1a\u304c\u305f\u304f\u3055\u3093\u3042\u308a\u3001Office\uff0bR\u304c\u500b\u4eba\u7684\u306b\u300c\u3042\u3064\u3044\u300d\u306e\u3068\u304b\u306a\u308a\u4fbf\u5229\u306a\u306e\u3067\u30aa\u30f3\u30e9\u30a4\u30f3\u30b3\u30fc\u30b9\u3092\u3068\u601d\u3063\u305f\u3082\u306e\u306e\u3001\u305d\u308c\u3092\u4f5c\u308b\u6642\u9593\u304c\u307e\u3063\u305f\u304f\u3068\u308c\u305a\u3001\u30d6\u30ed\u30b0\u8a18\u4e8b\u3067\u9023\u8f09\u3059\u308b\u5f62\u3067\u5171\u6709\u3057\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002 \u3068\u3044\u3046\u3053\u3068\u3067\u3001Office\uff0bR\u3092\u30c6\u30fc\u30de\u306b\u3001\u4eca\u56de\u306e\u8a18\u4e8b\u306fWord\u306b\u304d\u308c\u3044\u306a\u8868\u3092\u63cf\u753b\u3059\u308b\u3053\u3068\u3092\u76ee\u7684\u3068\u3057\u3066\u3044\u304d\u307e\u3059\u3002 \u306f\u3058\u3081\u307e\u3057\u3087\u3046\uff01 flextable\u306e\u57fa\u672c\u64cd\u4f5c \u8868\u3092\u66f8\u304f\u305f\u3081\u306e\u30d1\u30c3\u30b1\u30fc\u30b8\u306f\u3044\u308d\u3044\u308d\u3042\u308a\u307e\u3059\u304c\u3001gt\u304c\u30e1\u30b8\u30e3\u30fc\u3069\u3053\u308d\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u3057\u304b\u3057\u3001gt\u306fword\u3078\u306e\u30a2\u30a6\u30c8\u30d7\u30c3\u30c8\u3092\u76f4\u63a5\u306b\u306f\u3067\u304d\u306a\u3044\u306e\u3067\u3001word\u306b\u304d\u308c\u3044\u306a\u8868\u3092\u3068\u8003\u3048\u305f\u5834\u5408\u306b\u306f\u3001flextable\u304c\u304a\u3059\u3059\u3081\u3067\u3059\u3002\u3053\u306e\u8a18\u4e8b\u4ee5\u964d\u3082\u3001\u57fa\u672c\u7684\u306b\u306fword\u306b\u8868\u3092\u51fa\u529b\u3059\u308b\u5834\u5408\u306fflextable\u3092\u5229\u7528\u3059\u308b\u306e\u3067\u3001\u307e\u305a\u306fflextable\u306e\u4f7f\u3044\u65b9\u3092\u898b\u3066\u3044\u304d\u307e\u3057\u3087\u3046\u3002 \u8868\u3092\u4f5c\u308bflextable::flextable flextable\u306e\u8868\u3092\u4f5c\u308b\u306e\u306f\u7c21\u5358\u3067\u3059\u3002 \u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u8aad\u307f\u8fbc\u3093\u3067\u30fb\u30fb\u30fb flextable::flextable(&lt;tibble&gt;)\u3068\u3059\u308b\u3060\u3051\u3067OK\u3067\u3059\u3002 \u5e45\u306e\u8abf\u6574 \u5217\u306e\u5e45\u3092\u8abf\u6574\u3059\u308b\u306b\u306fwidth\u95a2\u6570\u3092\u5229\u7528\u3057\u307e\u3059\u3002j\u304c\u5217\u756a\u53f7\u3067\u3001width\u3092\u6570\u5b57\u3067\u6307\u5b9a\u3002unit\u306f\u8868\u793a\u3057\u305f\u3044\u5e45\u306e\u5358\u4f4d\u3067\u8a2d\u5b9a\u3057\u307e\u3059\u3002\u306a\u306e\u3067\u30011\u5217\u76ee\u30923\u339d\u306e\u5e45\u306b\u3057\u305f\u3051\u308c\u3070\u6b21\u306e\u3088\u3046\u306b\u3057\u307e\u3059\u3002 \u540d\u524d\u306e\u5909\u66f4 \u5217\u306e\u5024\u3092\u5909\u66f4\u3059\u308b\u306b\u306fset_header_labels(&#8220;\u5143\u306e\u5217\u540d&#8221; = &#8220;\u5909\u3048\u305f\u3044\u5217\u540d&#8221;)\u3068\u3057\u307e\u3059\u3002dplyr::rename\u3068\u306f\u9806\u756a\u304c\u9006\u306a\u306e\u304c\u6df7\u4e71\u3057\u3084\u3059\u3044\u3067\u3059\u304c\u3001\u306a\u308c\u307e\u3057\u3087\u3046\u3002 \u8907\u6570\u5217\u3082OK\u3067\u3059 \u8907\u6570\u884c\u306e\u5217\u540d\u3092\u3064\u3051\u308b \u8868\u3092\u4f5c\u3063\u3066\u3044\u308b\u3068\u304d\u3001\u65b0\u3057\u3044\u5217\u3092\u8db3\u3059\u306a\u3069\u3082\u3084\u308a\u305f\u304f\u306a\u308a\u307e\u3059\u306d\u3002\u305d\u3046\u3044\u3046\u6642\u306fadd_header_row(&lt;\u4ed8\u3051\u8db3\u3057\u305f\u3044\u884c\u306e\u30d9\u30af\u30c8\u30eb&gt;,top = TRUE\/FALSE)\u3068\u3044\u3046\u8a18\u8ff0\u3092\u3059\u308b\u3053\u3068\u3067\u8ffd\u52a0\u3067\u304d\u307e\u3059\u3002 \u5217\u540d\u306e\u30de\u30fc\u30b8 \u3082\u3061\u308d\u3093\u3001\u3053\u306e\u4f8b\u3060\u3068\u3053\u308c\u3067\u306f\u898b\u305f\u76ee\u304c\u3044\u307e\u3044\u3061\u306a\u306e\u3067\u3001\u679c\u7269\u306f\u4e00\u3064\u306e\u30bb\u30eb\u306b\u30de\u30fc\u30b8\u3059\u308b\u95a2\u6570\u306e\u4e00\u3064\u3001flextable::merge_h\u3092\u5229\u7528\u3059\u308b\u3068\u3001 \u3053\u3046\u306a\u308a\u307e\u3059\u3002\u3053\u306e\u95a2\u6570\u3001\u4f55\u3092\u3057\u3066\u3044\u308b\u306e\u3067\u3057\u3087\u3046\u304b\uff1fmerge_h\u306eh\u306f\u6c34\u5e73\u65b9\u5411\uff08Horizontal\uff09\u306e\u7565\u3067\u3059\u3002part\u3067\u306f\u3001\u5217\u540d\u306e\u90e8\u5206\u3092header,\u3000\u30c7\u30fc\u30bf\u304c\u542b\u307e\u308c\u308b\u90e8\u5206\u3092body\u3068\u3044\u3046\u540d\u524d\u3092\u4ed8\u3051\u3066\u533a\u5225\u3057\u3066\u3044\u307e\u3059\u3002\u4eca\u56de\u306f\u3001header\u90e8\u5206\u306e1\u884c\u76ee(i=1)\u3092\u6c34\u5e73\u65b9\u5411\u306b\u7d50\u5408\u3057\u305f\u3044\u306e\u3067\u3001flextable::merge_h(i = 1, part = &#8220;header&#8221;)\u3068\u3044\u3046\u66f8\u304d\u65b9\u3068\u306a\u308a\u307e\u3057\u305f\u3002 merge_h\u95a2\u6570\u306f\u540c\u3058\u5024\u306e\u30bb\u30eb\u3092\u7d50\u5408\u3057\u3066\u304f\u308c\u307e\u3059\u3002\u4ed6\u306bmerge_v\uff08\u5782\u76f4\u65b9\u5411\u306e\u30de\u30fc\u30b8\uff09, merge_at\uff08\u4f4d\u7f6e\u6307\u5b9a\u3067\u304d\u308b\u30de\u30fc\u30b8\uff09\u306a\u3069\u306e\u7a2e\u985e\u304c\u3042\u308a\u307e\u3059\u3002 \u6c34\u5e73\u65b9\u5411\u306b\u5bc4\u305b\u308b \u5148\u307b\u3069\u306e\u8868\u3067\u679c\u7269\u306e\u8868\u8a18\u304c\u53f3\u306b\u5bc4\u3063\u3066\u3044\u305f\u306e\u3067\u3001\u4e2d\u592e\u3088\u308a\u306b\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\u4eca\u5ea6\u306f\u3001\u95a2\u6570\u3092\u307f\u3066\u4f55\u3092\u3057\u3066\u3044\u308b\u304b\u60f3\u50cf\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002 flextable::align\u95a2\u6570\u3067part=&#8221;header&#8221;\u90e8\u5206\u306ei=1\u884c\u76ee\u3092align=&#8221;center&#8221;\u3068\u3057\u3066\u3044\u307e\u3059\u3002\uff08\u30d8\u30c3\u30c0\u30fc\u90e8\u5206\u306e1\u884c\u76ee\u3092\u4e2d\u592e\u3088\u308a\u3068\u3057\u3066\u3044\u307e\u3059\uff09 \u8907\u6570\u884c\u3092\u6307\u5b9a\u3059\u308b\u5834\u5408\u306f\u3001i=c(1,2)\u3068\u3057\u3066\u3042\u3052\u308b\u304b\u3001\u5168\u90e8\u306b\u9069\u5fdc\u3057\u305f\u3051\u308c\u3070i\u3092\u6307\u5b9a\u3057\u306a\u3044\u3053\u3068\u3067\u3059\u3079\u3066\u306e\u884c\u3068\u3057\u305f\u610f\u5473\u306b\u306a\u308a\u307e\u3059\u3002 part\u306e\u7a2e\u985e flextable\u306e\u95a2\u6570\u3067\u306f\u3001part\u3068\u3044\u3046argument\u304c\u983b\u7e41\u306b\u767b\u5834\u3057\u307e\u3059\u3002\u3053\u306epart\u306f\u3001&#8221;all&#8221;, &#8220;body&#8221;, &#8220;header&#8221;\u306e\u3044\u305a\u308c\u304b\u3092\u6307\u5b9a\u3057\u3066\u3042\u3052\u308b\u5fc5\u8981\u304c\u3042\u308a\u3001&#8221;all&#8221;\u306f\u8868\u5168\u4f53\u3092\u3001&#8221;header&#8221;\u306f\u898b\u51fa\u3057\u306e\u90e8\u5206\u3001\u305d\u3057\u3066&#8221;body&#8221;\u306f\u30c7\u30fc\u30bf\u90e8\u5206\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002i\u3084j\u3067\u884c\u3068\u5217\u3092\u6307\u5b9a\u3059\u308b\u5834\u5408\u3001part\u306e\u5024\u306b\u3088\u3063\u3066\u306f\u6307\u3059\u4f4d\u7f6e\u304c\u307e\u3063\u305f\u304f\u9055\u3063\u3066\u304f\u308b\u306e\u3067\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u3002 \u4f4d\u7f6e\u6307\u5b9a\u3001\u308f\u304b\u308a\u3084\u3059\u3044\u3088\u3046\u306b\u3001bold\uff08\u592a\u5b57\u306b\u3059\u308b\uff09\u95a2\u6570\u3092\u5229\u7528\u3057\u3066\u8a73\u3057\u304f\u307f\u3066\u307f\u307e\u3057\u3087\u3046 all\u3067i=1\u306e\u4f4d\u7f6e\u6307\u5b9a\u3092\u3059\u308b\u3068\u3001\u898b\u51fa\u3057\u3068\u30c7\u30fc\u30bf\u90e8\u5206\u3001\u4e21\u65b9\u304c\u592a\u5b57\u306b\u306a\u3063\u3066\u3044\u308b\u3053\u3068\u304c\u78ba\u8a8d\u3067\u304d\u307e\u3059\u306d\uff1f\u3053\u308c\u3001\u884c\u6307\u5b9a\u3060\u3068\uff1f\uff1f\uff1f\u306a\u52d5\u4f5c\u3067\u3059\u304c\u3001j=1\u3068\u3057\u3066\u3001\u4e00\u5217\u76ee\u3092\u592a\u5b57\u306b\u3057\u305f\u3044\u3088\u3046\u306a\u5834\u5408\u306a\u3069\u306f\u3001\u7d50\u69cb\u91cd\u5b9d\u3057\u307e\u3059\u3002 \u7df4\u7fd2\u305d\u306e1 \u3053\u3053\u307e\u3067\u306e\u77e5\u8b58\u3092\u5229\u7528\u3057\u3066\u3001\u79c1\u306e\u672c\u696d\uff08\u7523\u696d\u4fdd\u5065\u306e\u5b9f\u52d9\uff09\u3067\u3088\u304f\u3042\u308a\u305d\u3046\u306a\u8868\u3092\u4f5c\u6210\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\u6b21\u306e\u3088\u3046\u306a\u5065\u5eb7\u8a3a\u65ad\u306e\u30c7\u30fc\u30bf\u304c\u3042\u3063\u305f\u3068\u3057\u3066\u30012\u00d72\u8868\u3092\u898b\u51fa\u3057\u3092\u3064\u3051\u3066\u4f5c\u6210\u3057\u3066\u3044\u304d\u307e\u3059\u3002 \u30c7\u30fc\u30bf\u306f\u9069\u5f53\u306b\u4f5c\u308a\u307e\u3059. \u30e9\u30f3\u30c0\u30e0\u306b\u53ce\u7e2e\u671f\u8840\u5727\uff08sbp)\u3068\u62e1\u5f35\u671f\u8840\u5727\uff08dbp)\u3092\u4f5c\u6210\u3057\u3066\u3001sbp\u3068dbp\u306e\u5dee\u304c5\u672a\u6e80\u306a\u3089\u3001dbp\u306b10\u304b\u308920\u306e\u5024\u3092\u9069\u5f53\u306b\u8db3\u3057\u3066\u53ce\u7e2e\u671f\u8840\u5727\u3092\u4f5c\u6210\u3002\u8840\u5727\u304c140\/90\u3092\u4e0a\u56de\u3063\u3066\u3044\u308c\u3070\u9ad8\u8840\u5727\u3042\u308a\uff08is_htn=1\uff09\u3068\u3057\u3066\u3001\u9ad8\u8840\u5727\u304c\u3042\u308c\u3070\u6cbb\u7642\u3057\u3066\u3044\u308b\uff08is_tx=1)\u78ba\u7387\u309280%\u306b\u3001\u9ad8\u8840\u5727\u304c\u7121\u3051\u308c\u3070\u6cbb\u7642\u3057\u3066\u3044\u308b\u78ba\u7387\u309220%\u306b\u3057\u3066\u3044\u307e\u3059\u3002 \u3053\u306e\u30c7\u30fc\u30bf\u3092\u5358\u306b\u96c6\u8a08\u3057\u3066\u3042\u3052\u308b\u3068\u3001\u3053\u3046\u306a\u308a\u3001 \u6700\u7d42\u76ee\u7684\u3067\u3042\u308b\u8868\u793a\u3057\u305f\u3044\u8868\u306e\u5f62\u306b\u307e\u3067tidyverse\u306e\u95a2\u6570\u3067\u3082\u3063\u3066\u3044\u304f\u3068\u3001\u3053\u3093\u306a\u611f\u3058\u306b\u306a\u308a\u307e\u3059 \u3042\u3068\u306f\u3001\u3053\u308c\u3092flextable\u3067\u8868\u306b\u3057\u3066\u3044\u304f\u3068 \u3068\u304b\u3001\u9811\u5f35\u308c\u3070\u3001 \u898b\u305f\u76ee\u3092\u3044\u3058\u308b\u4f59\u5730\u304c\u307e\u3060\u3042\u308a\u307e\u3059\u304c\u3001\u3053\u3093\u306a\u8868\u306e\u4f5c\u6210\u3082\u53ef\u80fd\u3067\u3059\u3002 flextable\u306e\u88c5\u98fe \u88c5\u98fe\u306e\u4e00\u62ec\u8a2d\u5b9a flextable\u3067\u306f\u3001\u7d30\u304b\u306a\u88c5\u98fe\u306e\u8a2d\u5b9a\u3092\u884c\u308f\u305a\u306b\u3001\u30c6\u30fc\u30de\u306e\u8a2d\u5b9a\u3067\u4e00\u6c17\u306b\u30b0\u30e9\u30d5\u3092\u304d\u308c\u3044\u306b\u4ed5\u4e0a\u3052\u308b\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u3002 \u6570\u306f\u305d\u308c\u307b\u3069\u3042\u308a\u307e\u305b\u3093\u304c\u3001theme_vanilla\u3068\u304b\u3001theme_box\u3042\u305f\u308a\u306f\u6bd4\u8f03\u7684\u6c4e\u7528\u6027\u304c\u9ad8\u3044\u3088\u3046\u306b\u601d\u3044\u307e\u3059\u3002 \u7f6b\u7dda\u3092\u597d\u304d\u306b\u5f15\u304f \u7f6b\u7dda\u3092\u5f15\u304f\u305f\u3081\u306e\u95a2\u6570\u306fflextable\u306b\u306f\u8272\u3005\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u3082\u3063\u3068\u3082\u539f\u59cb\u7684\u306a\u95a2\u6570\u3068\u3057\u3066border\u95a2\u6570\u304c\u3042\u308a\u3001\u3053\u308c\u306f\u3001\u6307\u5b9a\u3057\u305f\u884c\u3068\u5217\u306e\u3069\u306e\u4f4d\u7f6e\u306b\u3069\u3093\u306a\u7dda\u3092\u5f15\u304f\u304b\u3092\u6307\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002 flextable\u306e\u4e00\u90e8\u306e\u88c5\u98fe\u7cfb\u306e\u95a2\u6570\u3067\u5c11\u3057\u5384\u4ecb\u306a\u306e\u304c\u3001\u4f4d\u7f6e\u6307\u5b9a\u306b\u306fflextable\u306e\u95a2\u6570\u3092\u4f7f\u3046\u4e00\u65b9\u3067\u3001\u300c\u3069\u3093\u306a\u88c5\u98fe\u304b\uff1f\u300d\u3092\u6307\u5b9a\u3059\u308b\u306b\u306f\u3001officer\u30d1\u30c3\u30b1\u30fc\u30b8\u306efp_****\u7cfb\u306e\u95a2\u6570\u3092\u5229\u7528\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3068\u3053\u308d\u3067\u3059\u3002 \u7f6b\u7dda\u3092\u5f15\u304f\u5834\u5408\u306f\u3001flextable::border\u306eborder\u5f15\u6570\u306b\u5bfe\u3057\u3066\u3001officer::fp_border\u95a2\u6570\u306e\u7d50\u679c\u3092\u6307\u5b9a\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002 \u306a\u306e\u3067\u3001\u4f8b\u3048\u3070\u3001body\u306e2\u884c\u76ee2\u5217\u76ee\u306e\u30bb\u30eb\u306e\u53f3\u5074\u306b\u8d64\u8272\u306e\u70b9\u7dda\u3092\u7f6b\u7dda\u3068\u3057\u3066\u8a2d\u5b9a\u3057\u305f\u3051\u308c\u3070\u3001\u6b21\u306e\u3088\u3046\u306a\u30b9\u30af\u30ea\u30d7\u30c8\u306b\u306a\u308a\u307e\u3059\u3002 border\u95a2\u6570\u306e\u5f15\u6570\u306e\u3001border.top, border.bottom, border.right, border.left\u306e4\u3064\u3067\u500b\u5225\u306b\u6307\u5b9a\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3057\u3001border\u5f15\u6570\u3067\u4e00\u62ec\u6307\u5b9a\u3082\u53ef\u80fd\u306a\u306e\u3067\u3001 \u3053\u3093\u306a\u611f\u3058\u3067\u30ab\u30e9\u30d5\u30eb\u306b\u3044\u308d\u3044\u308d\u306a\u592a\u3055\u3067\u8a2d\u5b9a\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3002 \u5c1a\u3001\u6bce\u56de\u7d30\u304b\u304f\u6307\u5b9a\u3059\u308b\u306e\u306f\u9762\u5012\u306a\u306e\u3067\u4e00\u62ec\u3067\u8a2d\u5b9a\u3067\u304d\u308b\u95a2\u6570\u3082\u7528\u610f\u3055\u308c\u3066\u304a\u308a\u3001hline\u3001vline\u306a\u3069\u306e\u6307\u5b9a\u3057\u305f\u884c\u3084\u5217\u306b\u76f4\u7dda\u3092\u5f15\u304f\u3088\u3046\u306a\u95a2\u6570\u3082\u3042\u308a\u307e\u3059\u3002\uff08\u305d\u308c\u305e\u308c\u306e\u4f7f\u3044\u65b9\u306f\u30d8\u30eb\u30d7\u3092\u898b\u3066\u304f\u3060\u3055\u3044\u3002flextable::border\u304c\u4f7f\u3048\u308c\u3070\u554f\u984c\u306a\u304f\u4f7f\u3048\u308b\u3068\u601d\u3044\u307e\u3059\u3002 \u5857\u308a\u3064\u3076\u3059 \u5857\u308a\u3064\u3076\u3057\u306e\u306e\u88c5\u98fe\u306f\u3001flextable::bg\u95a2\u6570\u3067i\u3068j\u3067\u4f4d\u7f6e\u6307\u5b9a\u306e\u4e0a\u3001bg\u5f15\u6570\u306bhex\u3067\u8272\u3092\u6e21\u3059\u304b\u3001\u8272\u540d\u3092\u6307\u5b9a\u3057\u3066\u3042\u3052\u308c\u3070OK\u306a\u306e\u3067\u7c21\u5358\u3067\u3059\u3002 \u3084\u3063\u3066\u307f\u307e\u3057\u3087\u3046\u3002 \u3069\u3046\u3067\u3057\u3087\u3046\u304b\uff1f\u7d75\u3068\u304b\u3082\u304b\u3051\u307e\u3059\u306d\uff08\u9055\u3046\u30fb\u30fb\u30fb\uff09 \u6587\u5b57\u306e\u8272\u3068\u30b5\u30a4\u30ba\u3092\u5909\u3048\u308b \u6587\u5b57\u306b\u3064\u3044\u3066\u306fcolor\u95a2\u6570\u3067\u3044\u3058\u308c\u307e\u3059\u3002\u30b5\u30a4\u30ba\u306ffontsize\u95a2\u6570\u3067\u3044\u3058\u308c\u307e\u3059 \u3053\u3053\u307e\u3067\u8aad\u3093\u3067\u3044\u305f\u3060\u3044\u3066\u3044\u305f\u3089\u3001\u3053\u308c\u3001\u305d\u3093\u306a\u306b\u96e3\u3057\u304f\u306a\u3044\u3067\u3059\u306d\u3002 \u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a \u3053\u3053\u307e\u3067\u3067flextable\u3067\u8868\u3092\u4f5c\u6210\u3057\u3066\u3001\u6bd4\u8f03\u7684\u81ea\u7531\u306b\u8272\u3084\u7f6b\u7dda\u306a\u3069\u3092\u8a2d\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u3063\u305f\u306f\u305a\u3067\u3059\u3002\u3053\u3053\u304b\u3089\u306f\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a\u3092\u8003\u3048\u3066\u3044\u304d\u307e\u3059\u3002\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u304c\u8a2d\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308b\u3068\u3001R\u3092\u3064\u304b\u3063\u3066Word\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u308b\u5834\u5408\u306b\u304b\u306a\u308a\u898b\u6804\u3048\u306e\u826f\u3044\u3082\u306e\u304c\u4f5c\u308c\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002 \u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a\u306e\u57fa\u672c \u307e\u305a\u306f\u3001\u3042\u308b\u4e00\u5b9a\u306e\u6761\u4ef6\u3092\u6e80\u305f\u3059\u5834\u5408\u306b\u30bb\u30eb\u306e\u8272\u3092\u8d64\u306b\u3059\u308b\u3068\u3044\u3046\u51e6\u7406\u3092\u884c\u3046\u5834\u5408\u3092\u8003\u3048\u3066\u307f\u307e\u3059\u3002\u6761\u4ef6\u3068\u3057\u3066\u306f\u3001a\u5217\u306e\u6570\u5b57\u304c3\u672a\u6e80\u306e\u6642\u306b\u3001a\u5217\u3092\u8d64\u304f\u3059\u308b\u3068\u3044\u3046\u51e6\u7406\u3067\u3059\u3002 j\u306e\u5024\u30922\u3068\u3059\u308b\u3068\u3001a\u5217\u306b\u5fdc\u3058\u3066\u3001b\u5217\u306e\u8272\u3092\u5909\u66f4\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059 ~\u3092\u4f7f\u3063\u3066formula\u3067\u8a2d\u5b9a\u3059\u308b\u3068\u3001\u5217\u540d\u3067\u306e\u6307\u5b9a\u304c\u53ef\u80fd\u306a\u306e\u3067\u30011\u30842\u3067\u306f\u306a\u304f\u3001 \u3068\u3057\u3066\u3082OK\u3067\u3059\u3002formula\u3067\u306f\u3001\u8907\u6570\u5217\u306e\u6307\u5b9a\u306b\u306f\uff0b\u3092\u5229\u7528\u3057\u307e\u3059 \u5b9f\u306f\u3001\u30ed\u30b8\u30ab\u30eb\u30d9\u30af\u30c8\u30eb\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u306a\u306e\u3067\u3001\u6b21\u306e\u3088\u3046\u306a\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002 \u4ee5\u4e0a\u3001\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\uff08i\u3068j\u306e\u8a2d\u5b9a\u306e\u4ed5\u65b9\uff09\u306e\u7c21\u5358\u306a\u8aac\u660e\u3067\u3057\u305f\u3002 \u6761\u4ef6\u3064\u304d\u66f8\u5f0f\u8a2d\u5b9a\u306e\u5fdc\u7528 R\u3067\u4f55\u304b\u3057\u3089\u306e\u500b\u3005\u306e\u8abf\u67fb\u30c7\u30fc\u30bf\u306b\u5bfe\u3057\u3066\u3001\u500b\u4eba\u500b\u4eba\u306b\u30ec\u30dd\u30fc\u30c8\u3092\u4f5c\u6210\u3057\u3066\u8fd4\u3059\u3088\u3046\u306a\u72b6\u6cc1\u3092\u60f3\u5b9a\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\u4f8b\u3048\u3070\u3001\u6b21\u306e\u8868\u306f\u3001\u5e74\u5ea6\uff08yr)\u3068\u691c\u67fb\u5024\uff08disp1\u3001disp2\u3001disp3)\u306e\u5024(\u524d\u5e74\u304b\u3089\u306e\u5909\u5316\u91cf)\u3068\u3057\u305f\u8868\u3067\u3059\u3002 \u3053\u308c\u306b\u6761\u4ef6\u4ed8\u3051\u3092\u884c\u3046\u5834\u5408\u3092\u8003\u3048\u3066\u898b\u305f\u3044\u306e\u3067\u3059\u304c\u3001\u4f8b\u3048\u3070\u3001\u691c\u67fb\u5024\u304c50\u4ee5\u4e0a\u3067\u80cc\u666f\u3092\u8584\u3044\u9752\u300150\u672a\u6e80\u3067\u80cc\u666f\u3092\u8584\u3044\u8d64\u3001\u5909\u5316\u91cf\uff08\u62ec\u5f27\u306e\u4e2d\u306e\u6570\u5b57\uff09\u304c10\u4ee5\u4e0a\u3067\u6587\u5b57\u3092\u9752\u3001\u5909\u5316\u91cf\u304c-10\u4ee5\u4e0b\u3067\u6587\u5b57\u3092\u8d64\u306b\u3059\u308b\u3068\u3044\u3046\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u8a2d\u5b9a\u3092\u884c\u3046\u3053\u3068\u306f\u53ef\u80fd\u3067\u3057\u3087\u3046\u304b\uff1f \u901a\u5e38\u306ei\u3068j\u306e\u8a2d\u5b9a\u3067\u306f\u3001\u305d\u3082\u305d\u3082\u6587\u5b57\u306b\u306a\u3063\u3066\u3044\u308b\u305f\u3081\u3001\u6570\u5b57\u306e\u5927\u5c0f\u3067\u306e\u6761\u4ef6\u8a2d\u5b9a\u306f\u3067\u304d\u307e\u305b\u3093\u3002\u306a\u306e\u3067\u3001\u5de5\u592b\u304c\u5fc5\u8981\u3068\u306a\u308a\u307e\u3059\u3002\u3044\u304f\u3064\u304b\u3084\u308a\u65b9\u304c\u8003\u3048\u3089\u308c\u307e\u3059\u3002\u30ab\u30ae\u306f\u8868\u306b\u5229\u7528\u3057\u3066\u3044\u308b\u30c7\u30fc\u30bf\u4ee5\u5916\u3067\u306e\u66f8\u5f0f\u8a2d\u5b9a\u3067\u3059 \u7c21\u5358\u306a\u4f8b\u3092\u898b\u3066\u307f\u307e\u3059 \u3053\u3053\u3067\u3001i\u3068j\u306e\u6307\u5b9a\u306e\u4ed5\u65b9\u3067\u3069\u3093\u306a\u65b9\u6cd5\u304c\u3042\u308b\u304b\u3092\u601d\u3044\u51fa\u3057\u3066\u3044\u305f\u3060\u304f\u3068\u3001\u30ed\u30b8\u30ab\u30eb\u30d9\u30af\u30c8\u30eb\u3092\u4e0e\u3048\u3066\u3042\u3052\u3066\u3082\u5927\u4e08\u592b\u3067\u3057\u305f\u3002 \u3053\u308c\u3001T\u3001F\u306e\u90e8\u5206\u3092\u5225\u306etibble\u3068\u3057\u3066\u3082\u3063\u3066\u3042\u3052\u3066\u3001 \u3053\u308c\u3092\u3001purrr::reduce\u3067\u53cd\u5fa9\u3059\u308b\u3053\u3068\u3092\u8003\u3048\u308b\u3068\u3001 condition\u3068\u3044\u3046T\u3068F\u306etibble\u3092\u5225\u306b\u7528\u610f\u3057\u3066\u3042\u3052\u308b\u3053\u3068\u3067\u3001\u597d\u304d\u306a\u8272\u3067\u5857\u308a\u3064\u3076\u3059\u3053\u3068\u304c\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002 \u3053\u308c\u3092\u95a2\u6570\u5316\u3057\u3066\u3042\u3052\u308b\u3068\u3001 \u3053\u306e\u3088\u3046\u306b\u3001\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u5024\u3067\u306e\u4ee5\u5916\u3067\u306e\u6761\u4ef6\u4ed8\u3051\u304c\u3067\u304d\u3066\u3044\u307e\u3059\u3002\u4eca\u56de\u306e\u5834\u5408\u306f\u3001\u8868\u306b\u542b\u307e\u308c\u3066\u3044\u306a\u3044condaa\u3067a2\u5217\u306e\u8272\u306e\u5857\u5206\u3051\u3092\u6307\u5b9a\u3057\u3001\u540c\u3058\u304fcondbb\u3067b2\u5217\u306e\u8272\u306e\u5857\u5206\u3051\u3092\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002 \u3053\u306e\u95a2\u6570\u3001bg\u3057\u304b\u9069\u5fdc\u3067\u304d\u3066\u3044\u307e\u305b\u3093\u304c\u3001bg\u3092\u95a2\u6570\u3068\u3057\u3066\u5f15\u6570\uff08FUN\uff09\u306b\u4e0e\u3048\u308b\u3088\u3046\u306a\u95a2\u6570\u3068\u3057\u3066\u3042\u3052\u3066\u3001FUN\u306b\u4e0e\u3048\u308b\u5f15\u6570\u3092&#8230;\u3067\u4e0e\u3048\u3066\u3042\u3052\u308b\u3088\u3046\u306a\u95a2\u6570\u3068\u3059\u308b\u3068\u30fb\u30fb\u30fb \u6b21\u306e\u3088\u3046\u306a\u8907\u96d1\u306a\u6761\u4ef6\u3067\u3082\u3001\u7d50\u69cb\u697d\u306b\u6761\u4ef6\u4ed8\u304d\u66f8\u5f0f\u3092\u9069\u5fdc\u3067\u304d\u307e\u3059\u3002 \u5b9f\u52d9\u7684\u306a\u72b6\u6cc1\u3067\u8868\u3092\u4f5c\u6210\u3057\u3066\u307f\u308b\u3002 \u3055\u3066\u3001\u3053\u3053\u307e\u3067\u306e\u77e5\u8b58\u3092\u4f7f\u3063\u3066\u5b9f\u52d9\u3067\u5229\u7528\u3059\u308b\u3088\u3046\u306a\u8868\u3092\u4f5c\u6210\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\u3053\u3053\u3067\u306f\u3001\u79c1\u304c\u672c\u696d\u3068\u3057\u3066\u3044\u308b\u7523\u696d\u4fdd\u5065\u9818\u57df\u3067\u306e\u30c7\u30fc\u30bf\u96c6\u8a08\u3057\u3066\u8868\u3092\u4f5c\u308b\u3088\u3046\u306a\u5834\u5408\u3092\u8003\u3048\u307e\u3059\u3002 \u307e\u305a\u306f\u30e9\u30f3\u30c0\u30e0\u306a\u30c7\u30fc\u30bf\u3092\u4f5c\u6210\u3057\u307e\u3057\u3087\u3046\u3002\u3053\u3053\u3067\u306f\u3001A\u90e8\u9580\u304b\u3089J\u90e8\u9580\u307e\u3067\u306e\u3001\u793e\u54e1\u306e\u3084\u308b\u6c17\uff08WE,0-6\u306e\u70b9\u6570\u3067\u9ad8\u3044\u307b\u3069\u826f\u3044\uff09\u3001\u793e\u54e1\u306e\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u4f4e\u4e0b(PISM\u3001\u4f4e\u4e0b\u5ea6\u5408\u3092\uff05\u3067\u8868\u3057\u3001\u4f4e\u3044\u307b\u3069\u3088\u3044)\u3092\u30011\u5e74\u524d\u3068\u6bd4\u8f03\u3057\u3066\u8868\u793a\u3059\u308b\u8868\u3092\u8003\u3048\u307e\u3059\u3002 \u3061\u3087\u3063\u3068\u30c7\u30fc\u30bf\u3092\u4f5c\u6210\u3059\u308b\u51e6\u7406\u3084\u3084\u3053\u3057\u3044\u3067\u3059\u304c\u3001\u3053\u3053\u306e\u672c\u984c\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u306e\u3067\u5148\u306b\u9032\u307f\u307e\u3057\u3087\u3046\u3002\u307e\u305a\u306f\u90e8\u9580\u6bce\u306b\u96c6\u8a08\u3057\u3066\u3044\u304d\u307e\u3059\u3002 \u3053\u308c\u3067\u3001\u8868\u793a\u7528\u306e\u5217\u3092\u4f5c\u6210\u3057\u3066\u3001\u8868\u793a\u3057\u305f\u3044\u8868\u3092\u4f5c\u308a\u307e\u3059 \u3053\u306e\u8868\u306b\u5bfe\u3057\u3066\u3001 \u30fbWE\u304c2.5\u4ee5\u4e0a\u3067\u3042\u308c\u3070\u8584\u3044\u9752\u306e\u80cc\u666f\u30012.5\u672a\u6e80\u3067\u3042\u308c\u3070\u8584\u3044\u8d64\u306e\u80cc\u666f\u3002\u6628\u5e74\u3088\u308a\u6e1b\u5c11\u3057\u3066\u3044\u308c\u3070\u8d64\u3044\u6587\u5b57\u3001\u6628\u5e74\u3088\u308a\u5897\u52a0\u3057\u3066\u3044\u308c\u3070\u9752\u3044\u6587\u5b57 \u30fbPism\u306f\u9ad8\u3044\u3068\u60aa\u3044\u306e\u3067\u300110\u4ee5\u4e0a\u3067\u8584\u3044\u8d64\u306e\u80cc\u666f\u300110\u672a\u6e80\u3067\u8584\u3044\u9752\u306e\u80cc\u666f\u30022\u30dd\u30a4\u30f3\u30c8\u4ee5\u4e0a\u306e\u5897\u52a0\u3067\u8d64\u3044\u6587\u5b57\u3001\u305d\u308c\u4ee5\u4e0b\u3067\u9752\u3044\u6587\u5b57 \u3068\u88c5\u98fe\u3057\u3066\u3042\u3052\u307e\u3059\u3002 \u81ea\u4f5c\u95a2\u6570\u3092\u5229\u7528\u3057\u3066\u884c\u3046\u5834\u5408\u306f\u3001\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059 \u5c1a\u3001flextable\u306e0.9.4\u304b\u3089\u306f\u4f5c\u3063\u305f\u8868\u306e\u5217\u3092\u524a\u9664\u3059\u308b\u95a2\u6570\u304c\u5c0e\u5165\u3055\u308c\u305f\u306e\u3067\u3001\u4eca\u56de\u306e\u3088\u3046\u306b\u3042\u307e\u308a\u6761\u4ef6\u304c\u305f\u304f\u3055\u3093\u306a\u3044\u5834\u5408\u306f\u3001\u6b21\u306e\u3088\u3046\u306b\u3001\u5857\u5206\u3051\u308b\u305f\u3081\u306e\u5217\u3092\u542b\u3081\u3066flextable\u3092\u4f5c\u6210\u3057\u3066\u3001\u4f5c\u6210\u3057\u305f\u5f8c\u306b\u3001\u4e0d\u8981\u306a\u5217\u3092\u6d88\u3059\u3068\u3044\u3046\u3088\u3046\u306a\u3084\u308a\u65b9\u3082\u3067\u304d\u307e\u3059\u3002 \u5217\u3092\u524a\u9664\u3059\u308b\u65b9\u6cd5\u306e\u65b9\u304c\u308f\u304b\u308a\u3084\u3059\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u305f\u3060\u3001\u95a2\u6570\u3092\u4f7f\u3046\u3084\u308a\u65b9\u306facross\u95a2\u6570\u306a\u3069\u3092\u99c6\u4f7f\u3057\u3066\u3001\u6761\u4ef6\u304c\u591a\u6570\u3042\u308b\u5834\u5408\u306a\u3069\u306f\u3088\u308a\u300c\u697d\u300d\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u66f8\u3051\u308b\u53ef\u80fd\u6027\u3082\u3042\u308a\u307e\u3059\u306e\u3067\u72b6\u6cc1\u306b\u5fdc\u3058\u3066\u4f7f\u3044\u5206\u3051\u3066\u304f\u3060\u3055\u3044\u3002 flextable\u306eWord\u3078\u306e\u8cbc\u308a\u4ed8\u3051 \u76ee\u7684\u306e\u8868\u3092flextable\u3067\u66f8\u304f\u3053\u3068\u304c\u3067\u304d\u305f\u3089\u6700\u5f8c\u306bWord\u30d5\u30a1\u30a4\u30eb\u3078\u306e\u51fa\u529b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u89e3\u8aac\u3057\u3066\u304a\u304d\u307e\u3059\u3002\u3068\u306f\u3044\u3063\u3066\u3082\u30d5\u30a1\u30a4\u30eb\u3092\u7d30\u304b\u304f\u4f5c\u308a\u3053\u3080\u3088\u3046\u306a\u8a71\u3092\u3057\u59cb\u3081\u308b\u3068\u3001\u3053\u306e\u8a18\u4e8b\u306e\u91cf\u304c\u500d\u306b\u306a\u308b\u306e\u3067\uff08\u3069\u3053\u304b\u307e\u305f\u5225\u306e\u6a5f\u4f1a\u306b\u66f8\u304d\u307e\u3059\uff09\u3001\u3068\u308a\u3042\u3048\u305a\u3053\u3053\u3067\u306f\u3001flextable\u306b\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u95a2\u6570\u306e\u7d39\u4ecb\u306b\u3068\u3069\u3081\u307e\u3059\u3002 \u6b21\u306e\u95a2\u6570\u3067Word\u30d5\u30a1\u30a4\u30eb\u304c\u3067\u304d\u3066\u3001 \u3053\u3063\u3061\u306e\u95a2\u6570\u3067PPTX\u30d5\u30a1\u30a4\u30eb\u304c\u3067\u304d\u3042\u304c\u308a\u307e\u3059\u3002 [&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":[26],"tags":[35,37,36],"class_list":["post-660","post","type-post","status-publish","format-standard","hentry","category-r-misc","tag-flextable","tag-office","tag-r"],"_links":{"self":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/660","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=660"}],"version-history":[{"count":6,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/660\/revisions"}],"predecessor-version":[{"id":703,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/posts\/660\/revisions\/703"}],"wp:attachment":[{"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/media?parent=660"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/categories?post=660"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bunseki-data.com\/r-onlinecourse\/wp-json\/wp\/v2\/tags?post=660"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}