REmap首次尝试--PC端

在REchart项目中，实验此网址的内容，得到若干实例

针对此我针对北京市做了若干实验

第一：绘制北京市的填充地图

代码如下：

>BJqu<-mapNames("beijing")
>value<-runif(18,min = 1,max = 100)
>BJ_DF<-data.frame(BJqu,value)
>BJqu_result<-remapC(BJ_DF,title = "北京市热力图",maptype = "beijing",color = "red",theme = get_theme("Dark"),maxdata = 100,mindata = 1)
>BJqu_result

第二：绘制北京市部分站点的方位图

• “subwaystation.csv”文件记载着322个站点的经纬度及站点，想在地图上绘制所有站点的热力图，绘制失败原因：载入中文站点乱码，另外，各参数的值没有确定好，导致半径过大。
• 只载人line1的部分站点，为了解决乱码问题，亲自用“,”建立csv文件，最后，发现，点在实际地点的左下侧原因：站点经纬度有偏差
• 采用get_geo_position()函数，输入若干站点，并绘制，有部分站点找不到经纬度，另外如王府井站点，定位到王府井街的中段，而不是王府井地铁站，这是这种定位的缺陷。
  

  >line1_station<-c("苹果园","古城","八角游乐园","八宝山","玉泉路","五棵松","万寿路","公主坟","军事博物馆","复兴门","西单","天安门西","天安门东","王府井","东单","建国门","永安里","国贸","大望路")
  >line1_station_Geo<-get_geo_position(line1_station)
  Warning message:
  In get_geo_position(line1_station) :
    苹果园 not found.玉泉路 not found.万寿路 not found.王府井 not found.永安里 not found.
  > head(line1_station_Geo)
         lon      lat       city
  2 100.2320 26.88328       古城
  3 116.2194 39.91308 八角游乐园
  4 116.2483 39.91539     八宝山
  6 116.2804 39.91383     五棵松
  8 116.3167 39.91351     公主坟
  9 116.3306 39.91485 军事博物馆

• 最后，根据百度地图上的经纬度，修改站点的经纬，得到下面的修正结果

  > line1_latlon
         lon     lat       city
  1 116.1838 39.9324     苹果园
  2 116.1970 39.9136     古城路
  3 116.2191 39.9132 八角游乐园
  4 116.2420 39.9132     八宝山
  5 116.2594 39.9136     玉泉路
  6 116.2802 39.9139     五棵松
  7 116.3014 39.9137     万寿路
  8 116.3169 39.9138     公主坟

  如下代码

  >line1_result<-remapB(markPointData=data.frame(line1_latlon$city),markPointTheme = markPointControl(symbol = "circle",effect = FALSE,symbolSize = 4,color = "red"),geoData = line1_latlon)