R语言 作业 leaflet leafletCN REmap 的使用 迁徙图

1047521767

R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包
; ~' e+ `, ^) e" ginstall.packages("leaflet")
( c. R  a& p- [/ G8 i4 X# 加载包
library(leaflet)
5 {; d* K* T9 Q  A# 设置地图控件
- n" `: F* e7 V8 G' M7 im<-leaflet()
at<-addTiles(m)
#  在弹出窗口中写一个html格式网页 根据要求来写
shifan<-paste('<p style="color: black;font-family: simsun";>',"杭州师范大学下沙校区","</p>")
# 添加marker 自己选择需要的经纬度 popup：弹出窗口
addMarkers(at,lng = 120.390223,lat = 30.319753,popup = shifan)
0 R6 u0 k4 y2 B2 W) Z
0 w! p) U) _1 T( V& I
) K* g" Z6 x1 ? jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
6 H  j$ Y4 y" G6 I( | # 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)

% S4 e5 i+ L  Q
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))


+ V) ]& h. u* \- _! r2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
' I; }- U" s8 f$ n2 e7 D0 \! winstall.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")
5 ?) e0 M( G' o( S2 h+ U
3 w" s' i; W# Z
# 管道流 单点标记上海交通大学
leaflet() %>%
+     amap() %>%  
+     addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")

4 ]* C: \1 A# x
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
2 n: r$ f0 ]+ o8 U8 Mlibrary(REmap)
destin <- read.csv(file="D:/360MoveData/Users/14326/Desktop/课程/R软件/destination.csv",encoding="gb2312",header=F)
head(destin)
names(destin)<-c("names","values")
markLine_data <- data.frame(origin=rep("广东",10),
+                             destination=destin[1:10,1],
+                             color=rep("#fff",10)
+ )
7 B+ C9 ^4 E# n, Y' o" SmarkPoint_data <- markLine_data[markLine_data!=""]
9 Z& R  e& e9 u1 C& V1 GmarkPoint_data1 <- markPoint_data[which(markPoint_data!="广东"&markPoint_data!="#fff")]
8 f5 R3 \/ U$ ~  T- a# 要自己注册一个AK api key 不然无法get到经纬度
& t3 c9 g) S. t; X* y1 a; d, _options(remap.ak = "xxx")
6 E& W+ d! X7 `: PremapC(destin,
+        title="2016年2月6日 广州人口迁出图",
+        subtitle="前10目标省份",
+        theme=get_theme(                                         
0 q4 m7 H& t  ]5 T7 J, t+            #设置相应的背景色调
- T: i  d4 j+ C3 y+            theme="Dark",
( A) E" B& l" t) W" c( u! C8 M+            lineColor = "#FFFFFF",  
; G6 f1 [. j: O+            titleColor = "#fff",
+            borderColor = "#FFFFFF",  #边界颜色
5 z$ h) }2 q' _8 Y$ w" @. A6 n+            regionColor = "#000000",  #区域颜色
& x  O- S4 k3 c# [) S. F6 D6 a+            pointShow = F,
" b, ?- }* @5 ?' \+ X# E3 Q6 n+            pointColor = "gold"
+        ),
- c" E0 k' z( M+        color=c('#CD0000','#FFEC8B'),   #颜色渐变方案，对应每个地区不同的value
  N. l4 f# k! R& m$ y+        markLineData=markLine_data,   
/ I' I& e0 [; O! F5 ~& \% B+        markLineTheme=markLineControl(
+            color="white",
0 F1 @) |7 s' D8 B; r% x' f+            lineWidth=2,
* B2 j" c0 v5 `$ e+            lineType="dashed"  
+        ),
+        markPointData=markPoint_data1,
( k" r  L4 D+ o3 p9 f+        markPointTheme=markPointControl(
- C2 }* ]8 ]# h9 G4 I" Y+            symbolSize=13,  
/ r4 r; Y3 a$ O6 d' J4 N& Q( U+ V- j+            effect=T,           
# p; O7 S8 [( p0 B+            effectType="scale",   
+            color="white"
+        )
+ )

% M; k$ {" D' j% W2 ^
# p2 X1 @3 y% j5 M6 D6 z

试试吧

好，谢谢楼主的热情分享的资料