{"id":2715,"date":"2021-05-06T22:17:11","date_gmt":"2021-05-06T14:17:11","guid":{"rendered":"https:\/\/bap2.cm.nsysu.edu.tw\/?p=2715"},"modified":"2021-05-06T22:23:53","modified_gmt":"2021-05-06T14:23:53","slug":"blog-article-with-enlighter-plugin","status":"publish","type":"post","link":"https:\/\/bap2.cm.nsysu.edu.tw\/?p=2715&lang=en","title":{"rendered":"Blog Article with `Enlighter` Plugin"},"content":{"rendered":"<p><span style=\"font-family: impact, sans-serif; font-size: 18pt; color: #339966;\">Chapter 1<\/span><\/p>\n<p>&nbsp;<\/p>\n<p><strong><span style=\"font-family: terminal, monaco, monospace;\">(1a) Read in Data &#8211; Standard (enlighter) theme<\/span><\/strong><\/p>\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"r\" data-enlighter-lineoffset=\"1\">library(dplyr)\r\nlibrary(readxl)\r\n\r\ndir(\"data\",\".xlsx$\") %&gt;% lapply(function(z) {\r\n  read_xlsx(z)\r\n  })<\/pre>\n<p>&nbsp;<\/p>\n<p><strong><span style=\"font-family: terminal, monaco, monospace;\">(1b) Combine and Process Data &#8211; Automic theme<\/span><\/strong><\/p>\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"r\" data-enlighter-theme=\"atomic\" data-enlighter-lineoffset=\"1\">date0 = as.Date(\"2020-12-31\")\r\nD = do.call(rbind, L) %&gt;%\r\n  group_by(id) %&gt;%\r\n  summarise(\r\n    r = date - date0,\r\n    f = n(),\r\n    m = sum(pay)\/n() \r\n    ) %&gt;% ungroup()<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Chapter 1 &nbsp; (1a) Read in Data &#8211; Standard (enlighter) theme library(dplyr) library(readxl) dir(&#8220;data&#8221;,&#8221;.xlsx$&#8221;) %&gt;% lapply(function(z) { read_xlsx(z) }) &nbsp; (1b) Combine and Process Data &#8211; Automic theme date0 = as.Date(&#8220;2020-12-31&#8221;) D = do.call(rbind, L) %&gt;% group_by(id) %&gt;% summarise( r = date &#8211; date0, f = n(), m = sum(pay)\/n() ) %&gt;% ungroup() &nbsp;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[14],"tags":[],"class_list":["post-2715","post","type-post","status-publish","format-standard","hentry","category-uncategorized-en"],"_links":{"self":[{"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=\/wp\/v2\/posts\/2715","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2715"}],"version-history":[{"count":3,"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=\/wp\/v2\/posts\/2715\/revisions"}],"predecessor-version":[{"id":2718,"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=\/wp\/v2\/posts\/2715\/revisions\/2718"}],"wp:attachment":[{"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2715"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2715"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/bap2.cm.nsysu.edu.tw\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2715"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}