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]]