Leaflet包:从入门到跑路(二)

文章目录

    • 前言
    • Leaflet包中的颜色
      • Colorbox颜色盒子
      • 其他参数的设置
      • 应用示例
    • 添加图例
    • 图例的美化
    • 结语

前言

上一节我们学习了leaflet包是如何添加底图、修改底图、在底图上添加图标、绘制点、添加地图数据,在上一节的结尾,我们小科普了一个名为RColorBrewer包的配色包,说到颜色,令我好奇的是如何在leaflet包里实现从属性到颜色的映射。

Leaflet包中的颜色

那么接下来就介绍一下leaflet包里关于颜色的设置:
leaflet中设置颜色的方法很简单,首先你得有一个“颜色盒子",这个颜色盒子里面装着你喜欢的颜色,还有一些关于颜色透明度的说明、颜色范围的设置,怎么创建一个属于自己的颜色盒子呢?

Colorbox颜色盒子

leaflet中有4个函数可以生成这种颜色盒子,分别是colorNumeric()、colorBin、
colorQuantile()、colorFactor(),那么这四个盒子可以用来涂不同的东西,比如前三个函
数生成的盒子用来涂数值型的东西,最后一个函数colorFactor()用来渲染类别型的东西
效果最佳。
创建颜色的方法很简单:

colorbox1 <- colorNumeric() #使用colorNumeric()函数创建我的色彩盒
colorbox2 <- colorBin() #使用colorBin()函数创建我的色彩盒
colorbox3 <- colorQuantile() #使用colorQuantile()函数创建我的色彩盒
colorbox4 <- colorFactor() #使用colorFactor()函数创建我的色彩盒

用上述的方法创建完之后会得到一个空的颜色盒子,因为你盒子里面的颜色还没定义,
那么下一步就是把你喜欢的颜色装进这个colorbox里面去,怎么装进去呢?leaflet包里提
供了一个palette的参数,把这个参数放在上面四个函数里面,接收用户喜欢的颜色,形
如:

colorbox1 <- colorNumeric( palette = "我喜欢的颜色")

这里的颜色可以是来自其他包里的色带,例如你看上了RColorBrewer包里面的某一款色
带,那么你可以这样写:

#使用RColorBrewer包中的YIOrRd色带作为我喜欢的颜色,存放在我的色彩盒子里
colorbox1 <- colorNumeric( palette = "YIOrRd") 

Leaflet包:从入门到跑路(二)_第1张图片
也可以是自己定义的颜色向量:c("yellow","black","orange","red")
也可以是R语言提供的调色板:heat.colors,rainbow

其他参数的设置

除了颜色的选择,还有一些关于颜色的范围、透明度、颜色排序的设置,形如:

olorbox1 <- colorNumeric( palettr = "YIOrRd",domain = "颜色范围",alpha =
"透明度",reverse = "颜色排序")
  • domain — 颜色的值域,例如规定了色彩对应的值域为0:100,那么如果是一个0到60
    的数值型数据,该数据最终的色域将会占据该色带的前3/5;如果设置domain为NULL,则被着色的值跨越整个色域。
  • reverse—调色板中的颜色(或颜色功能)是否应以相反的顺序使用。例如,如果调色
    板的默认顺序从蓝色变为绿色,则reverse = TRUE将导致颜色从绿色变为蓝色

Leaflet包:从入门到跑路(二)_第2张图片

应用示例

#导入实验数据
library("rgdal")
data <- readOGR("zhongshan2.shp",stringsAsFactors = FALSE)
#定义几个颜色小盒子,装着我想要的颜色,默认颜色范围为整个色带
colorbox1 <- colorNumeric(palette = "PuBu",
							domain = Null)
colorbox2 <- colorNumeric(palette = c("orange","blue","yellow","grey"),
							domain = NULL)
colorbor3 <- colorNumeric(palette = "rainbow(10)",
							domain = NULL)
colorbor4 <- colorNumeric(palette = heat.colors(10),
							domain = NULL)
leaflet(data) %>%
	addTiles() %>%
		addPolygons(
			stroke = TRUE, #是否描边
			smoothFactor = 0.3, #简化折线的等级
			illOpacity = 0.8, #填充透明度
			color = ~colorbox1(data$F2) )

Leaflet包:从入门到跑路(二)_第3张图片
Leaflet包:从入门到跑路(二)_第4张图片Leaflet包:从入门到跑路(二)_第5张图片
Leaflet包:从入门到跑路(二)_第6张图片
需要注意的是

  1. ColorNumeric是用来渲染连续型的数据,例如1~100的数据。
  2. ColorBin可以用于数据切片分箱,可以指定breaks分割点来分箱,也可以通过bin参数指定分箱数量来分箱。如果pretty = TRUE(默认),将得到nice round的分割点,但是可能分箱数并不非你指定的。
  3. ColorQuantile也用于数据切片分箱,与ColorBin不同的是,它的数据分箱是通过分位数来实现,默认是4个箱子,5个间断点breaks。
  4. ColorFactor用于类别型数据渲染,也就是需要根据一个字符型向量来指定渲染颜色,如果指定的类别数量与实际数据的类别不符合,它会使用内插法进行类别的颜色渲染。

添加图例

leaflet包中添加图例的方法比较简单,使用addlegend函数添加即可。
addlegend中关键的参数有两个,一个是values的设置,用于从palette参数中生成颜色的值,一个是pal的设置,用于调用我们颜色盒子来作为图例的样式
例如:

#创建一个分位数分箱的颜色盒子,设置箱子数为7
colorbox5 <- colorQuantile(palette = rainbow(10),
domain = NULL,n = 7)
leaflet(data) %>%
	addTiles() %>%
		addPolygons(
			stroke = TRUE, #是否描边
			smoothFactor = 0.3, #简化折线等级
			fillOpacity = 0.8, #填充透明度
			color = ~colorbox5(data$F2) ) %>%
				addLegend(
				position = "topleft",
				pal = colorbox5,values = data$F2,group = "data$F2")%>%
					addLayersControl(overlayGroups = "data$F2")

Leaflet包:从入门到跑路(二)_第7张图片

#创建一个连续型颜色盒子,采用彩虹配色
colorbox6 <- colorNumeric(palette = rainbow(10),
							domain = NULL),
#创建一个分箱型颜色盒子,采用heat.colors配色,分箱数为7
colorbox7 <- colorBin(palette = rainbow(5),
						domain = data$F2,bins = 7)
#创建一个分位数颜色盒子,采用topo.color配色,分箱数为5
colorbox8 <- colorNumeric(palette = rainbow(10),
							domain = NULL)
leaflet(data) %>%
	addTiles() %>%
		addPolygons(
			stroke = TRUE, #是否描边
			smoothFactor = 0.3, #简化折线等级
			fillOpacity = 0.8, #填充透明度
			color = ~colorbox6(data$F2)) %>%
				addLegend( #添加ColorNumeric颜色的图例
						position = "topleft",
						pal = colorbox6,
						values = ~F2)%>%
				addLegend( #添加ColorBin颜色的图例
						position = "topright",
						pal = colorbox7,
						values = ~F2)%>%
				addLegend( #添加ColorQuantiel颜色的图例
						position = "bottomleft",
						pal = colorbox8,
						values = ~F2)

Leaflet包:从入门到跑路(二)_第8张图片

图例的美化

1. 位置的修改(position)
图例的位置包括四个:topleft(左上角)、topright(右上角)、bottomleft(左下角)、bottomright(右下角)
2. 缺省值的设置
在图例上,缺省值的表示可以自定义设置

na.label = NA

3. 标题的添加
使用title添加图例的标题
4. 修改图例标注
图例标注的修改可以使用labFormat = labelFormat()参数进行修改,在labelFormat()这个函数里面,提供了若干个参数,例如:

  • prefix、suffix ——前/后缀的修改,
  • between——中间分隔符的修改

5. 数据格式的转化
使用transform = function(x)的方法进行数据的处理,其中function(x)可以由用户自定义。

实验代码如下:

#创建一个连续型颜色盒子,采用彩虹配色
colorbox6 <- colorNumeric(palette = rainbow(10),
							domain = NULL)
leaflet(data) %>%
	addTiles() %>%
		addPolygons(
			stroke = TRUE, #是否描边
			smoothFactor = 0.3, #简化折线等级
			fillOpacity = 0.8, #填充透明度
			color = ~colorbox5(data$F2) ) %>%
				addLegend(
					position = "bottomleft", #位置设置为左下角
					pal = colorbox6, #采用colorbox6作为图例配色
					values = data$F2,
					group = "data$F2",
					title = "中山市某年镇域人口分布",
					opacity = 0.5, #不透明度设置
					labFormat = labelFormat(
									prefix = " ",
									suffix = "(万人)", #添加标注后缀
									between = "~",
									transform = function(x) {
														x =
														x/10000 #定义funcyion函数}))

Leaflet包:从入门到跑路(二)_第9张图片

结语

leaflet包中有关颜色和图例的设置也就差不多齐全了,当然这些也只是入门的基础知识,但everything moves with The Times, so does knowledge, and so should you,在实践中发挥自己的创意,找寻更多关于leaflet包的美吧!

你可能感兴趣的:(R语言,r语言,经验分享,学习)