{"id":3405,"date":"2024-03-24T00:03:32","date_gmt":"2024-03-23T15:03:32","guid":{"rendered":"https:\/\/plaza.umin.ac.jp\/~OIO\/?p=3405"},"modified":"2024-04-05T14:47:48","modified_gmt":"2024-04-05T05:47:48","slug":"r%e3%81%a7%e3%83%87%e3%83%bc%e3%82%bf%e6%95%b4%e7%90%86","status":"publish","type":"post","link":"https:\/\/plaza.umin.ac.jp\/~OIO\/?p=3405","title":{"rendered":"R\u3067\u30c7\u30fc\u30bf\u6574\u7406"},"content":{"rendered":"<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4.png\" alt=\"\" width=\"1054\" height=\"627\" class=\"aligncenter size-full wp-image-3406\" srcset=\"https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4.png 1054w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4-300x178.png 300w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4-700x416.png 700w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4-150x89.png 150w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4-768x457.png 768w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4-500x297.png 500w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-4-800x476.png 800w\" sizes=\"auto, (max-width: 1054px) 100vw, 1054px\" \/><\/p>\n<p>\u4e0a\u306e\u3088\u3046\u306a\u30c7\u30fc\u30bf\u304c\u3042\u3063\u305f\u3068\u3057\u3066\u3001dplyr\u3067\u5c11\u3057\u6210\u5f62\u3057\u307e\u3059<\/p>\n<ol>\n<li>filter() &#8230; \u884c\u306e\u9078\u629e<\/li>\n<li>arrange() &#8230; \u884c\u306e\u4e26\u3073\u66ff\u3048<\/li>\n<li>select() &#8230; \u6307\u5b9a\u3057\u305f\u5217\u306e\u307f\u9078\u629e<\/li>\n<li>mutate() &#8230; \u65b0\u3057\u3044\u5217\u306e\u8ffd\u52a0<\/li>\n<li>group_by() &#8230; \u30b0\u30eb\u30fc\u30d4\u30f3\u30b0<\/li>\n<li>summarize() &#8230; \u96c6\u8a08<\/li>\n<\/ol>\n<p>&nbsp;<\/p>\n<p>tidyverse \u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u4f7f\u3063\u3066<\/p>\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"generic\">library(tidyverse)\r\nlibrary(readxl)\r\nlibrary(dplyr)\r\n\r\ndf &lt;- read_xlsx(\"0050 irAE.xlsx\")\r\n\r\ndf %&gt;%  \r\n  filter(ir_AE == -1) %&gt;% # ir_AE \u304c-1\uff08TRUE\u3092-1\u3067\u5165\u529b\u3057\u3066\u3042\u308b\uff09\u306e\u884c\u306e\u307f\u9078\u629e\r\n  arrange(Time2Onset) %&gt;% # Time2Onset\u306e\u9806\u306b\u4e26\u3079\u66ff\u3048\uff08\u3053\u306e\u5f8c\u5e73\u5747\u3092\u53d6\u308b\u306e\u3067\u610f\u5473\u306a\u3057\ud83d\ude1b\uff09\r\n  group_by(`\u533b\u85ac\u54c1\uff08\u4e00\u822c\u540d\uff09`, irAE ) %&gt;% # \u533b\u85ac\u54c1\u304a\u3088\u3073irAE\u3054\u3068\u306b\u30b0\u30eb\u30fc\u30d7\u5316\r\n  summarise(avTO = mean(Time2Onset))  -&gt; newDF\u3000# \u533b\u85ac\u54c1\u30fbirAE\u6bce\u306eTime2Onset\u5e73\u5747\u5024\u3092\u8a08\u7b97\u3057\u3066\u3001newDF\u3068\u3044\u3046\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u3078\u66f8\u304d\u51fa\u3059<\/pre>\n<p>\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u51fa\u529b\u306b\u306a\u308a\u307e\u3057\u305f<\/p>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-5.png\" alt=\"\" width=\"596\" height=\"301\" class=\"aligncenter size-full wp-image-3407\" srcset=\"https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-5.png 596w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-5-300x152.png 300w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-5-150x76.png 150w, https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-5-500x253.png 500w\" sizes=\"auto, (max-width: 596px) 100vw, 596px\" \/><\/p>\n<p>&nbsp;<\/p>\n<h2>\u89e3\u8aac<\/h2>\n<p>\u3053\u306eR\u30b9\u30af\u30ea\u30d7\u30c8\u306f\u3001\u6307\u5b9a\u3055\u308c\u305fExcel\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u307f\u3001\u7279\u5b9a\u306e\u6761\u4ef6\u306b\u57fa\u3065\u3044\u3066\u30c7\u30fc\u30bf\u3092\u30d5\u30a3\u30eb\u30bf\u30ea\u30f3\u30b0\u3001\u4e26\u3079\u66ff\u3048\u3001\u30b0\u30eb\u30fc\u30d7\u5316\u3057\u3001\u5e73\u5747\u5024\u3092\u8a08\u7b97\u3057\u307e\u3059\u3002<\/p>\n<p>\u307e\u305a\u3001&#8221;tidyverse&#8221;\u3068&#8221;readxl&#8221;\u3001&#8221;dplyr&#8221;\u3068\u3044\u30463\u3064\u306eR\u30d1\u30c3\u30b1\u30fc\u30b8\u3092\u8aad\u307f\u8fbc\u307f\u307e\u3059\u3002<\/p>\n<p>\u6b21\u306b\u3001read_xlsx\u95a2\u6570\u3092\u4f7f\u7528\u3057\u3066\u3001\u6307\u5b9a\u3055\u308c\u305fExcel\u30d5\u30a1\u30a4\u30eb(&#8220;0050 irAE.xlsx&#8221;)\u304b\u3089\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u307f\u3001df\u3068\u3044\u3046\u540d\u524d\u306e\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u306b\u683c\u7d0d\u3057\u307e\u3059\u3002<\/p>\n<p>\u305d\u306e\u5f8c\u3001df\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0\u3092\u4f7f\u7528\u3057\u3066\u3001ir_AE\u5217\u304c-1\uff08TRUE\u3092-1\u3067\u5165\u529b\u3057\u3066\u3042\u308b\uff09\u306e\u884c\u306e\u307f\u3092\u9078\u629e\u3057\u307e\u3059\u3002\u3055\u3089\u306b\u3001Time2Onset\u5217\u306e\u5024\u3092\u57fa\u6e96\u306b\u6607\u9806\u306b\u4e26\u3079\u66ff\u3048\u307e\u3059\uff08\u305f\u3060\u3057\u3001\u3053\u306e\u5f8c\u306e\u5e73\u5747\u5024\u306e\u8a08\u7b97\u306b\u306f\u5f71\u97ff\u3057\u307e\u305b\u3093\uff09\u3002<\/p>\n<p>\u6b21\u306b\u3001\u533b\u85ac\u54c1\uff08\u4e00\u822c\u540d\uff09\u3068irAE\u306e\u5024\u3092\u57fa\u6e96\u306b\u30b0\u30eb\u30fc\u30d7\u5316\u3057\u3001\u305d\u308c\u305e\u308c\u306e\u30b0\u30eb\u30fc\u30d7\u3054\u3068\u306bTime2Onset\u306e\u5e73\u5747\u5024\u3092\u8a08\u7b97\u3057\u307e\u3059\u3002\u8a08\u7b97\u7d50\u679c\u306f\u3001&#8221;\u533b\u85ac\u54c1\uff08\u4e00\u822c\u540d\uff09&#8221;\u3068&#8221;irAE&#8221;\u3001&#8221;avTO&#8221;\u3068\u3044\u3046\u5217\u540d\u3092\u6301\u3064\u65b0\u3057\u3044\u30c7\u30fc\u30bf\u30d5\u30ec\u30fc\u30e0newDF\u306b\u683c\u7d0d\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u4ee5\u4e0a\u304c\u3001\u3053\u306eR\u30b9\u30af\u30ea\u30d7\u30c8\u306e\u52d5\u4f5c\u3067\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4e0a\u306e\u3088\u3046\u306a\u30c7\u30fc\u30bf\u304c\u3042\u3063\u305f\u3068\u3057\u3066\u3001dplyr\u3067\u5c11\u3057\u6210\u5f62\u3057\u307e\u3059 filter() &#8230; \u884c\u306e\u9078\u629e arrange() &#8230; \u884c\u306e\u4e26\u3073\u66ff\u3048 select() &#8230; \u6307\u5b9a\u3057\u305f\u5217\u306e\u307f\u9078\u629e mutate&#8230;<\/p>\n","protected":false},"author":1,"featured_media":3407,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[5],"tags":[],"class_list":["post-3405","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-miscellaneous"],"jetpack_featured_media_url":"https:\/\/plaza.umin.ac.jp\/~OIO\/wp-content\/uploads\/2024\/03\/66c19942ab4ba346fdb64ccc04cde373-5.png","jetpack_shortlink":"https:\/\/wp.me\/p9b6zl-SV","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/posts\/3405","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3405"}],"version-history":[{"count":0,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/posts\/3405\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=\/wp\/v2\/media\/3407"}],"wp:attachment":[{"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3405"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3405"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/plaza.umin.ac.jp\/~OIO\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3405"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}