การจัดเรียงองค์ประกอบในพล็อตใหม่

library(forcats)

# Reorder country factor levels
ilo_data <- ilo_data %>%
  # Arrange data frame
  arrange(___) %>%
  # Reorder countries by working hours in 2006
  mutate(country = fct_reorder(___,
                               ___,
                               ___))

# Plot again
ggplot(ilo_data) +
  geom_path(aes(x = working_hours, y = country),
            arrow = arrow(length = unit(1.5, "mm"), type = "closed")) +
    geom_text(
          aes(x = working_hours,
              y = country,
              label = round(working_hours, 1))
          )