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

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.

主站蜘蛛池模板: 宁陕县| 桦南县| 龙井市| 弥渡县| 郸城县| 扬州市| 广平县| 锦屏县| 祥云县| 湖南省| 汤阴县| 孝义市| 大足县| 原阳县| 白银市| 柳江县| 鄂温| 南澳县| 德安县| 平利县| 开鲁县| 余姚市| 伊川县| 六枝特区| 永春县| 吴川市| 南雄市| 鹿邑县| 崇仁县| 寿宁县| 平远县| 长岛县| 淮南市| 永平县| 济源市| 茶陵县| 宁德市| 桐城市| 阜城县| 丰宁| 屏山县|