小编Mar*_*ise的帖子

我用传单R-package制作了传单地图.

这就是结果:

我很高兴,但是当我将它嵌入网站并用我的笔记本电脑向下滚动文章时,我经常会不小心缩小地图,然后看起来像这样:

用户必须放大,看看地图的间隙部分,这真的让我烦恼.

有没有办法冻结地图的一部分,就像你可以像往常一样放大,但不能缩小比图像更像？我尝试在我的代码中设置View但你仍然可以缩小,所以我删除了那部分.

    mymap <- leaflet() %>% 

addProviderTiles("Esri.WorldGrayCanvas") %>%
addPolygons(data = dortmund, 
            fillColor = ~palette(student1$Anteil),  ## we want the polygon filled with 
            ## one of the palette-colors
            ## according to the value in student1$Anteil
            fillOpacity = 0.6,         ## how transparent do you want the polygon to be?
            color = "darkgrey",       ## color of borders between districts
            weight = 1.5,            ## width of borders
            popup = popup1,         ## which popup?
            group="<span style='color: #7f0000; font-size: 11pt'><strong>2000</strong></span>")%>%  
            ## which group?
            ## …

我用自定义图标作为标记构建了一个地图.你可以在我的jsfiddle中看到代码和结果:https://jsfiddle.net/marielouisejournocode/x24stb0m/

我试图改变"普通"​​传奇代码将图片放在那里,但我是js和传单的新手,并不能真正解决这个问题.

var legend = L.control({position: 'bottomright'});

legend.onAdd = function (map) {

var div = L.DomUtil.create('div', 'info legend'),
    grades = [1795, 1945, 1960, 1980, 2000],
    labels = [];

for (var i = 0; i < grades.length; i++) {
    div.innerHTML +=
        '<i style="background:' + getColor(grades[i] + 1) + '"></i> ' +
        grades[i] + (grades[i + 1] ? '&ndash;' + grades[i + 1] + '<br>' : '+');
 }

 return div;
 };

 legend.addTo(map);

我现在要做的是插入一个图例来解释这个例子中的图标:

我会使用photoshop来创建它,但是如何在地图传播时如何使用不会表现得奇怪的图像覆盖地图但是在传单中表现得像普通的传奇？

非常感谢,玛丽

我使用以下代码使用ggplot2扩展GGally创建了一个scattermatrix

  ggscatmat(dat2, columns = 2:6, color="car", alpha=0.8) +
  ggtitle("Korrelation") + 
  theme(axis.text.x = element_text(angle=-40, vjust=1, hjust=0, size=10))

现在我的问题是,在这种情况下,我并不需要密度线图或相关系数.我只想要矩阵中的散点图.有没有办法"删除"其他方面？我可以#T在文档中找到任何内容.

请原谅我的英文不好,谢谢你的建议或帮助!

编辑:我发现ggpairs还没有完美的解决方案:

ggpairs(dat2, columns = 2:6, mapping= aes(color=car), 
        upper = "blank",diag = "blank") +
  theme(axis.text.x = element_text(angle=-40, vjust=1, hjust=0, size=10))

但是现在已经没有传说了,看起来像情节的两个标签还没有完全加载: