Corregir posiciones de etiquetas poco estéticas
Las etiquetas aún se superponen un poco con las líneas del dot plot. Usa una estética hjust condicional para colocarlas mejor y cambia su apariencia.
Este ejercicio forma parte del curso
Comunicar con datos en el Tidyverse
Instrucciones del ejercicio
- Asigna a la estética
hjusten la llamada ageom_text()un valor de1.4si se trata de la etiqueta del año"2006", y-0.4en caso contrario. Usa la funciónifelse()para ello. - Cambia el tamaño de fuente, la familia y el color a
3,"Bookman"y"gray25", respectivamente, también en la llamada ageom_text(), pero fuera de la funciónaes()ya que estos valores no dependen de los datos.
ejercicio interactivo práctico
Prueba este ejercicio completando este código de ejemplo.
# Save plot into an object for reuse
ilo_dot_plot <- ggplot(ilo_data) +
geom_path(aes(x = working_hours, y = country),
arrow = arrow(length = unit(1.5, "mm"), type = "closed")) +
# Specify the hjust aesthetic with a conditional value
geom_text(
aes(x = working_hours,
y = country,
label = round(working_hours, 1),
hjust = ifelse(___)
),
# Change the appearance of the text
___ = ___,
___ = "___",
___ = "___"
)
ilo_dot_plot