# R Notebook

## Práctico 4

Trabajaremos con datos geográficos, iniciemos cargando las librerías:

## Ejercicio 1

Carguemos la base con datos georeferenciados de los polígonos de CABA (https://bitsandbricks.github.io/data/CABA_rc.geojson) y hagamos un plot de tales datos.

    CABA_mapa <- read_sf("https://bitsandbricks.github.io/data/CABA_rc.geojson")

    ggplot(CABA_mapa) +
      geom_sf()

## Ejercicio 2

¿Cómo mostrarían la relación entre hogares con NBI/hogares totales en un mapa?

## Ejercicio 3

Carguemos la base de datos `espacios-culturales.geojson` con información sobre los barrios de la Ciudad de Buenos Aires. Luego realicemos un plot agregando información sobre la localización de bares sobre el mapa como capa.

    espacios_culturales

    Simple feature collection with 2968 features and 29 fields (with 21 geometries empty)
    Geometry type: POINT
    Dimension:     XY
    Bounding box:  xmin: -58.52988 ymin: -34.68838 xmax: -58.34907 ymax: -34.53574
    Geodetic CRS:  WGS 84

Ahora, grafiquen la misma información pero utilizando de base un mapa de Stamen Maps.

    ggmap(mapa_CABA_) +
      geom_sf(data = bares, inherit.aes = FALSE) +
      labs(title = "Bares", subtitle = "Ciudad Autónoma de Buenos Aires") +
      theme_void()

    Coordinate system already present. Adding new coordinate system, which will replace the existing one.

## Ejercicio 4

Al mapa previo de bares:

- Agregale otro tipo de espacio cultural que quieras (librería, biblioteca, espacio escénico, etc.)
- Sumale más formato e información. Jugá e investigá parámetros para enriquecer la visualización.

    #bares y centros culturales
    ggmap(mapa_CABA_)+
      geom_sf(data = bares, aes(color = SUBCATEGORIA), inherit.aes = FALSE) +
      geom_sf(data = ccul_caba, color = "black", inherit.aes = FALSE) +
      labs(title = "Bares y centros culturales CABA") +
      theme_void()

    Coordinate system already present. Adding new coordinate system, which will replace the existing one.

    ggmap(mapa_CABA_) +
      geom_sf(data = espacios, inherit.aes = F, aes(color = FUNCION_PRINCIPAL))+
      scale_color_viridis_d()+
      theme_void()

    Coordinate system already present. Adding new coordinate system, which will replace the existing one.

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyMgUHLDoWN0aWNvIDQKClRyYWJhamFyZW1vcyBjb24gZGF0b3MgZ2VvZ3LDoWZpY29zLCBpbmljaWVtb3MgY2FyZ2FuZG8gbGFzIGxpYnJlcsOtYXM6CgpgYGB7cn0KbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHNmKQpgYGAKCiMjIEVqZXJjaWNpbyAxCgpDYXJndWVtb3MgbGEgYmFzZSBjb24gZGF0b3MgZ2VvcmVmZXJlbmNpYWRvcyBkZSBsb3MgcG9sw61nb25vcyBkZSBDQUJBICg8aHR0cHM6Ly9iaXRzYW5kYnJpY2tzLmdpdGh1Yi5pby9kYXRhL0NBQkFfcmMuZ2VvanNvbj4pIHkgaGFnYW1vcyB1biBwbG90IGRlIHRhbGVzIGRhdG9zLgoKYGBge3J9CkNBQkFfbWFwYSA8LSByZWFkX3NmKCJodHRwczovL2JpdHNhbmRicmlja3MuZ2l0aHViLmlvL2RhdGEvQ0FCQV9yYy5nZW9qc29uIikKCmdncGxvdChDQUJBX21hcGEpICsgCiAgZ2VvbV9zZigpCmBgYAoKIyMgRWplcmNpY2lvIDIKCsK/Q8OzbW8gbW9zdHJhcsOtYW4gbGEgcmVsYWNpw7NuIGVudHJlIGhvZ2FyZXMgY29uIE5CSS9ob2dhcmVzIHRvdGFsZXMgZW4gdW4gbWFwYT8KCmBgYHtyfQpnZ3Bsb3QoQ0FCQV9tYXBhKSArCiAgZ2VvbV9zZihhZXMoZmlsbCA9IEhPR0FSRVNfTkJJL0hPR0FSRVMpLCBjb2xvciA9IE5BKSArCiAgc2NhbGVfZmlsbF92aXJpZGlzX2MoKSArCiAgbGFicyh0aXRsZSA9ICJDaXVkYWQgQXV0w7Nub21hIGRlIEJ1ZW5vcyBBaXJlcyIsCiAgc3VidGl0bGUgPSAiSG9nYXJlcyBjb24gTkJJIiwKICBmaWxsID0gIkhvZ2FyZXMgY29uIE5CSSBzb2JyZSB0b3RhbCBkZSBob2dhcmVzIikgCmBgYAoKIyMgRWplcmNpY2lvIDMKCkNhcmd1ZW1vcyBsYSBiYXNlIGRlIGRhdG9zIGBlc3BhY2lvcy1jdWx0dXJhbGVzLmdlb2pzb25gIGNvbiBpbmZvcm1hY2nDs24gc29icmUgbG9zIGJhcnJpb3MgZGUgbGEgQ2l1ZGFkIGRlIEJ1ZW5vcyBBaXJlcy4gTHVlZ28gcmVhbGljZW1vcyB1biBwbG90IGFncmVnYW5kbyBpbmZvcm1hY2nDs24gc29icmUgbGEgbG9jYWxpemFjacOzbiBkZSBiYXJlcyBzb2JyZSBlbCBtYXBhIGNvbW8gY2FwYS4KCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKCmVzcGFjaW9zX2N1bHR1cmFsZXMgPC0gcmVhZF9zZignLi9kYXRhL2VzcGFjaW9zLWN1bHR1cmFsZXMuZ2VvanNvbicpIAoKYmFyZXMgPC0gZmlsdGVyKGVzcGFjaW9zX2N1bHR1cmFsZXMsIEZVTkNJT05fUFJJTkNJUEFMID09ICJCQVIiKQoKZ2dwbG90KCkgKyAKICBnZW9tX3NmKGRhdGEgPSBDQUJBX21hcGEpICsgCiAgZ2VvbV9zZihkYXRhID0gYmFyZXMpIApgYGAKCkFob3JhLCBncmFmaXF1ZW4gbGEgbWlzbWEgaW5mb3JtYWNpw7NuIHBlcm8gdXRpbGl6YW5kbyBkZSBiYXNlIHVuIG1hcGEgZGUgU3RhbWVuIE1hcHMuIAoKYGBge3J9CmxpYnJhcnkoZ2dtYXApIAoKYmJveCA8LSBzdF9iYm94KENBQkFfbWFwYSkgCm5hbWVzKGJib3gpIDwtIGMoImxlZnQiLCAiYm90dG9tIiwgInJpZ2h0IiwgInRvcCIpCgptYXBhX0NBQkEgPC0gZ2V0X3N0YW1lbm1hcChiYm94LCB6b29tID0gMTIpIApnZ21hcChtYXBhX0NBQkEpIAoKbWFwYV9DQUJBXyA8LSBnZXRfc3RhbWVubWFwKGJib3gsIG1hcHR5cGUgPSAidG9uZXItbGl0ZSIsIHpvb20gPSAxMikgCgpnZ21hcChtYXBhX0NBQkFfKSAKCmdnbWFwKG1hcGFfQ0FCQV8pICsgCiAgZ2VvbV9zZihkYXRhID0gYmFyZXMsIGluaGVyaXQuYWVzID0gRkFMU0UpICsgCiAgbGFicyh0aXRsZSA9ICJCYXJlcyIsIHN1YnRpdGxlID0gIkNpdWRhZCBBdXTDs25vbWEgZGUgQnVlbm9zIEFpcmVzIikgKyAKICB0aGVtZV92b2lkKCkgCmBgYAoKCiMjIEVqZXJjaWNpbyA0CgpBbCBtYXBhIHByZXZpbyBkZSBiYXJlczoKCi0gICBBZ3JlZ2FsZSBvdHJvIHRpcG8gZGUgZXNwYWNpbyBjdWx0dXJhbCBxdWUgcXVpZXJhcyAobGlicmVyw61hLCBiaWJsaW90ZWNhLCBlc3BhY2lvIGVzY8OpbmljbywgZXRjLikKLSAgIFN1bWFsZSBtw6FzIGZvcm1hdG8gZSBpbmZvcm1hY2nDs24uIEp1Z8OhIGUgaW52ZXN0aWfDoSBwYXLDoW1ldHJvcyBwYXJhIGVucmlxdWVjZXIgbGEgdmlzdWFsaXphY2nDs24uCgpgYGB7cn0KIyBWZXJzacOzbiAxOgpjY3VsX2NhYmEgPC0gZXNwYWNpb3NfY3VsdHVyYWxlcyAlPiUgZmlsdGVyKEZVTkNJT05fUFJJTkNJUEFMID09ICJDRU5UUk8gQ1VMVFVSQUwiKSAKCiNiYXJlcyB5IGNlbnRyb3MgY3VsdHVyYWxlcwpnZ21hcChtYXBhX0NBQkFfKSsKICBnZW9tX3NmKGRhdGEgPSBiYXJlcywgYWVzKGNvbG9yID0gU1VCQ0FURUdPUklBKSwgaW5oZXJpdC5hZXMgPSBGQUxTRSkgKwogIGdlb21fc2YoZGF0YSA9IGNjdWxfY2FiYSwgY29sb3IgPSAiYmxhY2siLCBpbmhlcml0LmFlcyA9IEZBTFNFKSArCiAgbGFicyh0aXRsZSA9ICJCYXJlcyB5IGNlbnRyb3MgY3VsdHVyYWxlcyBDQUJBIikgKwogIHRoZW1lX3ZvaWQoKSAKYGBgCgpgYGB7cn0KI1ZlcnNpw7NuIDIKCmVzcGFjaW9zIDwtIGZpbHRlcihlc3BhY2lvc19jdWx0dXJhbGVzLCBGVU5DSU9OX1BSSU5DSVBBTCA9PSAiQkFSIiB8IEZVTkNJT05fUFJJTkNJUEFMID09ICJCSUJMSU9URUNBIikgCgpnZ21hcChtYXBhX0NBQkFfKSArIAogIGdlb21fc2YoZGF0YSA9IGVzcGFjaW9zLCBpbmhlcml0LmFlcyA9IEYsIGFlcyhjb2xvciA9IEZVTkNJT05fUFJJTkNJUEFMKSkrIAogIHNjYWxlX2NvbG9yX3ZpcmlkaXNfZCgpKyAKICB0aGVtZV92b2lkKCkgCmBgYAoK