R: sf размер графика цветового ключа
Есть способ настроить height а также width параметры цвета ключа легенды plot.sf, как это возможно в spplot?
library(sf)
nc_sf <- st_read(system.file("shape/nc.shp", package="sf"))
plot(nc_sf["AREA"], main = "sf", key.pos = 1,
key.size = lcm(1.2)) # Only adjust the height of key (on bottom side)
# How adjust the width ?
library(sp)
nc_sp <- as(nc_sf, 'Spatial')
spplot(nc_sp, "AREA", main = "sp",
colorkey = list(space = "bottom",
height = 0.5, width = 1))
отредактировано:
Я пробую что-то вокруг оригинального кода plot.R в строках 203-211 и
if (! isTRUE(dots$add) && ! is.null(key.pos) && !all(is.na(values)) &&
(is.factor(values) || length(unique(na.omit(values))) > 1) &&
length(col) > 1) { # plot key?
switch(key.pos,
layout(matrix(c(2,1), nrow = 2, ncol = 1), widths = 1, heights = c(1, key.size)), # 1 bottom
layout(matrix(c(1,2), nrow = 1, ncol = 2), widths = c(key.size, 1), heights = 1), # 2 left
layout(matrix(c(1,2), nrow = 2, ncol = 1), widths = 1, heights = c(key.size, 1)), # 3 top
layout(matrix(c(2,1), nrow = 1, ncol = 2), widths = c(1, key.size), heights = 1) # 4 right
)
изменяя widthsПараметр и пересборка пакета. Но не работай.
Может быть, что-то вокруг функции .get_layout?
отредактированном
Мое неуклюжее решение: перестроить оригинальную функцию с некоторыми настройками
my_plot.sf <- function(x, y, ..., col = NULL, main, pal = NULL, nbreaks = 10, breaks = "pretty",
max.plot = if(is.null(n <- options("sf_max.plot")[[1]])) 9 else n,
key.pos = get_key_pos(x, ...),
key.widths = 0.1111, # new parameter
key.size = .6666, # keep "key.size" instead of "key.heights" because it's called by another functions
reset = TRUE) {
# original code of plot.sf until line 203 (show above), so I change the layout matrix
switch(key.pos,
layout(matrix(c(2,2,2,0,1,0), nrow = 2, ncol = 3, byrow = T),
widths = c((1-key.size)/2, key.size,(1-key.size)/2),
heights = c(1, key.widths)), # 1 bottom
layout(matrix(c(0,1,0,2,2,2), nrow = 3, ncol = 2, byrow = F),
widths = c(key.widths, 1),
heights = c((1-key.size)/2, key.size,(1-key.size)/2)), # 2 left
layout(matrix(c(0,1,0,2,2,2), nrow = 2, ncol = 3, byrow = T),
widths = c((1-key.size)/2, key.size,(1-key.size)/2),
heights = c(key.widths, 1)), # 3 top
layout(matrix(c(2,2,2,0,1,0), nrow = 3, ncol = 2, byrow = F),
widths = c(1, key.widths),
heights = c((1-key.size)/2, key.size,(1-key.size)/2)) # 4 right
)
# remainder of the original code
my_plot.sf
my_plot.sf(nc_sf["AREA"], main = "my_plot.sf", key.pos = 1,
key.size = .5, key.widths = .1666)
