style catalogue updated #1190, disabled earth boundary for 'natural'

Author: mtennekes

R/tmapScaleCategorical.R

@@ -99,7 +99,8 @@ tmapScaleCategorical = function(x1, scale, legend, chart, o, aes, layer, layer_a
 
 		# combine levels
 		if (n.max < n) {
-			if (show.warnings) warning("Number of levels of the variable assigned to the aesthetic \"",aes ,"\" of the layer \"", layer, "\" is ", n, ", which is larger than n.max (which is ", n.max, "), so levels are combined.", call. = FALSE)
+			# only show warning if n.max is the default
+			if (show.warnings && n.max == 30) warning("Number of levels of the variable assigned to the aesthetic \"",aes ,"\" of the layer \"", layer, "\" is ", n, ", which is larger than n.max (which is ", n.max, "), so levels are combined.", call. = FALSE)
 
 			mapping = as.numeric(cut(seq.int(n), breaks=n.max))
 			to = c(which(mapping[-n] - mapping[-1]!=0), n)

R/tmap_options_defaults.R

@@ -781,7 +781,7 @@ styles = list(
 		legend.frame = TRUE,
 		legend.bg.color = "grey90",
 		frame = FALSE,
-		earth_boundary = TRUE,
+		earth_boundary = NA,
 		basemap.server = "Esri.NatGeoWorldMap",
 		basemap.alpha = 1),
 	cobalt = list(bg.color = "#002240",

R/tmap_style_catalogue.R

@@ -17,85 +17,57 @@ tmap_style_catalogue <- function(path="./tmap_style_previews", styles=NA) {
 	if (!file.exists(path)) dir.create(path, recursive = TRUE)
 
 	# load and process data
-	World <- metro <- World_rivers <- land <- NULL
-	data(World, metro, World_rivers, land, envir = environment())
-	metro$growth <- (metro$pop2020 - metro$pop2010) / (metro$pop2010 * 10) * 100
+	pb <- txtProgressBar()
 
-	rivers <- sf::st_transform(World_rivers, st_crs(World))
+	tm1 = tm_shape(NLD_prov) +
+		tm_polygons() +
+		tm_title_out("Constant polygon fill")
+
+	NLD_muni$letter = factor(substr(NLD_muni$name, 1, 1))
+	tm2 = tm_shape(NLD_muni) +
+		tm_polygons(lwd = .5, fill = "letter", fill.scale = tm_scale_categorical(n.max = 7)) +
+		tm_shape(NLD_prov) +
+		tm_borders(lwd = 2) +
+		tm_title_out("Categorical color scale") +
+		tm_compass() +
+		tm_scalebar()
+
+
+	tm3 = tm_shape(NLD_muni) +
+		tm_polygons(lwd = 0.5, fill = "income_high") +
+		tm_shape(NLD_prov) +
+		tm_borders(lwd = 2) +
+		tm_title_out("Sequential color scale")
+
+	tm4 = tm_shape(NLD_muni) +
+		tm_polygons(lwd = 0.5, fill = "urbanity", fill.scale = tm_scale_categorical(values = "div")) +
+		tm_shape(NLD_prov) +
+		tm_borders(lwd = 2) +
+		tm_title_out("Diverging color scale")
 
-	pb <- txtProgressBar()
 
 	print_style <- function(style, i) {
 		on.exit(dev.off())
-		png(file.path(path, paste0(style, ".png")), width=1920, height=1080)
+		png(file.path(path, paste0(style, ".png")), width=1920, height=1920)
 		grid.newpage()
-		pushViewport(viewport(layout = grid.layout(3,3)))
+		pushViewport(viewport(layout = grid.layout(2,2)))
 
 		# set progress bar init
 		pbi <- (i-1)/ns
-		pbii <- function(i) pbi + (i/9) * (1/ns)
-
-		# first column
-		print(tm_shape(World) +
-			  	tm_polygons() +
-			  	tm_text("iso_a3", size="AREA") +
-			  	tm_symbols() +
-			  	tm_shape(World_rivers) +
-			  	tm_lines() +
-			  	tm_compass() +
-			  	tm_scale_bar() +
-			  	tm_style(style) + tm_format("World", title="Fixed aesthetics"),
+		pbii <- function(i) pbi + (i/4) * (1/ns)
+
+		print(tm1 + tm_style(style) + tm_layout(scale = 2),
 			  vp = viewport(layout.pos.row = 1, layout.pos.col = 1))
 		setTxtProgressBar(pb, pbii(1))
-		print(tm_shape(World) +
-			  	tm_borders() +
-			  	tm_text("name", size="AREA") +
-			  	tm_style(style) + tm_format("World", title="Polygon borders with text"),
-			  vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
+		print(tm2 + tm_style(style) + tm_layout(scale = 2),
+			  vp = viewport(layout.pos.row = 1, layout.pos.col = 2))
 		setTxtProgressBar(pb, pbii(2))
-		print(tm_shape(World_rivers, bbox = bb(World)) +
-			  	tm_lines() +
-			  	tm_style(style) + tm_format("World", title="Lines only"),
-			  vp = viewport(layout.pos.row = 3, layout.pos.col = 1))
+		print(tm3 + tm_style(style) + tm_layout(scale = 2),
+			  vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
 		setTxtProgressBar(pb, pbii(3))
-
-		# second column
-		print(tm_shape(World) +
-			  	tm_polygons("MAP_COLORS", ncols=5) +
-			  	tm_style(style) + tm_format("World", title="Map coloring"),
-			  vp = viewport(layout.pos.row = 1, layout.pos.col = 2))
-		setTxtProgressBar(pb, pbii(4))
-		print(tm_shape(World) +
-			  	tm_polygons() +
-			  	tm_shape(metro) +
-			  	tm_dots() +
-			  	tm_grid(projection = 4326) +
-			  	tm_style(style) + tm_format("World", title="Dot map"),
+		print(tm4 + tm_style(style) + tm_layout(scale = 2),
 			  vp = viewport(layout.pos.row = 2, layout.pos.col = 2))
-		setTxtProgressBar(pb, pbii(5))
-		print(tm_shape(World) +
-			  	tm_polygons() +
-			  	tm_shape(metro) +
-			  	tm_symbols(size = "pop2010", col = "growth", breaks = c(-Inf, -2, -1, -.5, .5, 1, 2, Inf), midpoint = 0) + tm_style(style) + tm_format("World", title="symbol map"),
-			  vp = viewport(layout.pos.row = 3, layout.pos.col = 2))
-		setTxtProgressBar(pb, pbii(6))
-
-		# third column
-		print(tm_shape(World) +
-			  	tm_polygons("gdp_cap_est", breaks=c(0, 10000, 20000, 30000, 40000, 50000, Inf)) +
-			  	tm_text("iso_a3", size="AREA") + tm_style(style) + tm_format("World", title="Choropleth"),
-			  vp = viewport(layout.pos.row = 1, layout.pos.col = 3))
-		setTxtProgressBar(pb, pbii(7))
-		print(tm_shape(World) +
-			  	tm_polygons("HPI", palette="div", n=9) +
-			  	tm_text("iso_a3", size="AREA") + tm_style(style) + tm_format("World", title="Choropleth (diverging)"),
-			  vp = viewport(layout.pos.row = 2, layout.pos.col = 3))
-		setTxtProgressBar(pb, pbii(8))
-		print(tm_shape(World) +
-			  	tm_polygons("economy") +
-			  	tm_text("iso_a3", size="AREA") + tm_style(style) + tm_format("World", title="Categorical map"),
-			  vp = viewport(layout.pos.row = 3, layout.pos.col = 3))
-		setTxtProgressBar(pb, pbii(9))
+		setTxtProgressBar(pb, pbii(4))
 		upViewport()
 	}