否则,按年份分面将不起作用。为此,我首先按年份拆分数据,将单年数据合并到地图数据,使用tidyr::fill填充年份列,最后按行绑定数据集: dt <- data.frame(fips = c("CA", "AL", "NY","IA", "TX","CA", "AL", "NY","IA", "TX"), value = c(25, 45, 45, 60, 75,15, 65, 75, 20, ...