官术网_书友最值得收藏!

Plotting quantitative and qualitative data on a map

We can plot quantitative values using the choropleth() of the GISTools package. We can generate a choropleth using the following commands:

# plot quantitative data
library(GISTools)
choropleth(map_bd, as.numeric(map_bd$value2))

We can also write a title and design this map further, but we will do these things in upcoming chapters. This gives us a nice little map:

Using spplot(), we can also plot qualitative data. First, we need to convert this qualitative attribute or column of SpatialPolygonsDataFrame to a factor variable and use a suitable color range. We have a shapefile of Dhaka's divisions, which consist of seven districts each whose name is stored in the NAME_3 column, and our goal is to color different districts of Dhaka's divisions. Here we have picked seven colors from the RColorBrewer package as there are seven unique values for the NAME_3 column. Plotting to qualitative data (here the names of the districts) or coloring different districts can be done in the following way:

# Plot qualitative data
#install.packages("RColorBrewer")
library(RColorBrewer)
dhaka_div = readOGR("F:/Hands-on-Geospatial-Analysis-Using-R-and-QGIS/Chapter02/Data","dhaka_div")
# check how many unique elements map_bd$NAME_3 has by writing unique(dhaka_div$NAME_3)
unique(dhaka_div$NAME_3)
# There are 7 unique districts and so pick 7 colors
colors = colorRampPalette(brewer.pal(12, "Set3"))(7)
dhaka_div$NAME_3 = as.factor(as.character(dhaka_div$NAME_3))
spplot(dhaka_div, "NAME_3", main = "Coloring different districts of Dhaka division", col.regions = colors, col = "white")

This gives us the following map with every polygon colored according to its name:

We will be learning easier ways to plot now in the next section.

主站蜘蛛池模板: 新宾| 建水县| 泽州县| 盈江县| 闵行区| 炎陵县| 潮安县| 澜沧| 汪清县| 新余市| 汝南县| 洪湖市| 南丰县| 普洱| 中宁县| 合江县| 冕宁县| 万源市| 田林县| 郸城县| 乌审旗| 酉阳| 拉孜县| 沐川县| 海宁市| 克拉玛依市| 呼伦贝尔市| 富顺县| 边坝县| 金华市| 临夏市| 福建省| 宕昌县| 绩溪县| 石棉县| 凉山| 修水县| 四会市| 泽普县| 汾阳市| 巴林左旗|