sandbox/testing_tmapVars.R

In r-tmap/tmap: Thematic Maps

data(World)
World$pop_est[31] = 1.2e9
World$pop_est[74] = 1e9

tm_shape(World) +
	tm_bubbles(size = "pop_est", scale = 3)

library(grid)

g = circleGrob(gp=gpar(lwd = 4))



tm_shape(World) +
	tm_bubbles(size = "pop_est", scale = 1,
			   shape = g)


tm_shape(World) +
	tm_bubbles(size = "pop_est", 
			   shape = list(tmap_icons("https://avatars.githubusercontent.com/u/65502380?s=200&v=4")))

tm_shape(World) +
	tm_bubbles(size = "pop_est", scale = 3) +
	tm_shape(World) +
	tm_bubbles(size = "pop_est", scale = 1,
			   shape = tmap_icons("https://avatars.githubusercontent.com/u/65502380?s=200&v=4"))

tm_shape(World) +
	tm_bubbles(size = "pop_est", scale = 3) +
	tm_shape(World) +
	tm_bubbles(size = "pop_est", scale = 1,
			   shape = list(g, g))

tm_shape(World) +
	tm_polygons(list("red", "blue"))


tm_shape(World) +
	tm_polygons(list("red", "blue"))


##### systematic testing tmapVars

# one value
tm_shape(World) +
	tm_polygons(fill = "pink")

tm_shape(World) +
	tm_polygons(lwd = 3)

# two values

tm_shape(World) +
	tm_polygons(fill = c("pink", "orange"))

tm_shape(World) +
	tm_polygons(lwd = c(3, 6))


tm_shape(World) +
	tm_polygons(fill = list("pink", "orange"))

tm_shape(World) +
	tm_polygons(lwd = list(3, 6))


# one variable
tm_shape(World) +
	tm_polygons(fill = "economy")

tm_shape(World) +
	tm_polygons(lwd = "HPI")


# two variables
tm_shape(World) +
	tm_polygons(fill = c("economy", "income_grp"))

tm_shape(World) +
	tm_polygons(lwd = c("HPI", "footprint"))

tm_shape(World) +
	tm_polygons(fill = list("economy", "income_grp"))

tm_shape(World) +
	tm_polygons(lwd = list("HPI", "footprint"))

# As Is
tm_shape(World) +
	tm_polygons(fill = I("red"))

tm_shape(World) +
	tm_polygons(fill = I(c("red", "blue")))

tm_shape(World) +
	tm_polygons(fill = list(I("red"), I("blue")))

# note: scale asis is same as any other scale
World$FILL1 = rainbow(177)
World$FILL2 = rev(rainbow(177))

tm_shape(World) +
	tm_polygons(fill = "FILL1", fill.scale = tm_scale_asis())

tm_shape(World) +
	tm_polygons(fill = c("FILL1", "FILL2"), fill.scale = tm_scale_asis())

# shape vars
tm_shape(World) +
	tm_polygons(fill = tm_vars())

tm_shape(land) +
	tm_raster()


require(stars)
require(terra)
require(sf)

file = system.file("tif/L7_ETMs.tif", package = "stars")

L7 = stars::read_stars(file)

tm_shape(L7) +
	tm_rgb()


# the previous example was a shortcut of this call
tm_shape(L7) +
	tm_rgb(col = tm_vars("band", dimvalues = 1:3))

# alternative format: using a stars dimension instead of attributes
L7_alt = split(L7, "band")
tm_shape(L7_alt) +
	tm_rgb()

# with attribute names
tm_shape(L7_alt) +
	tm_rgb(col = tm_vars(c("X1", "X2", "X3"), multivariate = TRUE))

# with attribute indices
tm_shape(L7_alt) +
	tm_rgb(col = tm_vars(1:3, multivariate = TRUE))

if (requireNamespace("terra")) {
	L7_terra = terra::rast(file)
	
	tm_shape(L7_terra) +
		tm_rgb()
	
	# with layer names
	tm_shape(L7_terra) +
		tm_rgb(tm_vars(names(L7_terra)[1:3], multivariate = TRUE))
	
	# with layer indices
	tm_shape(L7_alt) +
		tm_rgb(col = tm_vars(1:3, multivariate = TRUE))
	
}


# complex stars
L7alt = L7
L7alt$L7_ETMs.tif = 255 - L7alt$L7_ETMs.tif

L7duo = c(L7, L7alt)
L7duo2 = merge(L7duo)

tm_shape(L7duo) +
	tm_rgb(tm_vars("band", dimvalues = 1:3), col.scale = tm_scale_rgb(stretch = F)) +
tm_facets(by = "VARS__")

tm_shape(L7duo2) +
	tm_rgb(tm_vars("band", dimvalues = 1:3), col.scale = tm_scale_rgb(stretch = F)) +
	tm_facets(by = "attributes")


tm_shape(World) +
	tm_polygons(c("HPI", "footprint")) +
	tm_facets_grid(rows = "VARS__", columns = "continent")

tm_shape(L7) +
	tm_raster()