Карта генерации неисправностей, содержащаяся в объекте Plotly - PullRequest
Новая
       23

Карта генерации неисправностей, содержащаяся в объекте Plotly

0 голосов
/ 20 апреля 2019

Я новичок в заговоре и рассмотрении ряда образцов панелей, представленных на сайте, демонстрирующих функциональность. В частности, при запуске следующего сценария, который должен генерировать карту США при рисовании соединения между широтными / продольными координатами, я получаю следующее предупреждение с использованием RStudio:

Предупреждающее сообщение: Указание ширины / высоты в layout () теперь не рекомендуется. Пожалуйста, укажите в ggplotly () или plot_ly ()

Кроме того, на вкладке средства просмотра ничего не видно. Я пробовал другие подобные сценарии с сюжетом, которые включают карты, и это постоянная проблема для меня Не уверен, что мне нужен другой пакет, но я следую тому, что предоставлено. Любая помощь будет оценена!

Попробовал запустить следующий скрипт 

library(plotly)
trace1 <- list(
  hoverinfo = "all", 
  lat = c(39.49857611, 35.40518365526316, 26.53616667), 
  line = list(
    color = "rgb(23, 190, 207)", 
    dash = "dot", 
    width = 3
  ), 
  lon = c(-119.76806470000001, -107.76399163789475, -81.75516667), 
  marker = list(
    autocolorscale = FALSE, 
    color = c("green", "blue", "red"), 
    line = list(
      color = "rgb(0, 0, 0)", 
      width = 2
    ), 
    opacity = 1, 
    reversescale = TRUE, 
    size = c(5, 8.2, 5), 
    sizemode = "diameter", 
    sizeref = 1, 
    symbol = "y-up"
  ), 
  mode = "lines+markers+text", 
  name = "Plane", 
  opacity = 0.8, 
  stream = list(
    maxpoints = 500, 
    token = "your_stream_token_here"
  ), 
  text = c("Reno/Tahoe International", "6,2016-10-01 20:16:38.050736", "Southwest Florida International"), 
  textposition = "top right", 
  type = "scattergeo", 
  uid = "f8f4d9"
)
data <- list(trace1)
layout <- list(
  autosize = TRUE, 
  geo = list(
    countrycolor = "rgb(217, 217, 217)", 
    countrywidth = 0.5, 
    landcolor = "rgb(250, 250, 250)", 
    projection = list(type = "albers usa"), 
    scope = "usa", 
    showland = TRUE, 
    subunitcolor = "rgb(217, 217, 217)", 
    subunitwidth = 0.5
  ), 
  height = 523, 
  margin = list(
    r = 20, 
    t = 20, 
    b = 20, 
    l = 20
  ), 
  title = "", 
  width = 969
)
p <- plot_ly()
p <- add_trace(p, hoverinfo=trace1$hoverinfo, lat=trace1$lat, line=trace1$line, lon=trace1$lon, marker=trace1$marker, mode=trace1$mode, name=trace1$name, opacity=trace1$opacity, stream=trace1$stream, text=trace1$text, textposition=trace1$textposition, type=trace1$type, uid=trace1$uid)
p <- layout(p, autosize=layout$autosize, geo=layout$geo, height=layout$height, margin=layout$margin, title=layout$title, width=layout$width)
p

Визуальная карта США, нижняя 48, со связью между указанными точками.

См. Следующую ссылку:

https://plot.ly/dashboard/jackp:16819/view

Кроме того, я не могу запустить ни один из этих ярлыков, которые прокомментированы на кодовой странице и получили это уведомление:

Предупреждающее сообщение: get_figure устарела. Вместо этого используйте «api_download_plot». Смотрите справку («устарело») 

get_figure("streaming-demos", 121)
<- get_figure("streaming-demos", 121)$data
p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="geo-streaming2", fileopt="extend"))
...