我想在传单中将总部位置绘制为将总部位置与其分支连接起来的圆和线。 数据的结构与图上的飞行路线示例完全相同(请参见示例:

https://plot.ly/r/lines-on-maps/ )。

我需要一张交互式地图来显示堪萨斯州,内布拉斯加州的部分地区,科罗拉多州的部分地区和密苏里州的部分地区(河流,街道,城镇等)的地理环境。 因此,我认为Leaflet可能比完成该任务要好。

我目前打算这样做的是: 在此处输入图片说明

这是我的绘图地图代码:

library(plotly)
library(dplyr)


# HQ locations
HQ <- read.csv('HQ.csv', stringsAsFactors=FALSE, fileEncoding="UTF-8-BOM")
j <- c(17:18)
HQ[ , j] <- apply(HQ[ , j], 2,            # Specify own function within apply
                       function(x) as.numeric(as.character(x)))

# Storage Locations from HQ
Storage <- read.csv('Storage.csv', stringsAsFactors=FALSE, fileEncoding="UTF-8-BOM")

#COLUMN NUMBER

Storage$id <- seq_len(nrow(Storage))
i <- c(16:18)
Storage[ , i] <- apply(Storage[ , i], 2,            # Specify own function within apply
                       function(x) as.numeric(as.character(x)))

colnames(HQ)

# map projection
geo <- list(
  scope = 'usa',
  projection = list(
    type = 'albers usa'),
  showland = TRUE,
  landcolor = toRGB("lightgray"),
  showlaKes = T,
  lakecolor = toRGB('white'),
  lonaxis = list(range = c(-108, -95)),
  lataxis = list(range = c(37, 42)))


p <- plot_geo(locationmode = 'USA-states', color = I("purple")) %>%
  add_markers(
    data = HQ, x = ~Lng_HQ, y = ~Lat_HQ, text = ~paste('</br><b> Co-op Name:</b> ',

                                                       Cooperative,
                                                        '</br><b> Co-op HQ Location:</b> ', Headquarter,
                                                        '</br><b> Grain Capacity (bu):</b> ', Grain.Capacity..in.bushels.,
                                                        '</br><b> Grain Storage Locations:</b> ', CNGL
                                                        ),
    size = ~CNGL, hoverinfo = "text", alpha = 0.5
  ) %>%
  add_segments(
    data = group_by(Storage, id),
    x = ~Lng_HQ, xend = ~Lng,
    y = ~Lat_HQ, yend = ~Lat,
    alpha = 0.3, size = I(1), hoverinfo = "text", text =~paste('</br><b> Co-op Name:</b> ',

                                                               Cooperative,
                                                               '</br><b> Co-op Branch Location:</b>', Storage$Branch,
                                                               '</br><b> Grain Capacity (bu):</b> ', Storage$Grain.Capacity..in.bushels.)) %>%
  layout(
    title = ' <b>Map of All Cooperatives with Grain Locations</b><br>(Hover for Cooperative & Grain Storage Details)',
    geo = geo, showlegend = F, autosize = F, height=1000, width=1000, margin = m 
  )

p

  ask by gm007 translate from so

本文未有回复,本站智能推荐:

1回复

传单R中的空白弹出窗口

我正在尝试在地图上绘制旧金山的罪行。 以下代码旨在映射每种犯罪(经纬度),单击标记时,将显示数据集的“类别”列。 现在,当我单击标记时,下面的代码显示一个空白文本框。 有人可以帮忙吗?
2回复

传单未在动态生成的Rmarkdownhtmlknitr中呈现

我创建了一个 R 降价报告,其中部分和标签集是动态创建的。 我有一个问题,即输出中没有生成 Leaflet 地图,而是一个空白区域。 然而,它们确实在 R studio 中渲染。 这是一张图像,显示了当前输出的外观以及它应该是什么样的。 这是我试过的代码: 我认为它与 html 渲染有关,因为我使用
1回复

在“闪亮”中为传单选择输入

我正在尝试使用发亮的传单构建地图,但是我的代码并未根据所选输入更改传单地图。 有谁知道如何使下面的代码对选择输入做出反应? 我尝试使用get函数来执行此操作,但无法成功。 任何帮助将非常感激! 这是我的数据: 这是我的代码: 任何帮助是极大的赞赏!
2回复

如何在传单中的两个标记之间添加路线(折线)

我希望在这两点之间添加折线。 我怎样才能做到这一点? 数据示例。
1回复

按下R中的传单弹出窗口时如何创建事件?

当我点击Leaflet多边形时,我想让tabPanel在Shiny中更改。 我有几个关于如何做到这一点的想法,但我找不到实现它们所需的信息。 我在tabPanel中有传单,但是我想在单击多边形时切换到另一个选项卡。 我想过制作popup=updateTabsetPanel(session
1回复

动态改变RShiny中的传单地图中心

我正在创建一个R Shiny应用程序,用户将在其中输入他们的城市,州和邮政编码,按下按钮,然后他们的位置(Lat,Lon)将成为地图的新中心。 输入通过server.R中的此部分代码收集: 我可以使用以下方法在UI中轻松查看新的纬度/经度值: 但我需要能够将这些值“返回(c(lat1,
1回复

将数据与SpatialPolygonsDataFrame对象列表进行匹配,以在传单中运行等值区域映射

我正在教自己如何在R中使用映射工具,在这种情况下,我希望根据下面mydata数据框的结果在各自的区域级别设置各个国家的等值线图。 请注意,我实际上是在30个国家/地区运行此功能。 我只是为了重现目的而限制在2个国家。 另请注意, getData函数将从GADM.org网站下载。 我现
1回复

如何将R中的传单地图输出为可以使用Leaflet命令进行编辑的格式?

我在使用R进行数据处理和使用GIS软件制作地图方面有一些经验,所以我只是尝试使用Leaflet for R软件包制作我的第一张Leaflet地图。 在本教程的基础上,我已经能够做到这一点,但是我想对最终地图进行一些调整,这些调整似乎可以使用“常规Leaflet”来实现,但不能使用R包(使用图块