[R-es] RCharts+Leaflet+Shiny

[Miguel Fiandor Gutiérrez]

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