Factor order for colours

[SymbolixAU]

Keep the order of a factor variable when colouring

[mountainMath]

Example:

data <- tibble::tibble(lat=c(49.25,49.2),lng=c(-123.1,-123),
                       value=factor(c("A","B"),levels=c("B","A"))) %>%
  sf::st_as_sf(coords = c("lng", "lat"), crs = 4326, agr = "constant")

mapdeck(token = getOption("mapbox_token"), style = mapdeck_style('dark')) %>%
  mapdeck(token = getOption("mapbox_token"), style = mapdeck_style('dark')) %>%
  add_sf(data=data,
         fill_colour="value",
         legend = TRUE,
         radius = 500)

Result:

Expected behaviour for factors is a discrete colour scale with level values as labels, instead of continuous colour scale with level order as values.

When cast to character we get character labels, but the order is lost. The levels are ordered as "B" first and the "A", but this is lost when converting to character.

mapdeck(token = getOption("mapbox_token"), style = mapdeck_style('dark')) %>%
  add_sf(data=data %>% dplyr::mutate(value=as.character(value)),
         fill_colour="value",
         legend = TRUE,
         radius = 500)

[dcooley]

If you install the latest version, plus the dependencies, you should now see this working

devtools::install_github("SymbolixAU/colourvalues", force = TRUE )
devtools::install_github("SymbolixAU/spatialwidget", force = TRUE )
devtools::install_github("SymbolixAU/mapdeck", force = TRUE )


library(mapdeck)
library(tibble)
library(sf)

data <- tibble::tibble(
	lat = c(49.25,49.2)
	, lng = c(-123.1,-123)
	, value = factor( c("A","B"), levels = c("B","A"))) %>%
	sf::st_as_sf(coords = c("lng", "lat"), crs = 4326, agr = "constant")

str( data )

set_token( read.dcf("~/.mapbox", fields = "MAPBOX") )

data$value2 <- as.character( data$value )

mapdeck(style = mapdeck_style('dark')) %>%
	add_sf(
		data = data
		, fill_colour = "value"
		, stroke_colour = "value2"
		, tooltip = "value"
		, legend = TRUE
		, radius = 500
	)

[mountainMath]

Thanks, that works for me.

One change I noticed is that add_sf does not seem to be as tolerant any more. It used to work with geometry type GEOMETRY, now I need to st_collection_extract("POLYGON") to get it to show up.

[dcooley]

add_sf() hasn't changed (or I haven't intentionally changed it), GEOMETRY should go through to add_geojson()

Could you open a new issue with an example?