{"id":1477,"date":"2023-08-28T22:07:16","date_gmt":"2023-08-28T14:07:16","guid":{"rendered":"https:\/\/stu.chcmu.asia\/?p=1477"},"modified":"2024-05-22T16:04:48","modified_gmt":"2024-05-22T08:04:48","slug":"chinamap","status":"publish","type":"post","link":"https:\/\/stu.chcmu.asia\/index.php\/2023\/08\/28\/chinamap\/","title":{"rendered":"ChinaMap"},"content":{"rendered":"<pre><code class=\"language-r\">\nlibrary(sf)\nlibrary(ggplot2)\n# \u6570\u636e\u6765\u6e90 http:\/\/datav.aliyun.com\/portal\/school\/atlas\/area_selector\n# 100000 \u4e3a\u4e2d\u56fd\u5730\u56fe\uff0c500000 \u4e3a\u91cd\u5e86\uff0c510000 \u4e3a\u56db\u5ddd......\nadcode &lt;- &quot;100000&quot;\n\n# \u8bfb\u53d6\u6570\u636e\uff0c\u53d6\u6240\u9700\u5185\u5bb9\nsite &lt;- paste0(&quot;https:\/\/geo.datav.aliyun.com\/areas_v3\/bound\/&quot;,adcode,&quot;_full.json&quot;)\ndf_map &lt;- read_sf( site[1] )[,c(&#039;adcode&#039;,&#039;name&#039;,&#039;center&#039;,&#039;parent&#039;,&#039;geometry&#039;)]\n\nn &lt;- which(is.na(df_map[,4])  ) # \u5750\u6807\u7f3a\u5931\u5217\n\n# \u6807\u7b7e\u7ecf\u3001\u7eac\u5ea6\u5750\u6807\ndf_map$jd  &lt;- NA\ndf_map[-n,&#039;jd&#039;] &lt;- matrix(unlist(df_map$center[-n] ),ncol = 2, byrow = T)[,1]\n\ndf_map$wd  &lt;- NA\ndf_map[-n,&#039;wd&#039;] &lt;- matrix(unlist(df_map$center[-n]),ncol = 2, byrow = T)[,2]\n\ndf_map$value &lt;- 1:nrow(df_map) # \u7ed9\u5404\u7701\u8d4b\u503c\uff0c\u53ef\u81ea\u884c\u66f4\u6539\u3002\n\n# \u753b\u56fe\np &lt;- ggplot(data=df_map)+ geom_sf(aes(fill = value) ) +\n     fixed_plot_aspect(ratio = 1.25) +\n     labs(title=&#039;Map&#039;) +\n   # coord_sf(crs = 4326)\n   annotation_scale(location=&#039;bl&#039;)+   # \u6dfb\u52a0\u6bd4\u4f8b\u5c3a\n   # \u6dfb\u52a0\u6307\u5317\u9488\n   annotation_north_arrow(location = &quot;tl&quot;, which_north = &quot;false&quot;, style = north_arrow_fancy_orienteering) +\n   # \u6570\u636e\u5217\uff0c\u4f4e\u503c\u3001\u9ad8\u503c\u989c\u8272\n   scale_fill_gradient(name =&#039;value&#039;, low= &#039;white&#039;, high= &#039;red&#039; )\n\np\n# \u80cc\u666f\uff08\u7ecf\u7eac\u5ea6\u7f51\u683c\u7ebf\uff09\np + geom_text(data = df_map,aes(x=jd,y=wd,label= name), position = &quot;identity&quot;,size=3) +\n     theme( plot.title = element_text(hjust = 0.5,size=30 )  )\n\n# \u65e0\u80cc\u666f\np  + geom_text(data = df_map,aes(x=jd,y=wd,label= name), position = &quot;identity&quot;,size=3) +\n     theme_void()+\n     theme( plot.title = element_text(hjust = 0.5,size=30 ) )\n\n# \u5730\u56fe\u6295\u5f71\np + theme( plot.title = element_text(hjust = 0.5,size=30 )  )+\n  # \u6295\u5f71\n  coord_sf(crs = &quot;+proj=laea +lat_0=40 +lon_0=104&quot;)\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>library(sf) library(ggplot2) # \u6570\u636e\u6765\u6e90 http:\/\/datav.aliyun [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":1486,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2,31],"tags":[],"class_list":["post-1477","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\/1477","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=1477"}],"version-history":[{"count":7,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/1477\/revisions"}],"predecessor-version":[{"id":1485,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/posts\/1477\/revisions\/1485"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/media\/1486"}],"wp:attachment":[{"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/media?parent=1477"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/categories?post=1477"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/stu.chcmu.asia\/index.php\/wp-json\/wp\/v2\/tags?post=1477"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}