การเรียงลำดับกราฟ

usefulness_by_platform %>%
	# Reorder learning_platform by avg_usefulness
	mutate(learning_platform = ___(___, ___)) %>%
	# Reverse the order of learning_platform
	mutate(learning_platform = ___) %>%
	ggplot(aes(x = learning_platform, y = avg_usefulness)) + 
	geom_point() + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1)) + 
    labs(x = "Learning Platform", y = "Percent finding at least somewhat useful") + 
    scale_y_continuous(labels = scales::percent_format())