{"id":1464,"date":"2023-08-28T21:29:41","date_gmt":"2023-08-28T13:29:41","guid":{"rendered":"https:\/\/stu.chcmu.asia\/?p=1464"},"modified":"2024-05-22T16:04:53","modified_gmt":"2024-05-22T08:04:53","slug":"worldmap","status":"publish","type":"post","link":"https:\/\/stu.chcmu.asia\/index.php\/2023\/08\/28\/worldmap\/","title":{"rendered":"worldmap"},"content":{"rendered":"<pre><code class=\"language-r\">library(tidyverse)\n\nworld &lt;- map_data(&quot;world&quot;) # \u753b\u56fe\u6570\u636e\nworld[which(world$region==&#039;Taiwan&#039;),&#039;region&#039;] &lt;- &quot;China&quot; # \u4e2d\u56fd\u53f0\u6e7e\n\n# \u5404\u56fd\u6807\u7b7e\nlabels &lt;- read.csv(&#039;map.csv&#039;) # \u4e0b\u8f7d\u6807\u7b7e\u6570\u636e\u540e\u8bfb\u53d6\n\n# \u6574\u5408\u753b\u56fe\u6570\u636e\u4e0e\u6807\u7b7e\u6570\u636e\nworld$value &lt;- 0\nfor (i in 1:nrow(labels)) {\n  world[which(world$region==labels$region[i] ),&#039;value&#039;] &lt;- labels[which(labels$region==labels$region[i]),&#039;value&#039;]\n};rm(i)\n\n# \u753b\u56fe\nlibrary(ggplot2)\nggplot() +\n  geom_polygon(data = world, # \u753b\u56fe\u6570\u636e\n               aes( x = long, y = lat,group=group,fill=value), # \u7ecf\u3001\u7eac\u5ea6\u5217\uff0c\u4f9d\u636e\u6570\u503c\u586b\u5145\u989c\u8272\n               color=&quot;white&quot;) + # \u754c\u7ebf\u989c\u8272\n  scale_fill_gradient(name = &quot;value&quot;, # \u6570\u503c\u5217\n  low= &#039;gray&#039;, high= &#039;red&#039; )+ # \u4f4e\u503c\u4e0e\u9ad8\u503c\u989c\u8272\n  theme_void()+ # \u4e3b\u9898\n  theme(legend.position = &quot;right&quot;)+ # \u56fe\u4f8b\u4f4d\u7f6e\uff08top right left bottom none\uff09\n  geom_text(data = labels , # \u6807\u7b7e\u6570\u636e\n            aes(x = long, y= lat, label =label), # \u7ecf\u3001\u7eac\u5ea6\u5750\u6807\u53ca\u6807\u7b7e\u5217\n            colour = &quot;black&quot;,  size = 2) # \u6807\u7b7e\u989c\u8272\u3001\u5b57\u53f7\n\n# save(world,labels,file = &#039;worldmap.Rdata&#039;)<\/code><\/pre>\n<p><a href=\"https:\/\/stu.chcmu.asia\/wp-content\/uploads\/2023\/08\/map.csv\" title=\"worldmap\">download_worldmap \u6807\u7b7e\u793a\u4f8b\u6570\u636e<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>library(tidyverse) world &lt;- map_data(&quot;world&#038;quo [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":1476,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2,31],"tags":[],"class_list":["post-1464","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r","category-statistics"],"_links":{"self":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/1464","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/comments?post=1464"}],"version-history":[{"count":10,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/1464\/revisions"}],"predecessor-version":[{"id":1475,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/1464\/revisions\/1475"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/media\/1476"}],"wp:attachment":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/media?parent=1464"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/categories?post=1464"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/tags?post=1464"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}