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 <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]] >> >> _______________________________________________ >> R-help-es mailing list >> R-help-es en r-project.org >> https://stat.ethz.ch/mailman/listinfo/r-help-es >> > > > > -- > Daniel >[[alternative HTML version deleted]]
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 < miguel.fiandor.gutierrez en gmail.com> 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 <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]] >>> >>> _______________________________________________ >>> R-help-es mailing list >>> R-help-es en r-project.org >>> https://stat.ethz.ch/mailman/listinfo/r-help-es >>> >> >> >> >> -- >> Daniel >> > >-- Daniel [[alternative HTML version deleted]]
Hola Daniel, Muchas gracias, sólo he podido abrir el github, pero parece que resuelve mi problema :-) Este fin de semana lo pruebo, y os compartiré el resultado. Gracias de nuevo. Miguel El 23 de octubre de 2014, 21:28, daniel <daniel319 en gmail.com> escribió:> 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 < > miguel.fiandor.gutierrez en gmail.com> 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 <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]] >>>> >>>> _______________________________________________ >>>> R-help-es mailing list >>>> R-help-es en r-project.org >>>> https://stat.ethz.ch/mailman/listinfo/r-help-es >>>> >>> >>> >>> >>> -- >>> Daniel >>> >> >> > > > -- > Daniel >[[alternative HTML version deleted]]