R语言 作业 leaflet leafletCN REmap 的使用 迁徙图
R语言 作业 leaflet leafletCN REmap 的使用 迁徙图R语言 作业 leaflet包的使用1、添加弹出窗口# 安装包install.packages("leaflet")
# 加载包
library(leaflet)
# 设置地图控件
m<-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)
https://img-blog.csdnimg.cn/20210512095725507.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0F2YWRha3Vy,size_16,color_FFFFFF,t_70
jiliang<-paste('<p style="color: red;font-family: simhei";>',"中国计量大学","</p>")
# 添加marker
addMarkers(at,lng = 120.357254,lat = 30.323813,popup = jiliang)
https://img-blog.csdnimg.cn/20210512095815771.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0F2YWRha3Vy,size_16,color_FFFFFF,t_70
# 这里是添加一个弹出窗口， 设置closebutton=false 不显示关闭按钮
addPopups(at,lng = 120.357254,lat = 30.323813,popup = jiliang,options = popupOptions(closeButton = FALSE))
https://img-blog.csdnimg.cn/20210512095956668.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0F2YWRha3Vy,size_16,color_FFFFFF,t_70
2、使用leafletCN包，demomap命令绘制上海市的地图；单点标注上海交通大学：地图+标点
install.packages("leafletCN")
library(leafletCN)
# 使用这个命令可以直接绘制上海市地图
demomap("上海")
https://img-blog.csdnimg.cn/20210512100107734.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0F2YWRha3Vy,size_16,color_FFFFFF,t_70
# 管道流 单点标记上海交通大学
leaflet() %>%
+ amap() %>%
+ addMarkers(lng=121.42509, lat=31.02201 ,popup="上海交通大学")
https://img-blog.csdnimg.cn/20210512100609421.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0F2YWRha3Vy,size_16,color_FFFFFF,t_70
3、使用destination.csv数据文件绘制2016年的广州春运迁徙图，把动态页面保存好上传。
install.packages("REmap")
library(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,
+ color=rep("#fff",10)
+ )
markPoint_data <- markLine_data
markPoint_data1 <- markPoint_data
# 要自己注册一个AK api key 不然无法get到经纬度
options(remap.ak = "xxx")
remapC(destin,
+ title="2016年2月6日 广州人口迁出图",
+ subtitle="前10目标省份",
+ theme=get_theme(
+ #设置相应的背景色调
+ theme="Dark",
+ lineColor = "#FFFFFF",
+ titleColor = "#fff",
+ borderColor = "#FFFFFF", #边界颜色
+ regionColor = "#000000", #区域颜色
+ pointShow = F,
+ pointColor = "gold"
+ ),
+ color=c('#CD0000','#FFEC8B'), #颜色渐变方案，对应每个地区不同的value
+ markLineData=markLine_data,
+ markLineTheme=markLineControl(
+ color="white",
+ lineWidth=2,
+ lineType="dashed"
+ ),
+ markPointData=markPoint_data1,
+ markPointTheme=markPointControl(
+ symbolSize=13,
+ effect=T,
+ effectType="scale",
+ color="white"
+ )
+ )
https://img-blog.csdnimg.cn/20210512100954133.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0F2YWRha3Vy,size_16,color_FFFFFF,t_70
好，谢谢楼主的热情分享的资料
页:
[1]