Одна легенда с таким же масштабом Tmap - PullRequest
Новая
       37

Одна легенда с таким же масштабом Tmap

0 голосов
/ 12 марта 2020

Я хочу сделать график с помощью enter image description here, объединяющего несколько карт, как показано на прикрепленном изображении. Но мне нужно создать одну легенду (а не четыре, как показано), а также изменить ее значение от 0 до 100. Я думаю, что это возможно, любое предложение в этом отношении было бы замечательно.

Del 

d_dw <- tm_shape(d_pcahlsp) + tm_fill("dw_twts", breaks=c(0,10, 20, 30,40,50,60, 70, 80, 90, 100), Palette = "Reds", 
                              title = "% Treated drinking water") +
        tm_borders(alpha=.4) +
        tm_layout(legend.text.size = 0.8, legend.title.size = 0.8, frame = FALSE, legend.outside = TRUE, 
                  title = "Delhi")

Лук 

l_dw <- tm_shape(l_pcahlsp) + tm_fill("dw_twts", breaks=c(0,10, 20, 30,40,50,60, 70, 80, 90, 100), Palette = "Reds", 
                              title = "% Treated drinking water") +
        tm_borders(alpha=.4) +
        tm_layout(legend.text.size = 0.8, legend.title.size = 0.8, frame = FALSE, legend.outside = TRUE,
                  legend.show = TRUE, title= "Lucknow")

Безумный 

m_dw <- tm_shape(m_pcahlsp) + tm_fill("dw_twts", breaks=c(0,10, 20, 30,40,50,60, 70, 80, 90, 100), Palette = "Reds",
                                      title = "% Treated drinking water") +
        tm_borders(alpha=.4) +
        tm_layout(legend.text.size = 0.8, legend.title.size = 0.8, frame = FALSE, legend.outside = TRUE,
                  legend.show = TRUE, title = "Madurai")

Три 

t_dw <- tm_shape(t_pcahlsp) + tm_fill("dw_twts", breaks=c(0,10, 20, 30,40,50,60, 70, 80, 90, 100), Palette = "Reds", 
                                      title = "% Treated drinking water") +
  tm_borders(alpha=.4) +
  tm_layout(legend.text.size = 0.8, legend.title.size = 0.8, frame = FALSE, legend.outside = TRUE,
            legend.show = TRUE, title = "Thiruvananthapuram")


tmap_arrange(d_dw, l_dw, m_dw, t_dw, ncol = 2)

1 Ответ

0 голосов
/ 14 марта 2020

Вы можете добавить «категориальную» переменную к каждому sf объекту (например, d_pcahlsp $ place = "Delhi"), связать их с rbind и затем создать ограненный tmap с помощью `+ tm_facets (" place ")

Демонстрация здесь с набором данных nc: 

library(tmap)
library(sf)

# create replicates of the nc dataset
nc <- st_read(system.file("/shape/nc.shp", package="sf"))
nc_2 <- nc
nc_3 <- nc
nc_4 <- nc


# add categorical variable to distinguish "panels,
# and modify the AREA column to see variations
nc$place = "1) Here"

nc_2$place = "2) There"
nc_2$AREA = 1.3 * nc_2$AREA

nc_3$place = "3) And"
nc_3$AREA = 1.1 * nc_3$AREA

nc_4$place = "4) Everywhere"
nc_4$AREA = 0.6 * nc_4$AREA

# bind the datasets
nc_tot <- rbind(nc, nc_2, nc_3, nc_4)

# plot
tm_shape(nc_tot) +
    tm_polygons("AREA") +
    tm_facets("place", ncol = 2)

enter image description here

...