Daniel, muchas gracias por contestar y tan rápido.
Pues puede ser la solución, he hecho el cambio y sigue sin pintarme los
puntos ->
data_ <- toJSONArray(data_, json = F)
map$geoJson(
# leafletR::toGeoJSON(data_,
# # lat.lon = c('Lat', 'Long'),
# dest=output_geofile),
data_,
onEachFeature = '#! function(feature, layer){
layer.bindPopup(feature.properties.popup)
} !#',
pointToLayer = "#! function(feature, latlng){
return L.circleMarker(latlng, {
radius: 6,
fillColor: feature.properties.fillColor ||
'blue',
color: '#333',
weight: 1,
fillOpacity: 0.8
})
} !#")
Un head(data_) ahora muestra esto ->
[[1]]$latitude
[1] 40.386
[[1]]$longitude
[1] -3.725
[[1]]$fillColor
[1] "#D251F3"
Seguiré investigando pero parece un buen camino! ;-)
El 15 de octubre de 2014, 22:00, daniel <daniel319 en gmail.com> escribió:
Miguel,
Alguna experiencia con rCharts tengo pero no tengo experiencia con el
ejemplo que estás haciendo. Creo el problema es que tienes que convertir
data_ en un JSON array. Mira la siguiente respuesta de Ramnathv:
https://github.com/ramnathv/rCharts/issues/114
donde usa
toJSONArray(data_, json = F)
Suerte,
Daniel Merino
El 15 de octubre de 2014, 16:18, Miguel Fiandor Gutiérrez <
miguel.fiandor.gutierrez en gmail.com> escribió:
Hola,
Ando un poco desesperado con los mapas interactivos de Rcharts
<https://github.com/ramnathv/rCharts>+Leaflet.
Estoy intentando pintar en un mapa las cámaras de tráfico de madrid, y
las
estaciones de calidad del aire, simplemente donde están, es decir, aun no
estoy recogiendo los datos de medida.
Proyecto -> https://github.com/ADIRSE/maddata
He conseguido pintar ambos, con markers, la gota invertida tÃpica de
google
maps. Pero esta solo viene en un color, asà que le quiero meter 'circles'
en vez de 'markers', y pintarlos después de colores en funcion del
tráfico
y calidad de aire que estén midiendo.
Los cÃrculos es lo que me trae de cabeza. Os dejo enlaces donde hay
código
y ejemplos del autor de la librerÃa, y el código de mi proyecto en
github,
por si hay algún experto en el tema.
Pero aún asÃ, adelanto que la chicha ocurre en esta función =>
map$geoJson(
leafletR::toGeoJSON(data_,
dest=output_geofile),
onEachFeature = '#! function(feature, layer){
layer.bindPopup(feature.properties.popup)
} !#',
pointToLayer = "#! function(feature, latlng){
return L.circleMarker(latlng, {
radius: 6,
fillColor: feature.properties.fillColor ||
'blue',
color: '#333',
weight: 1,
fillOpacity: 0.8
})
} !#")
donde mi variable data_, es la que contiene las coordenadas y una columna
con el supuesto color para el cÃrculo:
head(data_) latitude longitude fillColor
1 40.386 -3.725 #FFFFBF
2 40.393 -3.715 #FFFFBF
3 40.408 -3.730 #FFFFBF
4 40.471 -3.711 #FFFFBF
5 40.471 -3.712 #FFFFBF
6 40.439 -3.673 #FFFFBF
He intentado comparar mi variable data_ con el del proyecto de bicis
<https://github.com/ramnathv/bikeshare/> (muy bueno), pero el autor para
generar su data_ hace unas cuantas operaciones en las que me pierdo. AsÃ
que yo le paso un mero data.frame, como en teorÃa dice la documentación
que
haga.
En fin, toda ayuda es muy bien recibida :-)
Aquà una muestra en shinyapps <https://adirse.shinyapps.io/maddata/>
[[alternative HTML version deleted]]