如何讓我的兩張R小冊子地圖彼此同步？

Question

對於某些數據，我在R中實現了Leaflet包，取得了一些不錯的成功。

我也設法將兩張地圖並排放置成一個格子，並作爲同步。

我有兩個問題：

1）同步......在所有

不同步的地圖我使用Mapview和Raster嘗試同步，但兩張圖並排不一起放大/縮小。

請參見下面的代碼：

library(leaflet) 
library(ggmap) 
library(mapview) 
library(raster) 
library(magrittr) 
UK <- ggmap::geocode("United Kingdom") 

#FILE1 <- read.csv("DATASET1.csv") 
#FILE2 <- read.csv("DATASET2.csv") 
FILE1 <- data.frame('lat' = c(51.31, 51.52, 51.53), 'lon' = c(0.06, 0.11, 0.09)) 
FILE2 <- data.frame('lat' = c(52.20, 52.25, 52.21), 'lon' = c(0.12, 0.12, 0.12)) 

map1 <- leaflet(FILE1)%>% 
    addTiles()%>% 
    addMarkers(clusterOptions = markerClusterOptions()) 

map2 <- leaflet(FILE2)%>% 
    addTiles()%>% 
    addMarkers(clusterOptions = markerClusterOptions()) 

sync(map1,map2) 

我相信我在這裏的東西簡單，但希望有人能幫助我在看到這:)

2）理想我想一個單張地圖重疊另一個

我想區分他們通過使用不同的市場爲每個地圖。我曾試圖在互聯網上進行研究，並通過閱讀傳單的手冊，但沒有成功

任何指導非常感謝！

Answer 1

1）正在同步兩個地圖

安裝開發版本解決了這個對我來說

# Dependencies 
# If your devtools is not the latest version 
# then you might have to install "units" manually 
install.packages('units') 
install.packages('devtools') 
library(devtools) 

devtools::install_github("environmentalinformatics-marburg/mapview", ref = "develop") 

我使用的代碼：

library(leaflet) 
library(ggmap) 
library(mapview) 
library(raster) 
library(magrittr) 
UK <- ggmap::geocode("United Kingdom") 

#FILE1 <- read.csv("DATASET1.csv") 
#FILE2 <- read.csv("DATASET2.csv") 
FILE1 <- data.frame('lat' = c(51.31, 51.52, 51.53), 'lon' = c(0.06, 0.11, 0.09)) 
FILE2 <- data.frame('lat' = c(52.20, 52.25, 52.21), 'lon' = c(0.12, 0.12, 0.12)) 

map1 <- leaflet(FILE1)%>% 
    addTiles()%>% 
    addMarkers(clusterOptions = markerClusterOptions()) 

map2 <- leaflet(FILE2)%>% 
    addTiles()%>% 
    addMarkers(clusterOptions = markerClusterOptions()) 

mapview::latticeView(map1, map2, ncol = 2, sync = list(c(1, 2)), sync.cursor = FALSE, no.initial.sync = FALSE) 
# Or: 
sync(map1, map2) 

---

2）疊加兩個地圖

您可以使用兩個單獨的數據框作爲數據源，並分別將它們添加到同一個映射中。更改符號樣式以便能夠區分它們。

map3 <- leaflet(FILE2)%>% 
    addTiles() %>% 
    addCircleMarkers(data = FILE1) %>% 
    addCircleMarkers(data = FILE2, 
        color = '#0FF') 
map3 

如果你想要做的集羣標記類似的東西，有對here和here一些好的文檔。基於一些從這些帖子中，我創建了下面，我使用現有的預風格的建議不同類型的集羣來區分代碼：

FILE1 <- data.frame('lat' = rnorm(n = 1000, mean = 51.4, sd = 0.5), 
        'lon' = rnorm(n = 1000, mean = 0.8, sd = 0.5)) 
FILE2 <- data.frame('lat' = rnorm(n = 1000, mean = 53, sd = 0.5), 
        'lon' = rnorm(n = 1000, mean = -0.5, sd = 0.5)) 

map3 <- leaflet(rbind(FILE1, FILE2)) %>% 
    addTiles() %>% 
    addCircleMarkers(data = FILE1, 
    color = '#FA5', 
    opacity = 1, 
    clusterOptions = markerClusterOptions(iconCreateFunction = JS("function (cluster) {  
     var childCount = cluster.getChildCount(); 
     var c = ' marker-cluster-'; 
     if (childCount < 3) { 
     c += 'large'; 
     } else if (childCount < 5) { 
     c += 'large'; 
     } else { 
     c += 'large'; 
     }  
     return new L.DivIcon({ html: '<div><span>' + childCount + '</span></div>', 
     className: 'marker-cluster' + c, iconSize: new L.Point(40, 40) }); 

    }"))) %>% 
    addCircleMarkers(data = FILE2, 
    color = '#9D7', 
    opacity = 1, 
    clusterOptions = markerClusterOptions(iconCreateFunction = JS("function (cluster) {  
     var childCount = cluster.getChildCount(); 
     var c = ' marker-cluster-'; 
     if (childCount < 3) { 
     c += 'small'; 
     } else if (childCount < 5) { 
     c += 'small'; 
     } else { 
     c += 'small'; 
     }  
     return new L.DivIcon({ html: '<div><span>' + childCount + '</span></div>', 
     className: 'marker-cluster' + c, iconSize: new L.Point(40, 40) }); 

    }")))