标签: r-leaflet

我对分组标记和以小饼图形式按组呈现计数的解决方案着迷/sf/answers/4236759621/ 我只是 R，不懂 JS。我希望代码对每个数据点的值求和而不是计数（每个单独的数据点可能已经代表一个计数）。我想根据值控制更多气泡的大小。你能帮助我并展示如何更改 js 代码，以便它对数据点的值进行求和，以及如何增加/控制气泡的大小？

这里有一个所需的解决方案，对非饼图标记进行求和而不是计数：How to display the value (sum)rather than count of labels in a dc.leaflet.js 这里 有一个解决方案，它还可以控制气泡的大小：带有总和（不是计数）的聚类传单标记：如何获得一致的圆形红色形状和标签格式，就像非聚类标记一样

原始代码来自/sf/users/189819871/ @DanielBonnery

library(leaflet)
library(dplyr)
#Creates data
data("breweries91",package="leaflet")
#set.seed(1);
breweries91$goodbear<-sample(as.factor(c("terrific","marvelous","culparterretaping")),nrow(breweries91),replace=T)
#Colors
joliepalette<-c("red","green","blue")[1:nlevels(breweries91$goodbear)]
getColor <- function(breweries91) {joliepalette[breweries91$goodbear]}

icons <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'black',
  library = 'ion',
  markerColor = getColor(breweries91)
)

#Generate the javascript

jsscript3<-
  paste0(
"function(cluster) {
const groups= [",paste("'",levels(breweries91$goodbear),"'",sep="",collapse=","),"];
const colors= {
groups: [",paste("'",joliepalette,"'",sep="",collapse=","),"],
center:'#ddd',
text:'black'
};
const markers= cluster.getAllChildMarkers();

const proportions= groups.map(group …

我创建了一篇四开版博客文章，其中包含许多leaflet在 R 中生成的地图。由于每个地图的数据都嵌入在 html 文件中，因此文件本身非常大。这会导致托管该文件的服务器出现问题。

我想让html文件变小。embed-resources: false Quarto 中的YAML 选项意味着库（例如leaflet.js）存储在单独的文件中。有帮助，但数据仍然存储在 html 中（每个地图一次）。我正在尝试从单独的文件加载数据本身。这是一个最小的文件示例qmd：

---
format:
  html:
    embed-resources: false  
---

```{r}
leaflet::leaflet(elementId = "map1") |>
    leaflet::addTiles() |>
    leaflet::addMarkers(lng = 174.768, lat = -36.852, popup = "The birthplace of R")
```

当我quarto render这样做时，它会创建一个 html 文件，该文件在浏览器中打开时显示地图。该文件包含以下地图数据<div>：

<div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="map1" style="width:100%;height:464px;"></div>
<script type="application/json" data-for="map1">{**json**}</script>
</div>

我写的地方{**json**}有一长串 json，其中包含地图坐标、CRS 和各种选项。

在我看来，我也许可以将 json 内容复制到文件中，然后更改标签<script>以从该文件加载数据：

---
format:
  html: …

我有 R 代码，它创建了一个传单地图，其中的点由addPolylines().

library(shiny)
library(leaflet)

station = c("A", "B", "C", "D", "E", "F")
latitude = c(-1.63, -1.62, -1.62, -1.77, -1.85, -1.85)
longitude = c(34.3, 34.4, 34.7, 34.3, 34.5, 34.7)
big = c(0, 20, 60, 90, 50, 10)
small = c(100, 80, 40, 10, 50, 90)
colour = c("blue", "blue", "red", "red", "black", "black")
group = c("A", "A", "B", "B", "C", "C")

df = cbind.data.frame(station, latitude, longitude, big, small, colour, group)

colnames(df) = c("station", "latitude", "longitude", "big", "small", "colour", …

这是用 blogdown 创建的博客文章

R 代码块以

```{r, echo = FALSE, message = FALSE, warning = FALSE}

但是，每次我使用读取 shapefile 时都会出现三条消息 sf::st_read

如何防止这些消息出现在帖子中？

其答案是否是在本页面大约knitr选择？

这是一个简单的闪亮应用程序：

library(shiny)
library(leaflet)
nc = sf::st_read(system.file("shape/nc.shp", package="sf"))

ui <- function(request){
  tagList(
    selectInput("color", "color", c("blue", "red", "green")),
    leafletOutput("map")
  )
}

server <- function(
  input, 
  output, 
  session
){

  output$map <- renderLeaflet({
    leaflet(nc) %>%
      addPolygons(color = input$color)
  })
}

shinyApp(ui, server)

我想在每个多边形上的单击时绑定一个事件，但我希望它仅从客户端发生，我不希望它通过 R。例如，我想在用户单击时发送警报在多边形上。

我有一些黑客代码可以做到这一点，但我希望有一种干净的方法来做到这一点。我正在寻找一种从 R 定义看起来像的东西的方法addPolygon(onClick = "alert('hello there')")。

需要明确的是，我不希望这通过服务器，我希望一切都在浏览器中发生。

它适用于以下 JS 代码（在 ext/script.js 中）

$(document).ready(function() {
    Shiny.addCustomMessageHandler('bindleaflet', function(arg) {
        $("#" + arg).find("path").remove();
        wait_for_path(arg);
    })
});

var wait_for_path = function(id) {
    if ($("#" + id).find("path").length !== 0) {
        $("#" …

{leaflet.extras2}实现传单并排插件并提供这个最小的示例：

library(leaflet)
library(leaflet.extras2)

leaflet(quakes) %>%
  addMapPane("left", zIndex = 0) %>%
  addMapPane("right", zIndex = 0) %>%
  addTiles(group = "base", layerId = "baseid",
           options = pathOptions(pane = "right")) %>%
  addProviderTiles(providers$CartoDB.DarkMatter, group="carto", layerId = "cartoid",
                   options = pathOptions(pane = "left")) %>%
  addCircleMarkers(data = breweries91[1:15,], color = "blue", group = "blue",
                   options = pathOptions(pane = "left")) %>%
  addCircleMarkers(data = breweries91[15:20,], color = "yellow", group = "yellow") %>%
  addCircleMarkers(data = breweries91[15:30,], color = "red", group = "red",
                   options = pathOptions(pane = "right")) …

几天来，基本图层图块“OSM”和“Stamen.TonerLite”（我已经使用了一年多作为我的地图的标准图块）没有正确显示 - 即不再可能在它们之间切换.

只要地图在 RStudio 和 RStudio Viewer 中显示，一切都可以完美运行。但是，一旦我在浏览器中打开 .Rmd 输出的相应 .html 文件（我尝试了 chrome、internet explorer、edge 和 firefox），就不可能在磁贴之间切换了。要么显示“OSM”，我不能切换到“Stamen.TonerLite”，反之亦然。
我尝试了不同的图层瓷砖或超过 2 层瓷砖，但结果相同。即使我切换到其他图层，也始终只有一层图块可见。

我的案例的可重现示例：

---
title: "stackoverflow"
author: " "
date: " "
output: html_document
---

```{r, echo = T}
library(leaflet)

m <- leaflet() %>%
     addTiles(group = "OSM") %>%
     addProviderTiles("Stamen.TonerLite") %>%
     addLayersControl(baseGroups = c("OSM", "Stamen.TonerLite")) %>%
     addCircleMarkers(lat = 47.4,
                      lng = 9.37,
                      radius = 10,
                      fillOpacity = 1.0)
m
```