有序点图
先来改进一下幻灯片中看到的点图。
首先,修改数据处理流水线,只保留年份为 1992 和 2002 的数据,而不是默认的 2006-2016。注意,数组 interestingCountries 已加载,内容与幻灯片中相同。
接着修改绘图代码以绘制新数据,但这一次,请按 1992 年病例数的降序重新排列 y 轴。
本练习是课程的一部分
R 中的可视化最佳实践
练习说明
修改
filter(),仅保留年份1992和2002。修改美学映射(Aesthetics):
- 按国家绘制 1992 年的病例数。
- 使用
reorder()按病例数对 y 轴重新排序。
交互式实操练习
通过完成这段示例代码来试试这个练习。
who_subset <- who_disease %>%
filter(
countryCode %in% interestingCountries,
disease == 'measles',
year %in% c(2006, 2016) # Modify years to 1992 and 2002
) %>%
mutate(year = paste0('cases_', year)) %>%
arrange(year, region) %>%
pivot_wider(names_from = year, values_from = cases)
# Reorder y axis and change the cases year to 1992
ggplot(who_subset, aes(x = log10(cases_2006), y = country)) +
geom_point()