Как создать интерактивную карту с сюжетом в р? - PullRequest
Новая
       6

Как создать интерактивную карту с сюжетом в р?

0 голосов
/ 27 февраля 2020

Я пытаюсь создать интерактивную карту в R, используя плотно. Карта должна показывать уровень самоубийств в разных странах и, когда вы наведете на них мышь, она должна показать несколько данных, которые поступают из моей базы данных. Код, который я использую, ниже. Моя проблема в том, что, когда я запускаю его, данные, которые должны отображаться при наведении мыши на страны, не отображаются. В чем моя ошибка? Я скопировал код из этой сети: https://plot.ly/r/choropleth-maps/#world -choropleth-map , поскольку я никогда не создавал карту, но из-за этого я не понимаю большую часть кода, как должен. 

df$hover <- with(df, paste(df$Country, '<br>', "Tasa de suicidios", df$Tasa.de.suicidios, '<br>', "Media de la OCDE", df$Media.de.la.OCDE, "<br>",
                               "Nivelde educación", df$Nivel.de.educacion, '<br>', "Competencias de los estudiantes", df$Competencias.de.los.estudiantes, '<br>',
                                "Seguridad en el empleo", df$Seguridad.en.el.empleo))
    # give state boundaries a white border
    l <- list(color = toRGB("grey"), width = 1)
    # specify some map projection/options
    g <- list(
      scope = 'world',
      projection = list(type = 'Peters'),
      showlakes = TRUE,
      lakecolor = toRGB('white'),
      showcoastlines = TRUE
    )

    fig <- plot_geo(df)
    fig <- fig %>% add_trace(
      z = ~df$Tasa.de.suicidios, color = ~df$Tasa.de.suicidios, colors = 'Reds',
      locations = ~df$Code,
      text = ~Country, marker = list(line = l)
    )
    fig <- fig %>% colorbar(title = "Tasa de suicidios por cada 100k personas")
    fig <- fig %>% layout(
      title = 'Tasa de suicidios en los países de la OCDE',
      geo = g
    )

    fig
...