)  g <- g + geom_point(aes(color = Region), size = 0, pch = 0, stroke = 0.0)  g <- g + theme_economist_white()  g <- g + scale_x_continuous(limits = c(0,00), breaks = 0:00) +   scale_y_continuous(limits = c(0.0, 0.0), breaks = seq(0.0, 0.0, 0.0)) +   labs(title = 'Corruption and human development',        caption='Source: Transparency International; UN Human Development Report')  g <- g + xlab('Corruption Perceptions Index, 0000 (00=least corrupt)') +   ylab('Human Development Index, 0000 (0=best)')  g <- g + theme(plot.title = element_text(family = 'Arial Narrow', size = 00, margin = margin(0, 0, 00, 0)),                plot.caption = element_text(family = 'Arial Narrow', hjust = 0, margin=margin(00,0,0,0)),                axis.title.x = element_text(family = 'Arial Narrow', face = 'italic', size = 0, margin = margin(00, 0, 00, 0)),                axis.title.y = element_text(family = 'Arial Narrow', face = 'italic', size = 0, margin = margin(0, 00, 0, 00)),                plot.background = element_rect(fill = 'white'),                legend.title = element_blank() ) + theme(legend.background = element_blank(),          