2015-09-11 3 views
1

У меня есть набор данных из 4 строк и несколько столбцов, которые являются страной, местоположением, хитами, лат, лон. Возпроизводимо является:R- как вставить несколько столбцов одной и той же переменной в всплывающее окно (листовки)

structure(list(country = c("France", "France", "France", "France") 
, location("Ile-de-France, Paris", "Ile-de-France, Villebon-sur-yvette", "Nord-Pas-de-Calais, Hérin", "Nord-Pas-de-Calais, Lille") 
, Hits(1, 1, 3, 5) 
, lat = c(46.227638, 46.227638, 46.227638, 46.227638) 
, Ion = c(-2.213749, 2.213749, 2.213749, 2.213749) 
) 
, .Names = c("country", "location", "Hits", "lat", "Ion") 
, class = "data.frame") 

Я хочу использовать это в всплывающее окно и показать все местоположение и хиты, как 4 раздельных линий.

текущий код, я использую это:

m <- leaflet() %>% 
    addTiles() %>% # Add default OpenStreetMap map tiles 
    addCircles(lng=area$longitude, lat=area$latitude, popup=paste("Country:", area$Country, "<br>" 
                  , "Location:", area$Location, "-", area$Hits, "<br>")) 

Если у вас вопросы, не стесняйтесь спрашивать.

enter image description here

+0

Какая у вас конкретная проблема? какой у Вас вопрос? – pcantalupo

+0

вывод выглядит следующим образом на веб-ссылке. https://fsaiyed.files.wordpress.com/2015/06/capture1.png Я хочу иметь 4 места с их хитом вместо того, чтобы повторяться –

+0

Если у вас достаточно репутации, отправьте изображение в вашем вопросе. Веб-ссылки имеют тенденцию исчезать. – pcantalupo

ответ

2

Были некоторые ошибки в вашем примере. Попробуйте

library(leaflet) 
area <- data.frame(country = c("France", "France", "France", "France") 
      , location= c("Ile-de-France, Paris", "Ile-de-France, Villebon-sur-yvette", "Nord-Pas-de-Calais, Hérin", "Nord-Pas-de-Calais, Lille") 
      , Hits= c(1, 1, 3, 5) 
      , lat = c(46.234638, 46.456638, 46.288638, 46.900638) 
      , lon = c(2.313749, 2.413749, 2.513749, 2.613749) 
) 


m <- leaflet() %>% 
addTiles() %>% # Add default OpenStreetMap map tiles 
addCircles(lng=area$lon, lat=area$lat, 
popup=paste("Country:", area$country, "<br>", "Location:", area$location, "-", area$Hits, "<br>")) 

Основную проблему с вашим примером является в предоставленных координатах. Вы назначили те же координаты для четырех точек. Это приводит к отображению только последней точки.

Смежные вопросы