[R-es] RCharts+Leaflet+Shiny

[daniel]

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