我正在尝试通过一组递增和递减填补缺失的年份值,当我知道每个递增/递减应该是1时。以下是一个可重现的示例。请注意,有两个ID,其中第一个ID从2002年开始(尽管它丢失了),第二个ID从2007年开始(同样也缺失)。我从现有的年份以及递增/递减应该是1这个事实中了解到这一点。
id <- rep(c("01012895", "01021890"), each = 6)
value <- c(rnorm(12))
year <- c("NA", "NA", 2004, "NA", "NA", 2007, "NA", "NA", "NA", 2010, "NA", "NA")
df <- data.frame(id, value, year)
df
id value year
1 01012895 -1.05853432 NA
2 01012895 0.06480395 NA
3 01012895 -3.32811206 2004
4 01012895 -0.33427578 NA
5 01012895 -0.22790538 NA
6 01012895 1.46991465 2007
7 01021890 -0.65928777 NA
8 01021890 -0.25701765 NA
9 01021890 1.24331689 NA
10 01021890 0.10006530 2010
11 01021890 -0.83971071 NA
12 01021890 1.15893263 NA
df2是我最终想要的结果。
year2 <- c(2002:2007, 2007:2012)
df2 <- data.frame(id, value, year2)
我尝试找到一个绕过使用
fill
的方法,就像在df3
中一样,但它只保留现有值,没有更改的选项。df3 <- df %>% group_by(site_no) %>% fill(year, .direction = "updown")