
446 | Capítulo 22: Gráficos para Comunicação com ggplot2
ggplot( mpg, aes( displ, hwy )) +
geom_point( aes( color = class )) +
geom_text( size = 3, shape = 1, data = best_in_class ) +
ggrepel:: geom_label_repel(
aes( label = model ),
data = best_in_class
Dessa forma é difícil de ler, porque os rótulos se sobrepõem uns aos outros e aos pon-
tos. Podemos deixar as coisas um pouco melhores trocando para geom _label(), que
desenha um retângulo atrás do texto. Também podemos usar o parâmetro nudge_y
para mover os rótulos levemente para cima dos pontos correspondentes:
ggplot( mpg, aes( displ, hwy ))
geom_point( aes( color ...