tmaptools (version 1.2)

append_data: Append data to a shape object

Description

Data, in the format of a data.frame, is appended to a shape object. This is either done by a left join where keys are specified for both shape and data, or by fixed order. Under coverage (shape items that do not correspond to data records), over coverage (data records that do not correspond to shape items respectively) as well as the existence of duplicated key values are automatically checked and reported via console messages. With under_coverage and over_coverage the under and over coverage key values from the last append_data call can be retrieved. Tip: run append_data without assigning the result to check the coverage.

Usage

append_data(shp, data, key.shp = NULL, key.data = NULL, ignore.duplicates = FALSE, ignore.na = FALSE, fixed.order = is.null(key.data) && is.null(key.shp))
under_coverage()
over_coverage()

Arguments

shp

shape object, which is one of

1. SpatialPolygons(DataFrame)
2. SpatialPoints(DataFrame)
3. SpatialLines(DataFrame)
4. SpatialGrid(DataFrame)
5. SpatialPixels(DataFrame)
6. sf object that can be coerced as one above

data

data.frame

key.shp

variable name of shp map data to be matched with key.data. If not specified, and fixed.order is FALSE, the ID's of the polygons/lines/points are taken.

key.data

variable name of data to be matched with key.shp. If not specified, and fixed.order is FALSE, the row names of data are taken.

ignore.duplicates

should duplicated keys in data be ignored? (FALSE by default)

ignore.na

should NA values in key.data and key.shp be ignored? (FALSE by default)

fixed.order

should the data be append in the same order as the shapes in shp?

Value

Shape object with appended data. Tip: run append_data without assigning the result to check the coverage.

Examples

## Not run: 
# if (require(tmap)) {
#     data(Europe)
# 
#     f <- tempfile()
#     download.file("http://kejser.org/wp-content/uploads/2014/06/Country.csv", destfile = f)
#     domain_codes <- read.table(f, header=TRUE, sep="|")
#     unlink(f)
# 
#     domain_codes <- subset(domain_codes, select = c("Alpha3Code", "TopLevelDomain"))
#     domain_codes$Alpha3Code <- toupper(domain_codes$Alpha3Code)
# 
#     Europe <- append_data(Europe, domain_codes, key.shp = "iso_a3", key.data = "Alpha3Code",
#     					  ignore.na = TRUE)
# 
#     # codes in the data, but not in Europe:
#     oc <- over_coverage()
#     oc$value
# 
#     # European countries without appended data:
#     uc <- under_coverage()
#     qtm(Europe[uc$id,], text="name")
# 
#     # plot the result
#     qtm(Europe, text="TopLevelDomain")
# }
# ## End(Not run)