tmap: рамка управления вокруг метки панели - PullRequest
Новая
       47

tmap: рамка управления вокруг метки панели

0 голосов
/ 26 апреля 2018

Я пытаюсь сделать два кратных германии без рамок вокруг карт - это мне удалось сделать. Однако у каждого кратного числа должна быть метка, и я не могу понять, как управлять рамкой вокруг меток панели.
Можно ли как-нибудь управлять рамками надписей или для этого нужно переключиться на ggplot? 

library(sp)
library(tmap)
library(RColorBrewer)

ID <- 1:16

Anzahl <- sample(10:80, 16)
AnzahlVF <- sample(50:200, 16)
Arbeitsort <- as.data.frame(cbind(ID, Anzahl, AnzahlVF))

Arbeitsort$relAnzahl <- Arbeitsort$Anzahl / sum(Arbeitsort$Anzahl)
Arbeitsort$relAnzahlVF <- Arbeitsort$AnzahlVF / sum(Arbeitsort$AnzahlVF)

ger <- sp::merge(x = germany, y=Arbeitsort, by.x = "ID_1", by.y = "ID")

pal <- brewer.pal(8, "Purples")

tm_shape(ger)+
  tm_polygons(c("relAnzahl", "relAnzahlVF"), title = "students",
              palette = pal)+
  tm_layout(panel.labels = c("1. Map", "2. Map"),
            panel.label.bg.color = NA,
            legend.format = list(text.separator = "bis"),
            legend.outside = T,
            frame = F)+
  tm_legend(position = c("left", "top"))

1 Ответ

0 голосов
/ 17 мая 2018

Так что, если я правильно понимаю, вы хотели бы отключить границы меток панели? Для этого пока нет вариантов. В вашем случае есть два твика:

1 Вы можете использовать аргумент заголовка вместо panel.labels, но это работает только тогда, когда легенда размещается внутри карты. Таким образом, твик должен использовать отключить легенду и нарисовать легенду отдельно с помощью tm_layout(legend.only = TRUE).

2 Вы можете использовать tm_credits (c ("1. Map", "2. Map"), position = c ("center", "top")), но тогда вам придется увеличить 3-е значение inner.margins (tm_layout).

...