Posse de carros em São Paulo

A posse de automóveis em São Paulo, grosso modo, é positivamente correlacionada com a renda familiar. O mapa abaixo mostra as zonas da cidade com maiores e menores taxas de automóveis (número de carros por domicílio). Bairros centrais como Pacaembu, Alto de Pinheiros, Morumbi e Jardim Europa têm as taxas mais elevadas. Bairros periféricos como Morro do Índio, Cocaia e Bororé têm as taxas mais baixas. Vale notar que o Centro Antigo da cidade (República, Santa Ifigênia, etc.) também têm bairros com taxas bastante baixas. Na maior parte da cidade, as Zonas têm entre 0,4 e 0,8 carros por domicílio.

Dados: Metrô (Pesquisa Origem e Destino, 2017)
Tipografia: Helvetica Neue
Paleta: PuBuGn (ColorBrewer)

--- title: "Carros em São Paulo" date: "2023-11-17" categories: ['data-visualization', 'mapas', 'sao-paulo', 'ggplot2', 'transporte'] description: "Um mapa coroplético que apresenta o número de carros por domicílios em São Paulo. Enquanto o Centro Antigo tem algumas das taxas mais baixas, bairros centrais como Pacembu e Jardim Europa tem as taxas mais elevadas." format: html: code-tools: true execute: echo: false warning: false message: false --- ```{r} library(ggplot2) library(showtext) library(sf) library(tidypod) library(patchwork) # Import POD data pod <- tidypod::import_pod_tables(geo = TRUE) pod <- dplyr::filter(pod, code_muni == 36) font_add("HelveticaNeue", "HelveticaNeue.ttc") showtext_auto() ``` ```{r} pmap <- ggplot(pod) + geom_sf(aes(fill = car_rate), color = "white", lwd = 0.15) + scale_fill_distiller( name = "", breaks = c(0.4, 0.6, 0.8, 1, 1.2, 1.4, 1.6), palette = "PuBuGn", direction = 1) + labs( title = "Posse de Automóveis em São Paulo", subtitle = "Número de automóveis por família em cada Zona OD.", caption = "Fonte: Metrô (Pesquisa Origem e Destino, 2017). @viniciusoike." ) + ggthemes::theme_map(base_family = "HelveticaNeue") + theme( legend.position = "top", legend.justification = 0.5, legend.key.size = unit(0.75, "cm"), legend.key.width = unit(1.75, "cm"), legend.text = element_text(size = 12), legend.margin = margin(), plot.margin = margin(10, 5, 5, 10), plot.title = element_text(size = 38, hjust = 0.5), plot.subtitle = element_text(size = 18, hjust = 0.5) ) phist <- ggplot(pod, aes(x = car_rate)) + geom_histogram(fill = "#67a9cf", color = "white", bins = 16) + geom_hline(yintercept = 0) + scale_x_continuous(breaks = seq(0, 1.6, 0.2)) + scale_y_continuous(expand = c(0, 0)) + labs( x = NULL, y = NULL ) + theme_minimal(base_family = "HelveticaNeue") + theme( plot.title = element_text(size = 8, hjust = 0), panel.background = element_rect(color = "gray30"), panel.grid = element_blank(), axis.text = element_text(size = 8), axis.text.x = element_text(angle = 90) ) map_carros <- pmap + inset_element(phist, left = 0.55, bottom = 0.05, right = 1, top = 0.4) ``` # Posse de carros em São Paulo A posse de automóveis em São Paulo, grosso modo, é positivamente correlacionada com a renda familiar. O mapa abaixo mostra as zonas da cidade com maiores e menores taxas de automóveis (número de carros por domicílio). Bairros centrais como Pacaembu, Alto de Pinheiros, Morumbi e Jardim Europa têm as taxas mais elevadas. Bairros periféricos como Morro do Índio, Cocaia e Bororé têm as taxas mais baixas. Vale notar que o Centro Antigo da cidade (República, Santa Ifigênia, etc.) também têm bairros com taxas bastante baixas. Na maior parte da cidade, as Zonas têm entre 0,4 e 0,8 carros por domicílio. ```{r} #| out-width: "100%" #| out-height: 900px #| fig-width: 9 #| fig-height: 12 #| fig-format: svg #| fig-showtext: true #| fig-dpi: 72 map_carros ``` - Dados: Metrô ([Pesquisa Origem e Destino, 2017](https://transparencia.metrosp.com.br/dataset/pesquisa-origem-e-destino)) - Tipografia: Helvetica Neue - Paleta: `PuBuGn` ([ColorBrewer](https://colorbrewer2.org/#type=sequential&scheme=PuBuGn&n=9))