Miguel, Quizás es demasiado tarde, o quizás el link que acompaño no pueda resolver lo que buscas, pero espero te pueda interesar.
https://github.com/greentheo/OpenStreetMapR/ Suerte, Daniel Merino El 16 de octubre de 2014, 4:44, Miguel Fiandor Gutiérrez < [email protected]> escribió: > 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 -> > > > head(data_)[[1]] > [[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 <[email protected]> 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 < >> [email protected]> 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]] >>> >>> _______________________________________________ >>> R-help-es mailing list >>> [email protected] >>> https://stat.ethz.ch/mailman/listinfo/r-help-es >>> >> >> >> >> -- >> Daniel >> > > -- Daniel [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
