{"id":828,"date":"2020-07-18T07:22:00","date_gmt":"2020-07-18T00:22:00","guid":{"rendered":"http:\/\/www.gis2me.com\/geospatial\/?p=828"},"modified":"2025-04-30T09:21:14","modified_gmt":"2025-04-30T02:21:14","slug":"r-studio-ep16-%e0%b9%81%e0%b8%aa%e0%b8%94%e0%b8%87%e0%b9%81%e0%b8%9c%e0%b8%99%e0%b8%97%e0%b8%b5%e0%b9%88-spatial-%e0%b9%81%e0%b8%a5%e0%b8%b0%e0%b8%95%e0%b8%b2%e0%b8%a3%e0%b8%b2%e0%b8%87-attribu","status":"publish","type":"post","link":"http:\/\/www.gis2me.com\/geospatial\/?p=828","title":{"rendered":"R-studio : ( EP#16 ) \u0e41\u0e2a\u0e14\u0e07\u0e41\u0e1c\u0e19\u0e17\u0e35\u0e48 Spatial \u0e41\u0e25\u0e30\u0e15\u0e32\u0e23\u0e32\u0e07 Attribute \u0e43\u0e19\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a HTML \u0e14\u0e49\u0e27\u0e22\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21 R"},"content":{"rendered":"<p>R-studio : ( EP#16 ) \u0e41\u0e2a\u0e14\u0e07\u0e41\u0e1c\u0e19\u0e17\u0e35\u0e48 Spatial \u0e41\u0e25\u0e30\u0e15\u0e32\u0e23\u0e32\u0e07 Attribute \u0e43\u0e19\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a HTML \u0e14\u0e49\u0e27\u0e22\u0e42\u0e1b\u0e23\u0e41\u0e01\u0e23\u0e21 R<\/p>\n<p>\u00a0 <br \/>\u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e1f\u0e25\u0e4c R script \u0e44\u0e14\u0e49\u0e17\u0e35\u0e48 <a href=\"https:\/\/docs.google.com\/forms\/d\/e\/1FAIpQLSfiVJN1_4wCShJvyqmgtRb37htOEP-jqz_XjLm60u6UdL0DJg\/viewform\">https:\/\/docs.google.com\/forms\/d\/e\/1FAIpQLSfiVJN1_4wCShJvyqmgtRb37htOEP-jqz_XjLm60u6UdL0DJg\/viewform<\/a><\/p>\n<p><iframe loading=\"lazy\" src=\"https:\/\/www.youtube.com\/embed\/rcvHnb4Emiw\" width=\"560\" height=\"315\" frameborder=\"0\" allowfullscreen=\"allowfullscreen\"><\/iframe><\/p>\n\n\n<h3 class=\"wp-block-heading\">\ud83d\udd0d \u0e27\u0e31\u0e15\u0e16\u0e38\u0e1b\u0e23\u0e30\u0e2a\u0e07\u0e04\u0e4c\u0e02\u0e2d\u0e07\u0e1a\u0e17\u0e40\u0e23\u0e35\u0e22\u0e19<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">\u0e1a\u0e17\u0e40\u0e23\u0e35\u0e22\u0e19\u0e19\u0e35\u0e49\u0e2d\u0e2d\u0e01\u0e41\u0e1a\u0e1a\u0e21\u0e32\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e43\u0e2b\u0e49\u0e1c\u0e39\u0e49\u0e40\u0e23\u0e35\u0e22\u0e19\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16:<\/p>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u0e41\u0e2a\u0e14\u0e07\u0e41\u0e1c\u0e19\u0e17\u0e35\u0e48\u0e40\u0e0a\u0e34\u0e07\u0e1e\u0e37\u0e49\u0e19\u0e17\u0e35\u0e48 (Spatial Map) \u0e14\u0e49\u0e27\u0e22 <code>leaflet<\/code> \u0e41\u0e1a\u0e1a interactive<\/li>\n\n\n\n<li>\u0e41\u0e2a\u0e14\u0e07\u0e15\u0e32\u0e23\u0e32\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e04\u0e38\u0e13\u0e25\u0e31\u0e01\u0e29\u0e13\u0e30 (Attribute Table) \u0e04\u0e27\u0e1a\u0e04\u0e39\u0e48\u0e01\u0e31\u0e19\u0e14\u0e49\u0e27\u0e22 <code>DT<\/code><\/li>\n\n\n\n<li>\u0e23\u0e27\u0e21\u0e17\u0e38\u0e01\u0e2d\u0e07\u0e04\u0e4c\u0e1b\u0e23\u0e30\u0e01\u0e2d\u0e1a\u0e43\u0e19\u0e23\u0e39\u0e1b\u0e41\u0e1a\u0e1a HTML \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e01\u0e32\u0e23\u0e19\u0e33\u0e40\u0e2a\u0e19\u0e2d\u0e2b\u0e23\u0e37\u0e2d\u0e40\u0e1c\u0e22\u0e41\u0e1e\u0e23\u0e48\u0e1c\u0e48\u0e32\u0e19\u0e40\u0e27\u0e47\u0e1a\u0e44\u0e0b\u0e15\u0e4c<\/li>\n<\/ul>\n\n\n\n<hr class=\"wp-block-separator has-alpha-channel-opacity\"\/>\n\n\n\n<h3 class=\"wp-block-heading\">\ud83e\uddf0 \u0e40\u0e04\u0e23\u0e37\u0e48\u0e2d\u0e07\u0e21\u0e37\u0e2d\u0e41\u0e25\u0e30\u0e41\u0e1e\u0e47\u0e01\u0e40\u0e01\u0e08\u0e17\u0e35\u0e48\u0e43\u0e0a\u0e49<\/h3>\n\n\n\n<pre class=\"wp-block-preformatted\">rCopyEdit<code>install.packages(c(\"sf\", \"leaflet\", \"DT\", \"rmarkdown\", \"htmlwidgets\"))\n<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>sf<\/code> \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e42\u0e2b\u0e25\u0e14\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 shapefile<\/li>\n\n\n\n<li><code>leaflet<\/code> \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e41\u0e1c\u0e19\u0e17\u0e35\u0e48\u0e2d\u0e34\u0e19\u0e40\u0e17\u0e2d\u0e23\u0e4c\u0e41\u0e2d\u0e01\u0e17\u0e35\u0e1f<\/li>\n\n\n\n<li><code>DT<\/code> \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e15\u0e32\u0e23\u0e32\u0e07\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25<\/li>\n\n\n\n<li><code>rmarkdown<\/code> \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e08\u0e31\u0e14\u0e2b\u0e19\u0e49\u0e32 HTML<\/li>\n\n\n\n<li><code>htmlwidgets<\/code> \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e01\u0e32\u0e23 export<\/li>\n<\/ul>\n\n\n\n<hr class=\"wp-block-separator has-alpha-channel-opacity\"\/>\n\n\n\n<h3 class=\"wp-block-heading\">\ud83d\udcc1 \u0e42\u0e04\u0e23\u0e07\u0e2a\u0e23\u0e49\u0e32\u0e07 R Markdown (.Rmd) \u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07<\/h3>\n\n\n\n<pre class=\"wp-block-preformatted\">markdownCopyEdit<code>---\ntitle: \"Spatial Map &amp; Attribute Table\"\noutput: html_document\n---\n\n```{r setup, include=FALSE}\nlibrary(sf)\nlibrary(leaflet)\nlibrary(DT)\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">{rCopyEdit<code>shp &lt;- st_read(\"districts.shp\", quiet = TRUE)\nattr_table &lt;- st_drop_geometry(shp)\n<\/code><\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">\ud83d\uddfa\ufe0f Interactive Map<\/h3>\n\n\n\n<pre class=\"wp-block-preformatted\">{rCopyEdit<code>leaflet(shp) %&gt;%\n  addTiles() %&gt;%\n  addPolygons(label = ~DISTRICT_NAME, color = \"#444444\", weight = 1,\n              fillColor = ~colorNumeric(\"YlGnBu\", shp$AREA)(AREA),\n              fillOpacity = 0.6)\n<\/code><\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">\ud83d\udcca Attribute Table<\/h3>\n\n\n\n<pre class=\"wp-block-preformatted\">{rCopyEdit<code>datatable(attr_table, options = list(pageLength = 10, scrollX = TRUE))\n<\/code><\/pre>\n\n\n\n<pre class=\"wp-block-preformatted\">yamlCopyEdit<code>\n---\n\n### \ud83d\udca1 \u0e02\u0e49\u0e2d\u0e41\u0e19\u0e30\u0e19\u0e33\u0e01\u0e32\u0e23\u0e43\u0e0a\u0e49\u0e07\u0e32\u0e19\n\n- **\u0e1f\u0e2d\u0e23\u0e4c\u0e41\u0e21\u0e15\u0e0a\u0e37\u0e48\u0e2d\u0e44\u0e1f\u0e25\u0e4c shapefile** \u0e43\u0e2b\u0e49\u0e04\u0e23\u0e1a\u0e17\u0e38\u0e01\u0e44\u0e1f\u0e25\u0e4c (\u0e15\u0e49\u0e2d\u0e07\u0e21\u0e35 `.shp`, `.shx`, `.dbf`, `.prj`)\n- \u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e20\u0e32\u0e29\u0e32\u0e44\u0e17\u0e22\u0e43\u0e19 `sf` \u0e2d\u0e32\u0e08\u0e41\u0e2a\u0e14\u0e07\u0e1c\u0e34\u0e14\u0e43\u0e19 HTML \u0e2b\u0e32\u0e01\u0e44\u0e21\u0e48\u0e44\u0e14\u0e49\u0e1a\u0e31\u0e19\u0e17\u0e36\u0e01\u0e40\u0e1b\u0e47\u0e19 UTF-8\n- \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e1c\u0e39\u0e49\u0e40\u0e23\u0e34\u0e48\u0e21\u0e15\u0e49\u0e19 \u0e04\u0e27\u0e23\u0e15\u0e31\u0e49\u0e07 working directory \u0e41\u0e25\u0e30\u0e43\u0e0a\u0e49 `st_read(\"path\/to\/file.shp\")` \u0e41\u0e1a\u0e1a\u0e40\u0e15\u0e47\u0e21\u0e40\u0e2a\u0e49\u0e19\u0e17\u0e32\u0e07\n\n---\n\n### \ud83d\udce4 \u0e01\u0e32\u0e23\u0e40\u0e1c\u0e22\u0e41\u0e1e\u0e23\u0e48\n\n\u0e2b\u0e25\u0e31\u0e07\u0e08\u0e32\u0e01 `Knit` \u0e44\u0e1f\u0e25\u0e4c `.Rmd` \u0e41\u0e25\u0e49\u0e27\u0e08\u0e30\u0e44\u0e14\u0e49 `.html` \u0e17\u0e35\u0e48\u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16:\n- \u0e40\u0e1b\u0e34\u0e14\u0e14\u0e49\u0e27\u0e22 browser \u0e17\u0e31\u0e48\u0e27\u0e44\u0e1b\n- \u0e41\u0e0a\u0e23\u0e4c\u0e17\u0e32\u0e07\u0e2d\u0e35\u0e40\u0e21\u0e25\n- \u0e2d\u0e31\u0e1b\u0e42\u0e2b\u0e25\u0e14\u0e02\u0e36\u0e49\u0e19 Google Drive \/ GitHub Pages\n- \u0e1d\u0e31\u0e07\u0e1a\u0e19\u0e40\u0e27\u0e47\u0e1a\u0e44\u0e0b\u0e15\u0e4c\/Google Sites \u0e44\u0e14\u0e49\n\n---\n\n### \ud83d\udce5 \u0e02\u0e2d\u0e23\u0e31\u0e1a\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07\u0e44\u0e1f\u0e25\u0e4c R Markdown (.Rmd)\n\n\ud83d\udccc \u0e25\u0e07\u0e17\u0e30\u0e40\u0e1a\u0e35\u0e22\u0e19\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e25\u0e34\u0e07\u0e01\u0e4c\u0e14\u0e32\u0e27\u0e19\u0e4c\u0e42\u0e2b\u0e25\u0e14\u0e44\u0e1f\u0e25\u0e4c\u0e15\u0e31\u0e27\u0e2d\u0e22\u0e48\u0e32\u0e07 R script:  \n\ud83d\udc49 [Google Form \u0e2a\u0e33\u0e2b\u0e23\u0e31\u0e1a\u0e02\u0e2d R script](https:\/\/docs.google.com\/forms\/d\/e\/1FAIpQLSfiVJN1_4wCShJvyqmgtRb37htOEP-jqz_XjLm60u6UdL0DJg\/viewform)\n\n---\n\n\u0e2b\u0e32\u0e01\u0e15\u0e49\u0e2d\u0e07\u0e01\u0e32\u0e23\u0e15\u0e48\u0e2d\u0e22\u0e2d\u0e14\u0e44\u0e1b\u0e22\u0e31\u0e07 **\u0e01\u0e32\u0e23\u0e41\u0e2a\u0e14\u0e07\u0e2b\u0e25\u0e32\u0e22\u0e0a\u0e31\u0e49\u0e19\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25 (multi-layer map)**, **\u0e40\u0e0a\u0e37\u0e48\u0e2d\u0e21\u0e02\u0e49\u0e2d\u0e21\u0e39\u0e25\u0e01\u0e31\u0e1a Google Sheet**, \u0e2b\u0e23\u0e37\u0e2d **\u0e01\u0e32\u0e23\u0e40\u0e02\u0e35\u0e22\u0e19\u0e41\u0e1a\u0e1a dashboard (Shiny)** \u2014 \u0e2a\u0e32\u0e21\u0e32\u0e23\u0e16\u0e41\u0e08\u0e49\u0e07\u0e40\u0e1e\u0e37\u0e48\u0e2d\u0e02\u0e2d\u0e04\u0e33\u0e41\u0e19\u0e30\u0e19\u0e33\u0e40\u0e1e\u0e34\u0e48\u0e21\u0e40\u0e15\u0e34\u0e21\u0e44\u0e14\u0e49\u0e04\u0e23\u0e31\u0e1a.\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>R-studio : ( EP#16 ) \u0e41\u0e2a\u0e14\u0e07\u0e41\u0e1c\u0e19\u0e17\u0e35\u0e48 Spatial \u0e41\u0e25\u0e30\u0e15\u0e32\u0e23\u0e32\u0e07 Attrib [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_post_was_ever_published":false},"categories":[21],"tags":[484,482,440,483,487,488,477,485,439,475,486,490,492,489,491],"class_list":["post-828","post","type-post","status-publish","format-standard","hentry","category--r-studio","tag-attribute-table","tag-dt-table-r","tag-gis--r","tag-html-report-r","tag-htmlwidgets","tag-interactive-spatial-map","tag-leaflet-r","tag-r-markdown","tag-r-studio","tag-r--gis","tag-sf-package","tag-shapefile-viewer","tag-spatial-data-visualization","tag--html","tag-491"],"jetpack_sharing_enabled":true,"jetpack_featured_media_url":"","_links":{"self":[{"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=\/wp\/v2\/posts\/828","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=828"}],"version-history":[{"count":1,"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=\/wp\/v2\/posts\/828\/revisions"}],"predecessor-version":[{"id":829,"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=\/wp\/v2\/posts\/828\/revisions\/829"}],"wp:attachment":[{"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=828"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=828"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.gis2me.com\/geospatial\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=828"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}