9a.R

ggplot(df, aes(x=growth_rate_obitos, y=workplaces,size=pop,color=dens_demo)) +
    geom_point(shape=19) +
    geom_smooth() +
    scale_color_gradient(name = "Densidade\ndemográfica", low="blue", high="red",
                         labels = c('100 hab/km²',
                                    '200 hab/km²',
                                    '300 hab/km²',
                                    '400 hab/km²',
                                    '500 hab/km²')) +
    scale_size_continuous(name = "População", labels = c('1 milhão hab',
                                                         '10 milhões hab',
                                                         '20 milhões hab',
                                                         '30 milhões hab',
                                                         '40 milhões hab',
                                                         '50 milhões hab')) +
    xlab('Taxa de crescimento médio de número de óbitos por dia desde o primeiro caso confirmado') +
    ylab('Variação de mobilidade para ambiente\n de trabalho') +
    labs(caption = "Ribeiro-Dantas, MC. April, 2020. mribeirodantas.xyz/blog") +
    ggtitle("Taxa média de óbitos novos e deslocamento") +
    ggrepel::geom_label_repel(aes(label = df$estado), size=3)